dbo.LDP_ZPersonHasObject

1      create   procedure LDP_ZPersonHasObject (@SlotNumber int) AS begin declare @Sourcedata QBM_YDataForDelta , @CountDeltaQantity int , @CountDeltaOrigin
2 int declare @QER_BitPattern_Inherit_0 int = dbo.QER_FGIBitPatternInheritInfo('|Inherit|', 0) declare @DBQueueCurrent QBM_YDBQueueCurrent declare @QBM_BitPatternXMarkedForDel_Delay
3 int = dbo.QBM_FGIBitPatternXMarkedForDel('|Delay|', 0) declare @QER_BitPatternInherit_Direct int = dbo.QER_FGIBitPatternInheritInfo('|Direct|', 0) declare
4 @QER_BitPatternInherit_Master int = dbo.QER_FGIBitPatternInheritInfo('|Master|', 0)  declare @IncludeTSBPersonUsesAccount nvarchar(1024) = dbo.QBM_FGIConfigparmValue
5('QER\ComplianceCheck\IncludeTSBPersonUsesAccount') BEGIN TRY insert into @DBQueueCurrent(UID_DialogDBQueue, UID_Parameter, UID_SubParameter, GenProcID
6) select UID_DialogDBQueue, UID_Parameter, UID_SubParameter, GenProcID from QBMDBQueueCurrent cu with (readpast) where cu.SlotNumber = @SlotNumber if @@rowcount
7 = 0 begin goto EndLabel end insert into @SourceData( IsUpcommingContent, XOriginAfter , Element, AssignedElement, XOriginBefore ) select 0, 0 , pho.UID_Person
8, pho.ObjectKey, pho.InheritInfo from PersonHasObject pho join @DBQueueCurrent x on pho.UID_Person = x.uid_parameter where pho.ObjectKey like '<Key><T>LDAPAccount</T>%'
9 or pho.ObjectKey like '<Key><T>LDAPGroup</T>%'  insert into @SourceData( IsUpcommingContent, XOriginBefore , Element, AssignedElement, XOriginAfter ) 
10select 1, 0 , y.uid_person, y.XObjectKey, @QER_BitPatternInherit_Direct from LDAPAccount y join @DBQueueCurrent x on y.uid_person= x.uid_parameter and 
11y.UID_Person > ' '  if @IncludeTSBPersonUsesAccount = '1' begin insert into @SourceData( IsUpcommingContent, XOriginBefore , Element, AssignedElement, 
12XOriginAfter ) select 1, 0 , y.uid_person, y.ObjectKeyAccount, @QER_BitPattern_Inherit_0 from TSBPersonUsesAccount y join @DBQueueCurrent x on y.uid_person=
13 x.uid_parameter join LDAPAccount a on y.ObjectKeyAccount = a.XObjectKey end  insert into @SourceData( IsUpcommingContent, XOriginBefore , Element, AssignedElement
14, XOriginAfter ) select 1, 0 , y.uid_person, q.XObjectKey, dbo.QER_FCVXOriginToInheritInfo(z.XOrigin) from LDAPAccount y join @DBQueueCurrent x on y.uid_person=
15 x.uid_parameter and y.UID_Person > ' ' join LDAPAccountInLDAPGroup z on y.uid_LDAPAccount = z.uid_LDAPAccount and z.XOrigin > 0 and z.XIsInEffect = 1 
16 join LDAPGroup q on q.uid_LDAPGroup = z.uid_LDAPGroup where z.XMarkedForDeletion & @QBM_BitPatternXMarkedForDel_Delay = 0  if @IncludeTSBPersonUsesAccount
17 = '1' begin insert into @SourceData( IsUpcommingContent, XOriginBefore , Element, AssignedElement, XOriginAfter ) select 1, 0 , y.uid_person, q.XObjectKey
18, @QER_BitPattern_Inherit_0 from TSBPersonUsesAccount y join @DBQueueCurrent x on y.uid_person = x.uid_parameter join LDAPAccount a on y.ObjectKeyAccount
19 = a.XObjectKey join LDAPAccountInLDAPGroup z on a.uid_LDAPAccount = z.uid_LDAPAccount and z.XOrigin > 0 and z.XIsInEffect = 1  join LDAPGroup q on q.uid_LDAPGroup
20 = z.uid_LDAPGroup where z.XMarkedForDeletion & @QBM_BitPatternXMarkedForDel_Delay = 0 end   insert into @SourceData( IsUpcommingContent, XOriginBefore
21 , Element, AssignedElement, XOriginAfter ) select 1, 0 , t.Element, t.XObjectKey, @QER_BitPattern_Inherit_0 from ( select distinct ho.Element, p.XObjectKey
22 from @SourceData ho join LDAPGroup g on ho.AssignedElement = g.XObjectKey  join LDAPGroupCollection co on co.UID_LDAPGroupChild = g.uid_LDAPGroup join
23 LDAPGroup p on co.UID_LDAPGroupParent = p.UID_LDAPGroup where ho.IsUpcommingContent = 1 and co.UID_LDAPGroupChild <> co.UID_LDAPGroupParent  ) as t   
24       insert into @SourceData( IsUpcommingContent, XOriginBefore , Element, AssignedElement, XOriginAfter ) select 1, 0 , m.uid_person, pho.objectkey,
25 @QER_BitPatternInherit_Master from @DBQueueCurrent x join person m on m.UID_Person = x.uid_parameter  join person s on s.UID_PersonMasterIdentity = m.uid_Person
26 join PersonHasObject pho on pho.uid_person = s.uid_person where pho.ObjectKey like '<Key><T>LDAPAccount</T>%' or pho.ObjectKey like '<Key><T>LDAPGroup</T>%'
27   if @IncludeTSBPersonUsesAccount = '1' begin insert into @SourceData( IsUpcommingContent, XOriginBefore , Element, AssignedElement, XOriginAfter ) select
28 1, 0 , m.uid_person, pho.ObjectKey, @QER_BitPatternInherit_Master from TSBPersonUsesAccount y join @DBQueueCurrent x on y.uid_person = x.uid_parameter
29 join person m on m.UID_Person = y.uid_person join person s on s.UID_PersonMasterIdentity = m.uid_Person join PersonHasObject pho on pho.uid_person = s.uid_person
30 where pho.ObjectKey like '<Key><T>LDAPAccount</T>%' or pho.ObjectKey like '<Key><T>LDAPGroup</T>%' end   berechnen: exec QBM_PDBQueueCalculateDelta @SourceData
31, @DeltaQuantity = 1, @DeltaDelete = 1, @DeltaInsert = 1, @DeltaOrigin = 1, @CountDeltaQantity = @CountDeltaQantity output , @CountDeltaOrigin = @CountDeltaOrigin
32 output , @UseIsInEffect = 0 , @SlotNumber = @SlotNumber , @DBQueueCurrentExtern = @DBQueueCurrent exec QER_PPersonHasObjectPostProc @SlotNumber , @CountDeltaOrigin
33 , @CountDeltaQantity , 'LDP-K-PersonHasObject' END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default RAISERROR ('', 18, 1) WITH NOWAIT END CATCH endLabel:
34 end 
35