dbo.ADS_TDAdsGroup

1    create   trigger ADS_TDAdsGroup on AdsGroup  for Delete not for Replication as begin  BEGIN TRY if exists (select top 1 1 from deleted) goto
2 start return start: declare @GenProcID varchar(38) = dbo.QBM_FGISessionContext('')  if exists (select top 1 1 from deleted d where d.ObjectSID > ' ' )
3 begin insert into ADSOtherSID (UID_ADSOtherSID, ObjectSID , DistinguishedName, canonicalName, Ident_ADSOtherSID , XDateInserted, XDateUpdated, XUserInserted
4, XUserUpdated, XObjectKey) select x.UID_ADSOtherSID, x.ObjectSID , x.DistinguishedName, x.canonicalName, x.Ident_ADSOtherSID , x.XDateInserted, x.XDateUpdated
5, x.XUserInserted, x.XUserUpdated, dbo.QBM_FCVElementToObjectKey1('ADSOtherSID', 'UID_ADSOtherSID', x.UID_ADSOtherSID) from ( select newid() as UID_ADSOtherSID
6, d.ObjectSID , d.DistinguishedName, d.canonicalName, d.cn as Ident_ADSOtherSID , d.XDateInserted, d.XDateUpdated, d.XUserInserted, d.XUserUpdated from
7 deleted d where d.ObjectSID > ' ' and not exists (select top 1 1 from ADSOtherSID x where x.ObjectSID = d.ObjectSID ) ) as x end    declare @DBQueueElements_01
8 QBM_YDBQueueRaw insert into @DBQueueElements_01 (object, subobject, genprocid) select x.uid, null, @GenProcID from ( select distinct a.uid_person as uid
9 from adsaccountinadsgroup aig join adsaccount a on aig.uid_adsaccount = a.uid_adsaccount and aig.XOrigin > 0  join deleted g on aig.uid_adsGroup = g.uid_adsGroup
10 where a.uid_person > ' ' ) as x exec QBM_PDBQueueInsert_Bulk 'ADS-K-PersonHasObject', @DBQueueElements_01 declare @DBQueueElements_02 QBM_YDBQueueRaw 
11insert into @DBQueueElements_02 (object, subobject, genprocid) select x.uid, null, @GenProcID from ( select distinct a.uid_person as uid from ADSContactInADSGroup
12 aig join ADSContact a on aig.UID_ADSContact = a.uid_ADSContact and aig.XOrigin > 0  join deleted g on aig.uid_adsGroup = g.uid_adsGroup where a.uid_person
13 > ' ' ) as x exec QBM_PDBQueueInsert_Bulk 'ADS-K-PersonHasObject', @DBQueueElements_02 END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default RAISERROR
14 ('', 18, 1) WITH NOWAIT END CATCH ende: return end 
15