dbo.TSB_ZUNSGroupBInUNSGroupB

1      create   procedure TSB_ZUNSGroupBInUNSGroupB (@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_UNSGroupBParent, UID_UNSGroupBChild, Levelnumber + 1  , 1,1 from UNSGroupBCollection
7 join @DBQueueCurrent x on UID_UNSGroupBParent = 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_UNSGroupBChild, a.XOrigin +1 from @QBMDeltaHelper_01 a join UNSGroupBInUNSGroupB
10 gig on a.AssignedElement = gig.uid_UNSGroupBParent where Not exists (select top 1 1 from @QBMDeltaHelper_01 e where e.Element = a.Element and e.AssignedElement
11 = gig.uid_UNSGroupBChild ) 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 UNSGroupBCollection where exists (select top 1 1 from #QBMDeltaDelete d where d.AssignedElement = UNSGroupBCollection.uid_UNSGroupBChild
20 and d.Element = UNSGroupBCollection.uid_UNSGroupBParent 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 UNSGroupBCollection ( UID_UNSGroupBParent, UID_UNSGroupBChild
22, LevelNumber , XObjectKey ) select x.uid_UNSGroupBParent, x.uid_UNSGroupBChild, x.LevelNumber - 1  ,dbo.QBM_FCVElementToObjectKey2('UNSGroupBCollection'
23, 'UID_UNSGroupBParent', x.UID_UNSGroupBParent, 'UID_UNSGroupBChild', x.UID_UNSGroupBChild) from ( select Element as uid_UNSGroupBParent
24, AssignedElement as uid_UNSGroupBChild, XOrigin as LevelNumber from #QBMDeltaInsert where GenProcID = @GenProcID ) as x join UNSGroupB p on p.uid_UNSGroupB
25 = x.uid_UNSGroupBParent end  exec QBM_PDBQueueInsert_Single 'TSB-K-UNSGroupBInUNSGroupB-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 UNSGroupBCollection set Levelnumber = x.LevelNumber - 1 from UNSGroupBCollection co join
30 ( select Element as uid_UNSGroupBParent, AssignedElement as uid_UNSGroupBChild, XOrigin as LevelNumber from #QBMDeltaOrigin where GenProcID = @GenProcID
31 ) as x on co.uid_UNSGroupBParent = x.uid_UNSGroupBParent and co.UID_UNSGroupBChild = x.UID_UNSGroupBChild 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