dbo.RMS_ZESetCollection

1        create   procedure RMS_ZESetCollection (@SlotNumber int)      AS begin declare @Sourcedata QBM_YDataForDelta , @CountDeltaQantity int , 
2@CountDeltaOrigin int declare @AnzahlRow int declare @GenProcID varchar(38) declare @DebugSwitch int = 0 declare @DebugMessage nvarchar(max) declare @ElementCount
3 int declare @ElementIndex int declare @ElementLast int declare @GenProcID_R varchar(38) = dbo.QBM_FGISessionContext('') declare @DBQueueCurrent QBM_YDBQueueCurrent
4 declare @QBM_BitPatternXOrigin_Inherit int = dbo.QBM_FGIBitPatternXOrigin('|Inherit|', 0) declare @QBM_BitPatternXOrigin_Inherit_inv int = dbo.QBM_FGIBitPatternXOrigin
5('|Inherit|', 1)  BEGIN TRY insert into @DBQueueCurrent(UID_DialogDBQueue, UID_Parameter, UID_SubParameter, GenProcID) select UID_DialogDBQueue, UID_Parameter
6, UID_SubParameter, GenProcID from QBMDBQueueCurrent cu with (readpast) where cu.SlotNumber = @SlotNumber if @@rowcount = 0 begin goto EndLabel end  select
7 top 1 @GenProcID = GenProcID from @DBQueueCurrent p insert into @SourceData( IsUpcommingContent, XOriginAfter , Element, AssignedElement, XOriginBefore
8 ) select 0, 0 , ec.UID_ESet, ec.UID_EsetChild , @QBM_BitPatternXOrigin_Inherit from ESetCollection ec join @DBQueueCurrent p on ec.UID_ESet = p.UID_Parameter
9 insert into @SourceData( IsUpcommingContent, XOriginBefore , Element, AssignedElement, XOriginAfter ) select 1, 0 , es.UID_ESet, es.UID_ESet , @QBM_BitPatternXOrigin_Inherit
10 from ESet es join @DBQueueCurrent p on es.UID_ESet = p.UID_Parameter  zyklus: select @AnzahlRow = 1 while @AnzahlRow > 0 begin select @AnzahlRow = 0  
11insert into @SourceData( IsUpcommingContent, XOriginBefore , Element, AssignedElement, XOriginAfter ) select distinct 1, 0 , y.Element, p.uid_ESet as UID_EsetChild
12 , @QBM_BitPatternXOrigin_Inherit  from @SourceData y join ESet e on y.Element = e.UID_ESet and e.IsInActive = 0 and y.IsUpcommingContent = 1 join ESetHasEntitlement
13 ehe on y.AssignedElement = ehe.uid_ESet  and ehe.XOrigin & @QBM_BitPatternXOrigin_Inherit_inv> 0  join ESet p on p.XObjectKey = ehe.entitlement and p.IsInActive
14 = 0 where Not exists (select top 1 1  from @SourceData where Element = y.Element and AssignedElement = p.uid_ESet and IsUpcommingContent = 1 ) select 
15@AnzahlRow = @AnzahlRow + @@rowcount end  exec QBM_PDBQueueCalculateDelta @SourceData, @DeltaQuantity = 1, @DeltaDelete = 1, @DeltaInsert = 1, @DeltaOrigin
16 = 0, @CountDeltaQantity = @CountDeltaQantity output , @CountDeltaOrigin = @CountDeltaOrigin output , @UseIsInEffect = 0 , @SlotNumber = @SlotNumber , 
17@DBQueueCurrentExtern = @DBQueueCurrent if @CountDeltaQantity > 0 begin if @DebugSwitch > 0 begin select @DebugMessage = object_name(@@procid) + '@CountDeltaQantity > 0 gefunden '
18 print @DebugMessage end declare @GenProcIDs_CountDeltaQuantity QBM_YCursorBuffer insert into @GenProcIDs_CountDeltaQuantity (UID1) select de.GenProcID
19 from #QBMDeltaDelete de union select de.GenProcID from #QBMDeltaInsert de select @ElementCount = @@ROWCOUNT select @ElementIndex = @@IDENTITY - @ElementCount
20 +1 select @ElementLast = @@IDENTITY while @ElementIndex <= @ElementLast begin select top 1 @GenProcID = bu.UID1 from @GenProcIDs_CountDeltaQuantity bu
21 where bu.ElementIndex = @ElementIndex if exists (select top 1 1 from #QBMDeltaDelete x where x.GenProcID = @GenProcID ) begin exec QBM_PSessionContextSet
22 'GenProcID', @GenProcID delete from ESetCollection where exists (select top 1 1 from #QBMDeltaDelete d where d.Element = ESetCollection.uid_ESet and d.AssignedElement
23 = ESetCollection.UID_EsetChild and d.GenProcID = @GenProcID ) end  if exists (select top 1 1 from #QBMDeltaInsert x where x.GenProcID = @GenProcID ) begin
24 exec QBM_PSessionContextSet 'GenProcID', @GenProcID insert into ESetCollection (UID_Eset, UID_EsetChild) select Element, AssignedElement from #QBMDeltaInsert
25 where GenProcID = @GenProcID end  select @ElementIndex += 1 end   declare @DBQueueElements_01 QBM_YDBQueueRaw insert into @DBQueueElements_01 (object,
26 subobject, genprocid) select x.uid, null, x.GenProcID from (  select distinct ehe.uid_Eset as uid, d.GenProcID as GenProcID from ESetHasEntitlement ehe
27 join ESet p on p.XObjectKey = ehe.entitlement and ehe.XOrigin > 0  join #QBMDeltaQuantity d on p.uid_ESet = d.Element where ehe.XIsInEffect = 1 ) as x
28 exec QBM_PDBQueueInsert_Bulk 'RMS-K-ESetCollection', @DBQueueElements_01  declare @DBQueueElements_02 QBM_YDBQueueRaw insert into @DBQueueElements_02 
29(object, subobject, genprocid) select x.uid, null, x.GenProcID from ( select d.Element as uid, d.GenProcID as GenProcID from #QBMDeltaQuantity d ) as x
30 exec QBM_PDBQueueInsert_Bulk 'RMS-K-ESetHasEntitlement', @DBQueueElements_02  declare @DBQueueElements_03 QBM_YDBQueueRaw insert into @DBQueueElements_03
31 (object, subobject, genprocid) select x.uid, null, x.GenProcID from ( select distinct co.uid_org as uid, d.GenProcID as GenProcID from BaseTreeHasESet
32 bhe join BaseTreecollection co on bhe.uid_Org = co.uid_parentOrg and bhe.XOrigin > 0  join #QBMDeltaQuantity d on bhe.uid_ESet = d.Element ) as x exec
33 QBM_PDBQueueInsert_Bulk 'RMS-K-OrgHasESet', @DBQueueElements_03  declare @DBQueueElements_04 QBM_YDBQueueRaw insert into @DBQueueElements_04 (object, 
34subobject, genprocid) select x.uid, null, x.GenProcID from ( select distinct phe.uid_Person as uid, d.GenProcID as GenProcID from PersonHasESet phe join
35 #QBMDeltaQuantity d on phe.uid_ESet = d.Element where phe.XOrigin > 0  ) as x exec QBM_PDBQueueInsert_Bulk 'RMS-K-PersonHasESet', @DBQueueElements_04 
36 declare @DBQueueElements_05 QBM_YDBQueueRaw insert into @DBQueueElements_05 (object, subobject, genprocid) select x.uid, null, x.GenProcID from ( select
37 distinct whe.uid_WorkDesk as uid, d.GenProcID as GenProcID from WorkDeskHasESet whe join #QBMDeltaQuantity d on whe.uid_ESet = d.Element where whe.XOrigin
38 > 0  ) as x exec QBM_PDBQueueInsert_Bulk 'RMS-K-WorkdeskHasESet', @DBQueueElements_05 end  END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default RAISERROR
39 ('', 18, 1) WITH NOWAIT END CATCH  endLabel: exec QBM_PSessionContextSet 'GenProcID', @GenProcID_R return end 
40