dbo.QER_TUHelperHeadOrg

1create   trigger QER_TUHelperHeadOrg on HelperHeadOrg  for update not for Replication as begin  declare @GenProcID varchar(38) declare @GenProcIDToUse
2 varchar(38) declare @CfgUseGenProcID bit = dbo.QBM_FCVStringToBit(dbo.QBM_FGIConfigparmValue('Common\ProcessState\UseGenProcIDFromPWO')) declare @SQLcmd
3 nvarchar(1000) declare @uid_personwantsorg varchar(38) declare @BasisObjectKey varchar(138) declare @UID_PWOStateFinalError varchar(38) declare @Parameter
4 nvarchar(1000) declare @DebugSwitch int = 0 declare @ElementBuffer QBM_YCursorBuffer declare @ElementCount int declare @ElementIndex int declare @DebugLevel
5 char(1) = 'W' declare @ChangedPersonHead QBM_YSingleGUID  BEGIN TRY if exists (select top 1 1 from deleted) goto start if exists (select top 1 1 from 
6inserted) goto start return start: select @GenProcID = dbo.QBM_FGISessionContext('') if @DebugSwitch > 0 begin exec QBM_PJournal 'Update trigger HelperheadOrg'
7, @@procid, 'D', @DebugLevel end if update(XOrigin) begin if @DebugSwitch > 0 begin exec QBM_PJournal 'In der XOrigin-Klausel', @@procid, 'D', @DebugLevel
8 end insert into @ChangedPersonHead (UID_SingleGuid) select distinct d.UID_PersonHead as uid from HelperHeadOrg a join deleted d on a.XObjectKey = d.XObjectKey
9 where dbo.QBM_FGIXOriginChanged_Effect(d.XOrigin, a.XOrigin, 1, 1) = 1 if @@ROWCOUNT > 0  begin if @DebugSwitch > 0 begin exec QBM_PJournal 'In der Exists-Klausel'
10, @@procid, 'D', @DebugLevel end declare @RecalcParameter_01 QBM_YCursorBuffer  insert into @RecalcParameter_01 (UID1, ObjectKey1, Ident1) select y.DecisionRule
11, x.XObjectKey, 'I' from (select e.XObjectKey from HelperHeadOrg a join deleted d on a.XObjectKey = d.XObjectKey join Basetree e on d.UID_Org = e.UID_Org
12 and e.UID_OrgRoot = 'QER-V-Department' where dbo.QBM_FGIXOriginChanged_Effect(d.XOrigin, a.XOrigin, 1, 1) = 1 ) as x join (select 'QER-PWODecisionRule-D0'
13 as DecisionRule union select 'QER-PWODecisionRule-D1' union select 'QER-PWODecisionRule-D2' union select 'QER-PWODecisionRule-DM' union select 'QER-PWODecisionRule-DP'
14 ) as y on 1 = 1 exec QER_PITShopHelperFill_Recalc @RecalcParameter_01, @GenprocID declare @RecalcParameter_02 QBM_YCursorBuffer insert into @RecalcParameter_02
15 (UID1, ObjectKey1, Ident1) select y.DecisionRule, x.XObjectKey, 'I' from (select e.XObjectKey from HelperHeadOrg a join deleted d on a.XObjectKey = d.XObjectKey
16 join Basetree e on d.UID_Org = e.UID_Org and e.UID_OrgRoot = 'QER-V-ITShopOrg' where dbo.QBM_FGIXOriginChanged_Effect(d.XOrigin, a.XOrigin, 1, 1) = 1 
17) as x join (select 'QER-PWODecisionRule-H0' as DecisionRule union select 'QER-PWODecisionRule-H1' union select 'QER-PWODecisionRule-H2' ) as y on 1 = 
181 exec QER_PITShopHelperFill_Recalc @RecalcParameter_02, @GenprocID declare @RecalcParameter_03 QBM_YCursorBuffer insert into @RecalcParameter_03 (UID1
19, ObjectKey1, Ident1) select y.DecisionRule, x.XObjectKey, 'I' from (select a.XObjectKey from HelperHeadOrg a join deleted d on a.XObjectKey = d.XObjectKey
20 where dbo.QBM_FGIXOriginChanged_Effect(d.XOrigin, a.XOrigin, 1, 1) = 1 ) as x join (select 'QER-PWODecisionRule-MS' as DecisionRule ) as y on 1 = 1 exec
21 QER_PITShopHelperFill_Recalc @RecalcParameter_03, @GenprocID declare @RecalcParameter_04 QBM_YCursorBuffer insert into @RecalcParameter_04 (UID1, ObjectKey1
22, Ident1) select y.DecisionRule, x.XObjectKey, 'I' from (select e.XObjectKey from HelperHeadOrg a join deleted d on a.XObjectKey = d.XObjectKey join Basetree
23 e on d.UID_Org = e.UID_Org where dbo.QBM_FGIXOriginChanged_Effect(d.XOrigin, a.XOrigin, 1, 1) = 1 ) as x join (select 'QER-PWODecisionRule-OM' as DecisionRule
24 ) as y on 1 = 1 exec QER_PITShopHelperFill_Recalc @RecalcParameter_04, @GenprocID declare @RecalcParameter_05 QBM_YCursorBuffer insert into @RecalcParameter_05
25 (UID1, ObjectKey1, Ident1) select y.DecisionRule, x.XObjectKey, 'I' from (select e.XObjectKey from HelperHeadOrg a join deleted d on a.XObjectKey = d.XObjectKey
26 join Basetree e on d.UID_Org = e.UID_Org and e.UID_OrgRoot = 'QER-V-ProfitCenter' where dbo.QBM_FGIXOriginChanged_Effect(d.XOrigin, a.XOrigin, 1, 1) =
27 1 ) as x join (select 'QER-PWODecisionRule-P0' as DecisionRule union select 'QER-PWODecisionRule-P1' union select 'QER-PWODecisionRule-P2' union select
28 'QER-PWODecisionRule-PM' union select 'QER-PWODecisionRule-PP' ) as y on 1 = 1 exec QER_PITShopHelperFill_Recalc @RecalcParameter_05, @GenprocID exec 
29QBM_PDBQueueInsert_Single 'QBM-K-CommonReCalculate', 'QER-K-ShoppingRackPWODecisionMaker', '', @GenProcID  end   insert into @ElementBuffer(UID1, ObjectKey1
30, UID2) select pwo.uid_personwantsorg, pwo.XObjectKey, dbo.QER_FGIGenProcIDForPWO(pwo.GenProcID, @GenProcID, @CfgUseGenProcID) as GenProcID from HelperHeadOrg
31 a join deleted y on a.XObjectKey = y.XObjectKey join Delegation d on d.ObjectKeyDelegated = y.XObjectKey join personwantsorg pwo on d.uid_personwantsorg
32 = pwo.uid_personwantsorg    where dbo.QBM_FGIXOriginChanged_Effect(y.XOrigin, a.XOrigin, 1, 1) = 1 and pwo.OrderState in ('Assigned', 'Granted', 'New'
33, 'OrderProduct', 'OrderProlongate', 'OrderUnsubscribe', 'Waiting') select @ElementCount = @@ROWCOUNT select @ElementIndex = 1 while @ElementIndex <= @ElementCount
34 begin select top 1 @uid_personwantsorg = bu.UID1 , @BasisObjectKey = bu.ObjectKey1 , @GenProcIDToUse = bu.UID2 from @ElementBuffer bu where bu.ElementIndex
35 = @ElementIndex select @SQLcmd = N'uid_personwantsorg = ''' + rtrim(@uid_personwantsorg) + N'''' select @UID_PWOStateFinalError = dbo.QER_FGIPWOStateFinalError
36(@UID_PersonWantsOrg) exec QBM_PJobCreate_HOCallMethod @objecttype = 'personwantsorg' , @whereclause = @SQLcmd , @save = 1 , @MethodName = 'Abort' , @GenProcID
37 = @GenProcIDToUse , @ObjectKeysAffected = DEFAULT , @param1 = '#LDS#Closing delegation because its source was deleted.|' , @param2 = @UID_PWOStateFinalError
38 , @Retries = 3 , @isToFreezeOnError = 1 , @BasisObjectKey = @BasisObjectKey , @checkForExisting = 1  , @WhereClauseAdditional = ' OrderState in (''Assigned'', ''Granted'', ''New'', ''OrderProduct'', ''OrderProlongate'', ''OrderUnsubscribe'', ''Waiting'')'
39  select @ElementIndex += 1 end    delete Delegation from deleted d join HelperHeadOrg i on i.XObjectKey = d.XObjectKey join Delegation dl on d.XObjectKey
40 = dl.ObjectKeyDelegated where i.XOrigin = 0 and d.XOrigin > 0  end  END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default RAISERROR ('', 18, 1) WITH NOWAIT
41 END CATCH ende: return end 
42