dbo.ADS_TUADSMachineInADSGroup

1create   trigger ADS_TUADSMachineInADSGroup on ADSMachineInADSGroup  for update not for Replication as begin  declare @GenProcID varchar(38) declare
2 @XUser nvarchar(64) declare @QBM_BitPatternXMarkedForDel_OutStanding int = dbo.QBM_FGIBitPatternXMarkedForDel('|OutStanding|', 0)  BEGIN TRY if exists
3 (select top 1 1 from deleted) goto start if exists (select top 1 1 from inserted) goto start return start: select @GenProcID = dbo.QBM_FGISessionContext
4('') select @XUser = dbo.QBM_FGISessionContext('XUser') if update(XOrigin) or update(XIsInEffect) begin  if exists (select top 1 1 from deleted d join 
5ADSMachineInADSGroup dd on d.XObjectKey = dd.XObjectKey join ADSGroup g on d.UID_ADSGroup = g.UID_ADSGroup where 1 = g.HasReadOnlyMemberships and d.XOrigin
6 <> dd.XOrigin and dbo.QBM_FGISessionContext ('Fullsync') = ''  and exists (select top 1 1 from ADSMachine a where a.UID_ADSMachine = d.UID_ADSMachine 
7and a.XMarkedForDeletion & @QBM_BitPatternXMarkedForDel_OutStanding = 0 ) ) begin raiserror( '#LDS#Cannot update {0} because assignment to groups with read only memberships are not permitted.|ADSMachineInADSGroup|'
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_ADSMachine as uid from deleted d join ADSMachineInADSGroup 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-ADSMachineInADSGroup', @DBQueueElements_01 end  END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default RAISERROR ('', 18, 1) WITH NOWAIT END CATCH
12 ende: return end 
13