dbo.QER_TDBaseTree

1     create   trigger QER_TDBaseTree on BaseTree  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) select @GenProcID = dbo.QBM_FGISessionContext('')  declare @alt_uid_orgroot varchar(38)  declare @alt_uid_org
3 varchar(38) declare @uid_personwantsorg varchar(38) declare @datum datetime declare @SQLcmd nvarchar(max) declare @alt_uid_ParentOrg varchar(38) declare
4 @alt_IsTopDown bit declare @uid_subOrg varchar(38) declare @betroffenePWO QBM_YParameterList    if exists (select top 1 1 from QERAssign a join deleted
5 d on a.ObjectKeyAssignTarget = d.XObjectKey ) begin RAISERROR( '#LDS#Cannot delete {1}, because {2} does exist. Rule {0}|DynamicFK|BaseTree|QERAssign|'
6 , 18, 2) WITH NOWAIT end                               DECLARE @DBQueueElements_01 QBM_YDBQueueRaw insert into @DBQueueElements_01 (Object, SubObject,
7 GenProcID) select x.uid, null, @GenProcID from( select distinct pwo.UID_PersonWantsOrg as uid from PersonWantsOrg pwo join deleted d on pwo.UID_Org = 
8d.UID_Org where pwo.OrderState IN ('Assigned', 'Granted', 'New', 'OrderProduct', 'OrderProlongate', 'OrderUnsubscribe', 'Waiting') union select distinct
9 pwo.UID_PersonWantsOrg as uid from PersonWantsOrg pwo join deleted d on pwo.UID_OrgParent = d.UID_Org where pwo.OrderState IN ('Assigned', 'Granted', 
10'New', 'OrderProduct', 'OrderProlongate', 'OrderUnsubscribe', 'Waiting') union select distinct pwo.UID_PersonWantsOrg as uid from PersonWantsOrg pwo join
11 deleted d on pwo.UID_OrgParentOfParent = d.UID_Org where pwo.OrderState IN ('Assigned', 'Granted', 'New', 'OrderProduct', 'OrderProlongate', 'OrderUnsubscribe'
12, 'Waiting') union select distinct pwo.UID_PersonWantsOrg as uid from PersonWantsOrg pwo join deleted d on pwo.UID_ITShopOrgFinal = d.UID_Org where pwo.OrderState
13 IN ('Assigned', 'Granted', 'New', 'OrderProduct', 'OrderProlongate', 'OrderUnsubscribe', 'Waiting') ) as x exec QBM_PDBQueueInsert_Bulk 'QER-K-ITSHOPOrder-ABORT'
14, @DBQueueElements_01                           declare @DBQueueElements_02 QBM_YDBQueueRaw insert into @DBQueueElements_02 (object, subobject, genprocid
15) select x.uid, null, @GenProcID from ( select d.uid_org as uid from deleted d ) as x exec QBM_PDBQueueInsert_Bulk 'QER-K-OrgInherite', @DBQueueElements_02
16  declare @DBQueueElements_03 QBM_YDBQueueRaw insert into @DBQueueElements_03 (object, subobject, genprocid) select x.uid, null, @GenProcID from ( select
17 d.uid_org as uid from deleted d where d.uid_OrgRoot = 'QER-V-ITShopOrg' and d.itshopinfo in ('SC', 'SH', 'BO', 'PR') ) as x exec QBM_PDBQueueInsert_Bulk
18 'QER-K-ShoppingRack-All', @DBQueueElements_03  declare @DBQueueElements_04 QBM_YDBQueueRaw insert into @DBQueueElements_04 (object, subobject, genprocid
19) select x.uid, null, @GenProcID from ( select d.uid_parentorg as uid from deleted d where d.uid_parentorg > ' ' union  select o.uid_org as uid from deleted
20 d join BaseTree o with(nolock) on o.uid_parentorg = d.uid_org ) as x exec QBM_PDBQueueInsert_Bulk 'QER-K-OrgTreeLEVEL', @DBQueueElements_04         declare
21 @DBQueueElements_05 QBM_YDBQueueRaw insert into @DBQueueElements_05 (object, subobject, genprocid) select x.uid, null, @GenProcID from ( select uid_personHead
22 as uid from deleted where uid_personHead > ' ' union select uid_personHeadSecond as uid from deleted where uid_personHeadSecond > ' '  union select pio.UID_Person
23 from deleted d join PersonInBaseTree pio on d.UID_AERoleManager = pio.UID_Org  union select us.UID_PersonReceiver as uid from deleted d join QERUniversalSubstitute
24 us on us.UID_PersonSender in (d.UID_PersonHead, d.UID_PersonHeadSecond) where (d.UID_PersonHeadSecond > ' ' or d.UID_PersonHead > ' ' ) and us.IsCurrentlyActive
25 = 1 and us.UseForHeadOrg = 1  union select us.UID_PersonReceiver as uid from deleted d join PersonInBaseTree pio on d.UID_AERoleManager = pio.UID_Org 
26join QERUniversalSubstitute us on us.UID_PersonSender = pio.UID_Person where us.IsCurrentlyActive = 1 and us.UseForHeadOrg = 1 ) as x exec QBM_PDBQueueInsert_Bulk
27 'QER-K-HelperHeadOrg', @DBQueueElements_05 declare @RecalcParameter_01 QBM_YCursorBuffer  insert into @RecalcParameter_01 (UID1, ObjectKey1, Ident1) select
28 y.DecisionRule, x.XObjectKey, 'I' from (select b.XObjectKey from deleted d join BaseTree b on d.UID_Org = b.UID_OrgDepartment where b.UID_OrgRoot = 'QER-V-ITShopOrg'
29 and d.UID_OrgRoot = 'QER-V-Department' ) as x join (select 'QER-PWODecisionRule-D0' as DecisionRule union select 'QER-PWODecisionRule-D1' union select
30 'QER-PWODecisionRule-D2' ) as y on 1 = 1 exec QER_PITShopHelperFill_Recalc @RecalcParameter_01, @GenprocID END TRY BEGIN CATCH exec QBM_PSessionErrorAdd
31 default RAISERROR ('', 18, 1) WITH NOWAIT END CATCH ende: return end 
32