dbo.QER_PGIQERWorkingMethod

1   create   procedure QER_PGIQERWorkingMethod (@UID_PWODecisionMethod varchar(38) , @Orderstate varchar(30) , @UID_QERWorkingMethod varchar(38) 
2output ) as begin declare @uid_PWODecisionSubMethod varchar(38) = null declare @RevisionNumber int = 0 declare @SQLCmd nvarchar(max) declare @LayoutInformation
3 nvarchar(max) declare @old varchar(38) declare @new varchar(38) declare @DebugSwitch int = 0 declare @ElementBuffer QBM_YCursorBuffer declare @ElementCount
4 int declare @ElementIndex int declare @GenProcID_R varchar(38) = dbo.QBM_FGISessionContext('') SET XACT_ABORT OFF BEGIN TRY select @UID_QERWorkingMethod
5 = null select top 1 @uid_PWODecisionSubMethod = case @Orderstate when 'OrderProlongate' then isnull(m.UID_SubMethodOrderProlongate, m.UID_SubMethodOrderProduct
6) when 'OrderUnsubscribe' then m.UID_SubMethodOrderUnsubscribe else  m.UID_SubMethodOrderProduct end from PWODecisionMethod m where m.UID_PWODecisionMethod
7 = @UID_PWODecisionMethod if @uid_PWODecisionSubMethod is null begin goto EndLabel end select top 1 @RevisionNumber = s.RevisionNumber from PWODecisionSubMethod
8 s where s.UID_PWODecisionSubMethod = @uid_PWODecisionSubMethod select top 1 @UID_QERWorkingMethod = m.UID_QERWorkingMethod from QERWorkingMethod m where
9 m.UID_PWODecisionSubMethod = @uid_PWODecisionSubMethod and m.RevisionNumber = @RevisionNumber if @UID_QERWorkingMethod > ' ' begin  goto EndLabel end 
10select @UID_QERWorkingMethod = newid() insert into QERWorkingMethod (UID_QERWorkingMethod, Ident_PWODecisionSubMethod , XObjectKey , DaysToAbort, RevisionNumber
11, UID_PWODecisionSubMethod ) select @UID_QERWorkingMethod, s.Ident_PWODecisionSubMethod , dbo.QBM_FCVElementToObjectKey1('QERWorkingMethod', 'UID_QERWorkingMethod'
12, @UID_QERWorkingMethod) , s.DaysToAbort, s.RevisionNumber, s.UID_PWODecisionSubMethod from PWODecisionSubMethod s where s.UID_PWODecisionSubMethod = @uid_PWODecisionSubMethod
13  insert into QERWorkingStep (UID_QERWorkingStep, LevelNumber, Ident_PWODecisionStep, SubLevelNumber, DirectSteps, PositiveSteps, NegativeSteps, LevelDisplay
14, WhereClause, AutomaticReasonTrue , AutomaticReasonFalse, CountApprover, EscalationSteps, MinutesReminder, MinutesAutomaticDecision, AutomaticDecision
15, IsAdditionalAllowed, IsInsteadOfAllowed , IsToHideInHistory, IsNoAutoDecision, ObjectKeyOfAssignedOrg, UID_QERWorkingMethod, UID_PWODecisionRule, UID_AERoleFallBack
16, UID_DialogRichMailInsert, UID_DialogRichMailReminder, UID_DialogRichMailGrant, UID_DialogRichMailNoGrant , UID_DialogRichMailEscalate, UID_DialogRichMailFromDelegat
17, UID_DialogRichMailToDelegat, UID_PWOStateFinalSuccess, UID_PWOStateFinalError , XObjectKey, UID_PWODecisionStep , IgnoreNoDecideForPerson, EscalateIfNoApprover
18 , ApproveReasonType, DenyReasonType ) select UID_QERWorkingStep, LevelNumber, Ident_PWODecisionStep, SubLevelNumber, DirectSteps, PositiveSteps, NegativeSteps
19, LevelDisplay, WhereClause, AutomaticReasonTrue , AutomaticReasonFalse, CountApprover, EscalationSteps, MinutesReminder, MinutesAutomaticDecision, AutomaticDecision
20, IsAdditionalAllowed, IsInsteadOfAllowed , IsToHideInHistory, IsNoAutoDecision, ObjectKeyOfAssignedOrg, @UID_QERWorkingMethod, UID_PWODecisionRule, UID_AERoleFallBack
21, UID_DialogRichMailInsert, UID_DialogRichMailReminder, UID_DialogRichMailGrant, UID_DialogRichMailNoGrant , UID_DialogRichMailEscalate, UID_DialogRichMailFromDelegat
22, UID_DialogRichMailToDelegat, UID_PWOStateFinalSuccess, UID_PWOStateFinalError , dbo.QBM_FCVElementToObjectKey1('QERWorkingStep', 'UID_QERWorkingStep'
23, x.UID_QERWorkingStep), UID_PWODecisionStep , IgnoreNoDecideForPerson, EscalateIfNoApprover , ApproveReasonType, DenyReasonType from ( select newid() 
24as UID_QERWorkingStep , s.* from PWODecisionStep s where s.UID_PWODecisionSubMethod = @uid_PWODecisionSubMethod ) as x insert into @ElementBuffer(uid1,
25 uid2) select s.UID_PWODecisionStep, s.UID_QERWorkingStep from QERWorkingStep s where s.UID_QERWorkingMethod = @UID_QERWorkingMethod union select @uid_PWODecisionSubMethod
26, @UID_QERWorkingMethod select @ElementCount = @@ROWCOUNT select top 1 @LayoutInformation = s.LayoutInformation from PWODecisionSubMethod s where s.UID_PWODecisionSubMethod
27 = @uid_PWODecisionSubMethod if @DebugSwitch > 0 begin print 'Layout alt' + @LayoutInformation end select @ElementIndex = 1 while @ElementIndex <= @ElementCount
28 begin select top 1 @old = bu.uid1 , @new = bu.uid2 from @ElementBuffer bu where bu.ElementIndex = @ElementIndex if @DebugSwitch > 0 begin print '@old '
29 + @old print '@new ' + @new end select @LayoutInformation = replace(@LayoutInformation, @old, @new) select @ElementIndex += 1 end  if @DebugSwitch > 0
30 begin print 'Layout neu' + @LayoutInformation end exec QBM_PSessionContextSet 'QER_PGIQERWorkingMethod', 'TRUE' update QERWorkingMethod set LayoutInformation
31 = @LayoutInformation where UID_QERWorkingMethod = @UID_QERWorkingMethod   exec QBM_PSessionContextSet 'QER_PGIQERWorkingMethod', '' END TRY BEGIN CATCH
32 exec QBM_PSessionErrorAdd default declare @Rethrow varchar(1000) = dbo.QBM_FGISessionErrorRethrow() RAISERROR (@Rethrow, 18, 1) WITH NOWAIT END CATCH 
33EndLabel: exec QBM_PSessionContextSet 'GenProcID', @GenProcID_R return end 
34