dbo.QER_TDPerson

1create   trigger QER_TDPerson on Person  for delete not for Replication as begin  BEGIN TRY if exists (select top 1 1 from deleted) goto start return
2 start: declare @GenProcID varchar(38) select @GenProcID = dbo.QBM_FGISessionContext('') declare @DBQueueElements_01 QBM_YDBQueueRaw insert into @DBQueueElements_01
3 (object, subobject, genprocid) select x.uid, null, @GenProcID from ( select uid_personHead as uid from deleted where uid_personHead > ' '  union select
4 us.UID_PersonReceiver as uid from deleted d join QERUniversalSubstitute us on d.UID_PersonHead = us.UID_PersonSender where d.UID_PersonHead > ' ' and 
5us.IsCurrentlyActive = 1 and us.UseForHeadPerson = 1 ) as x exec QBM_PDBQueueInsert_Bulk 'QER-K-HelperHeadPerson', @DBQueueElements_01 if exists (select
6 top 1 1 from deleted d join delegation dl on d.uid_Person = dl.UID_PersonReceiver or d.UID_person = dl.UID_PersonSender join PersonWantsOrg pwo on dl.UID_PersonWantsOrg
7 = pwo.UID_PersonWantsOrg    where pwo.OrderState in ('Assigned', 'Granted', 'New', 'OrderProduct', 'OrderProlongate', 'OrderUnsubscribe', 'Waiting') )
8 begin    raiserror( '#LDS#Cannot delete person, because active delegation(s) are existing.|', 18, 3) with nowait end delete delegation where UID_PersonReceiver
9 in (select uid_person from deleted ) delete delegation where UID_PersonSender in (select uid_person from deleted )  exec QBM_PDBQueueInsert_Single 'QBM-K-CommonReCalculate'
10, 'QER-K-ITShopRepairClosed', '', @GenProcID  END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default RAISERROR ('', 18, 1) WITH NOWAIT END CATCH ende: return
11 end 
12