dbo.ADS_ZGroupInADSGroup

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