dbo.LDP_ZGroupInLDAPGroup

1   create   procedure LDP_ZGroupInLDAPGroup (@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_LDAPGroupParent, UID_LDAPGroupChild, levelnumber + 1  from LDAPGroupCollection
7 join @DBQueueCurrent x on UID_LDAPGroupParent = x.uid_parameter   insert into @QBMDeltaHelper( Element, AssignedElement, XOrigin) select uid_parameter
8, uid_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_LDAPGroupChild, a.XOrigin +1 from @QBMDeltaHelper a join LDAPGroupInLDAPGroup gig on a.AssignedElement = gig.uid_LDAPGroupParent
10 where Not exists (select top 1 1 from @QBMDeltaHelper e where e.Element = a.Element and e.AssignedElement = gig.uid_LDAPGroupChild ) 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 LDAPGroupCollection where exists (select top 1 1 from #QBMDeltaDelete d where d.AssignedElement = LDAPGroupCollection.uid_LDAPGroupChild
19 and d.Element = LDAPGroupCollection.uid_LDAPGroupParent 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 LDAPGroupCollection ( UID_LDAPGroupParent, UID_LDAPGroupChild, LevelNumber
21 , XObjectKey ) select x.uid_LDAPGroupParent, x.uid_LDAPGroupChild, x.LevelNumber -1  ,dbo.QBM_FCVElementToObjectKey2('LDAPGroupCollection', 'UID_LDAPGroupParent'
22, x.UID_LDAPGroupParent, 'UID_LDAPGroupChild', x.UID_LDAPGroupChild) from ( select Element as uid_LDAPGroupParent, AssignedElement as uid_LDAPGroupChild
23, XOrigin as Levelnumber from #QBMDeltaInsert where GenProcID = @GenProcID ) as x end  exec QBM_PDBQueueInsert_Single 'LDP-K-LDAPGroupInLDAPGroup-Circ'
24, '', '', @GenProcID select @ElementIndex += 1 end  end  if @CountDeltaOrigin > 0 begin declare @GenProcIDs_CountDeltaOrigin QBM_YCursorBuffer insert into
25 @GenProcIDs_CountDeltaOrigin (UID1) select distinct de.GenProcID from #QBMDeltaOrigin de select @ElementCount = @@ROWCOUNT select @ElementIndex = @@IDENTITY
26 - @ElementCount +1 select @ElementLast = @@IDENTITY while @ElementIndex <= @ElementLast begin select top 1 @GenProcID = bu.UID1 from @GenProcIDs_CountDeltaOrigin
27 bu where bu.ElementIndex = @ElementIndex exec QBM_PSessionContextSet 'GenProcID', @GenProcID update LDAPGroupCollection set Levelnumber = x.LevelNumber
28 -1  from LDAPGroupCollection co join ( select Element as uid_LDAPGroupParent, AssignedElement as uid_LDAPGroupChild, XOrigin as LevelNumber from #QBMDeltaOrigin
29 where GenProcID = @GenProcID ) as x on co.UID_LDAPGroupParent = x.uid_LDAPGroupParent and co.UID_LDAPGroupChild = x.uid_LDAPGroupChild where co.LevelNumber
30 <> x.Levelnumber -1  select @ElementIndex += 1 end  end  END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default RAISERROR ('', 18, 1) WITH NOWAIT END CATCH
31  endLabel: exec QBM_PSessionContextSet 'GenProcID', @GenProcID_R return end 
32