dbo.ADS_TUADSAccountInADSGroup

1create   trigger ADS_TUADSAccountInADSGroup on ADSAccountInADSGroup  for Update not for Replication as begin declare @GenProcID varchar(38) = dbo.QBM_FGISessionContext
2('') declare @XUser nvarchar(64) = dbo.QBM_FGISessionContext('XUser') declare @QBM_BitPatternXMarkedForDel_OutStanding int = dbo.QBM_FGIBitPatternXMarkedForDel
3('|OutStanding|', 0)  BEGIN TRY if exists (select top 1 1 from inserted) goto start if exists (select top 1 1 from deleted) goto start return start: if
4 update(XOrigin) or update(XIsInEffect) begin  if exists (select top 1 1 from deleted d join ADSAccountInADSGroup dd on d.XObjectKey = dd.XObjectKey join
5 ADSGroup g on d.UID_ADSGroup = g.UID_ADSGroup where 1 = g.HasReadOnlyMemberships and d.XOrigin <> dd.XOrigin and dbo.QBM_FGISessionContext ('Fullsync'
6) = '' and d.XMarkedForDeletion & @QBM_BitPatternXMarkedForDel_OutStanding = 0  and exists (select top 1 1 from ADSAccount a where a.UID_ADSAccount = d.UID_ADSAccount
7 and a.XMarkedForDeletion & @QBM_BitPatternXMarkedForDel_OutStanding = 0 ) ) begin raiserror( '#LDS#Cannot update {0} because assignment to groups with read only memberships are not permitted.|ADSAccountInADSGroup|'
8, 18, 2) with nowait end declare @DBQueueElements_01 QBM_YDBQueueRaw insert into @DBQueueElements_01 (object, subobject, genprocid) select x.uid, null,
9 @GenProcID from ( select distinct d.UID_ADSAccount as uid from deleted d join ADSAccountInADSGroup dd on d.XObjectKey = dd.XObjectKey where dbo.QBM_FGIXOriginChanged_Except2
10(d.XOrigin, dd.XOrigin) = 1  or (d.XIsInEffect <> dd.XIsInEffect and dbo.QBM_FGISessionContext ('Fullsync') > ' ' ) ) as x exec QBM_PDBQueueInsert_Bulk
11 'ADS-K-ADSAccountInADSGroup', @DBQueueElements_01 end  if update(XIsInEffect) or update(XOrigin) begin declare @DBQueueElements_02 QBM_YDBQueueRaw insert
12 into @DBQueueElements_02 (object, subobject, genprocid) select x.uid, null, @GenProcID from ( select distinct x.UID_Person as uid from ADSAccountInADSGroup
13 a join deleted d on a.XObjectKey = d.XObjectKey join ADSAccount x on a.UID_ADSAccount = x.UID_ADSAccount where x.UID_Person > ' ' and ( dbo.QBM_FGIXOriginChanged_Effect
14(d.XOrigin, a.XOrigin, d.XIsInEffect, a.XIsInEffect) = 1 or dbo.QER_FCVXOriginToInheritInfo(d.XOrigin) <> dbo.QER_FCVXOriginToInheritInfo(a.XOrigin) ) 
15) as x exec QBM_PDBQueueInsert_Bulk 'ADS-K-PersonHasObject', @DBQueueElements_02  if '1' = dbo.QBM_FGIConfigparmValue('QER\ComplianceCheck\IncludeTSBPersonUsesAccount'
16) begin declare @DBQueueElements_PersonUsesAccount QBM_YDBQueueRaw insert into @DBQueueElements_PersonUsesAccount (object, subobject, genprocid) select
17 x.uid, null, @GenProcID from ( select distinct t.uid_person as uid from ADSAccountInADSGroup aig join deleted d on aig.XObjectKey = d.XObjectKey join 
18ADSAccount a on aig.UID_ADSAccount = a.UID_ADSAccount join TSBPersonUsesAccount t on a.XObjectKey = t.ObjectKeyAccount where ( dbo.QBM_FGIXOriginChanged_Effect
19(d.XOrigin, aig.XOrigin, d.XIsInEffect, aig.XIsInEffect) = 1 or dbo.QER_FCVXOriginToInheritInfo(d.XOrigin) <> dbo.QER_FCVXOriginToInheritInfo(aig.XOrigin
20) ) ) as x exec QBM_PDBQueueInsert_Bulk 'ADS-K-PersonHasObject', @DBQueueElements_PersonUsesAccount end  end  END TRY BEGIN CATCH exec QBM_PSessionErrorAdd
21 default RAISERROR ('', 18, 1) WITH NOWAIT END CATCH ende: return end 
22