dbo.TSB_ZUNSGroupB1InUNSGroupB1

1      create   procedure TSB_ZUNSGroupB1InUNSGroupB1 (@SlotNumber int) AS begin declare @Sourcedata QBM_YDataForDelta , @CountDeltaQantity int
2 , @CountDeltaOrigin int declare @lauf int declare @GenProcID varchar(38) declare @ElementCount int declare @ElementIndex int declare @ElementLast int 
3declare @GenProcID_R varchar(38) = dbo.QBM_FGISessionContext('') declare @DBQueueCurrent QBM_YDBQueueCurrent BEGIN TRY insert into @DBQueueCurrent(UID_DialogDBQueue
4, UID_Parameter, UID_SubParameter, GenProcID) select UID_DialogDBQueue, UID_Parameter, UID_SubParameter, GenProcID from QBMDBQueueCurrent cu with (readpast
5) where cu.SlotNumber = @SlotNumber if @@rowcount = 0 begin goto EndLabel end insert into @SourceData( IsUpcommingContent, XOriginAfter , Element, AssignedElement
6, XOriginBefore , XIsInEffectBefore, XIsInEffectAfter ) select 0, 0 , UID_UNSGroupB1Parent, UID_UNSGroupB1Child, Levelnumber + 1  , 1,1 from UNSGroupB1Collection
7 join @DBQueueCurrent x on UID_UNSGroupB1Parent = x.uid_parameter  declare @QBMDeltaHelper_01 QBM_YDBQueueDeltaHelper insert into @QBMDeltaHelper_01(Element
8, AssignedElement, XOrigin) select uid_parameter, uid_parameter, 1  from @DBQueueCurrent p  select @lauf = 1 while @lauf > 0 begin  insert into @QBMDeltaHelper_01
9 (Element, AssignedElement, XOrigin) select distinct a.Element, gig.uid_UNSGroupB1Child, a.XOrigin +1 from @QBMDeltaHelper_01 a join UNSGroupB1InUNSGroupB1
10 gig on a.AssignedElement = gig.uid_UNSGroupB1Parent where Not exists (select top 1 1 from @QBMDeltaHelper_01 e where e.Element = a.Element and e.AssignedElement
11 = gig.uid_UNSGroupB1Child ) select @lauf = @@rowcount end insert into @SourceData( IsUpcommingContent, XOriginBefore, XOriginAfter , Element, AssignedElement
12 , XIsInEffectBefore, XIsInEffectAfter ) select 1, 0, p.XOrigin , p.Element, p.AssignedElement , 1 , 1 from @QBMDeltaHelper_01 p exec QBM_PDBQueueCalculateDelta
13 @SourceData, @DeltaQuantity = 0, @DeltaDelete = 1, @DeltaInsert = 1, @DeltaOrigin = 1, @CountDeltaQantity = @CountDeltaQantity output , @CountDeltaOrigin
14 = @CountDeltaOrigin output , @UseIsInEffect = 0 , @SlotNumber = @SlotNumber , @DBQueueCurrentExtern = @DBQueueCurrent if @CountDeltaQantity > 0 begin 
15declare @GenProcIDs_CountDeltaQantity QBM_YCursorBuffer insert into @GenProcIDs_CountDeltaQantity (UID1) select de.GenProcID from #QBMDeltaDelete de union
16 select de.GenProcID from #QBMDeltaInsert de select @ElementCount = @@ROWCOUNT select @ElementIndex = @@IDENTITY - @ElementCount +1 select @ElementLast
17 = @@IDENTITY while @ElementIndex <= @ElementLast begin select top 1 @GenProcID = bu.UID1 from @GenProcIDs_CountDeltaQantity bu where bu.ElementIndex =
18 @ElementIndex if exists (select top 1 1 from #QBMDeltaDelete x where x.GenProcID = @GenProcID ) begin exec QBM_PSessionContextSet 'GenProcID', @GenProcID
19 delete UNSGroupB1Collection where exists (select top 1 1 from #QBMDeltaDelete d where d.AssignedElement = UNSGroupB1Collection.uid_UNSGroupB1Child
20 and d.Element = UNSGroupB1Collection.uid_UNSGroupB1Parent and d.GenProcID = @GenProcID ) end  if exists (select top 1 1 from #QBMDeltaInsert x where
21 x.GenProcID = @GenProcID ) begin exec QBM_PSessionContextSet 'GenProcID', @GenProcID insert into UNSGroupB1Collection ( UID_UNSGroupB1Parent, UID_UNSGroupB1Child
22, LevelNumber , XObjectKey ) select x.uid_UNSGroupB1Parent, x.uid_UNSGroupB1Child, x.LevelNumber - 1  ,dbo.QBM_FCVElementToObjectKey2('UNSGroupB1Collection'
23, 'UID_UNSGroupB1Parent', x.UID_UNSGroupB1Parent, 'UID_UNSGroupB1Child', x.UID_UNSGroupB1Child) from ( select Element as uid_UNSGroupB1Parent
24, AssignedElement as uid_UNSGroupB1Child, XOrigin as LevelNumber from #QBMDeltaInsert where GenProcID = @GenProcID ) as x join UNSGroupB1 p on p.uid_UNSGroupB1
25 = x.uid_UNSGroupB1Parent end  exec QBM_PDBQueueInsert_Single 'TSB-K-UNSGroupB1InUNSGroupB1-C', '', '', @GenProcID select @ElementIndex += 1 end 
26 end  if @CountDeltaOrigin > 0 begin declare @GenProcIDs_CountDeltaOrigin QBM_YCursorBuffer insert into @GenProcIDs_CountDeltaOrigin (UID1) select distinct
27 de.GenProcID from #QBMDeltaOrigin de select @ElementCount = @@ROWCOUNT select @ElementIndex = @@IDENTITY - @ElementCount +1 select @ElementLast = @@IDENTITY
28 while @ElementIndex <= @ElementLast begin select top 1 @GenProcID = bu.UID1 from @GenProcIDs_CountDeltaOrigin bu where bu.ElementIndex = @ElementIndex
29 exec QBM_PSessionContextSet 'GenProcID', @GenProcID update UNSGroupB1Collection set Levelnumber = x.LevelNumber - 1 from UNSGroupB1Collection co join
30 ( select Element as uid_UNSGroupB1Parent, AssignedElement as uid_UNSGroupB1Child, XOrigin as LevelNumber from #QBMDeltaOrigin where GenProcID = @GenProcID
31 ) as x on co.uid_UNSGroupB1Parent = x.uid_UNSGroupB1Parent and co.UID_UNSGroupB1Child = x.UID_UNSGroupB1Child where co.LevelNumber <> x.Levelnumber
32 -1  select @ElementIndex += 1 end  end  END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default RAISERROR ('', 18, 1) WITH NOWAIT END CATCH  endLabel: exec
33 QBM_PSessionContextSet 'GenProcID', @GenProcID_R return end 
34