dbo.CPL_ZSubRuleFillObject

1        create   procedure CPL_ZSubRuleFillObject ( @Slotnumber int , @uid_complianceSubrule varchar(38) , @Dummy1 varchar(38) , @GenProcID varchar
2(38) ) AS begin declare @Sourcedata QBM_YDataForDelta , @CountDeltaQantity int , @CountDeltaOrigin int declare @SQLcmd nvarchar(max) declare @whereclause
3 nvarchar(max) declare @uid_ComplianceRule varchar(38) declare @isSimpleMode bit declare @IsInactive bit declare @IsWorkingCopy bit declare @ElementCount
4 int declare @ElementIndex int declare @ElementLast int declare @GenProcID_R varchar(38) = dbo.QBM_FGISessionContext('') BEGIN TRY select top 1 @whereclause
5 = whereclause, @uid_complianceRule = uid_complianceRule from ComplianceSubRule where uid_complianceSubrule = @uid_complianceSubrule select @isSimpleMode
6 = null select @isSimpleMode = isSimplemode, @IsInactive = isnull(IsInactive,0), @IsWorkingCopy = isnull(IsWorkingCopy,0) from ComplianceRule  where uid_complianceRule
7 = @uid_complianceRule if isnull(@whereclause, N'') = '' or isnull(@isSimpleMode, 0) = 0 or @IsInactive = 1 or @IsWorkingCopy = 1 begin exec QBM_PSessionContextSet
8 'GenProcID', @GenProcID delete ComplianceSubRuleObject where uid_complianceSubrule = @uid_complianceSubrule goto endLabel end insert into @SourceData(
9 IsUpcommingContent, XOriginAfter , Element, AssignedElement, XOriginBefore ) select 0, 0 , uid_complianceSubrule, ObjectKeyElement, 1  from ComplianceSubRuleObject
10 where uid_complianceSubrule = @uid_complianceSubrule select @SQLcmd = N'
11		select 1, 0,  1 
12			, uid_complianceSubRule, ObjectKeyElement
13		from ( '
14 + @whereclause + '
15			) as x 
16	--where ' + convert(nvarchar(16), @isinactive) + '  = 0
17	--and ' + convert(nvarchar(16), @isworkingCopy) + ' = 0
18' 
19insert into @SourceData( IsUpcommingContent, XOriginBefore, XOriginAfter , Element, AssignedElement ) exec QBM_PExecuteSQLWithRetry_LLP @SQLStatement =
20 @SQLcmd , @LockTimeout_ms = default , @MaxWaitTimeForLock_s = default , @ProcIDForJournal = @@procid , @HandleErrorSilent = 0  berechnen: exec QBM_PDBQueueCalculateDelta
21 @SourceData, @DeltaQuantity = 0, @DeltaDelete = 1, @DeltaInsert = 1, @DeltaOrigin = 0, @CountDeltaQantity = @CountDeltaQantity output , @CountDeltaOrigin
22 = @CountDeltaOrigin output , @UseIsInEffect = 0 , @SlotNumber = @SlotNumber  if @CountDeltaQantity > 0 begin declare @GenProcIDs_CountDeltaQuantity QBM_YCursorBuffer
23 insert into @GenProcIDs_CountDeltaQuantity (UID1) select de.GenProcID from #QBMDeltaDelete de union select de.GenProcID from #QBMDeltaInsert de select
24 @ElementCount = @@ROWCOUNT select @ElementIndex = @@IDENTITY - @ElementCount +1 select @ElementLast = @@IDENTITY while @ElementIndex <= @ElementLast begin
25 select top 1 @GenProcID = bu.UID1 from @GenProcIDs_CountDeltaQuantity bu where bu.ElementIndex = @ElementIndex if exists (select top 1 1 from #QBMDeltaDelete
26 x where x.GenProcID = @GenProcID ) begin exec QBM_PSessionContextSet 'GenProcID', @GenProcID delete from ComplianceSubRuleObject where exists (select 
27top 1 1 from #QBMDeltaDelete d where d.Element = ComplianceSubRuleObject.uid_complianceSubrule and d.AssignedElement = ComplianceSubRuleObject.ObjectKeyElement
28  and d.GenProcID = @GenProcID ) end  if exists (select top 1 1 from #QBMDeltaInsert x where x.GenProcID = @GenProcID ) begin exec QBM_PSessionContextSet
29 'GenProcID', @GenProcID insert into ComplianceSubRuleObject (UID_ComplianceSubRuleObject, uid_complianceSubrule, ObjectKeyElement ) select newid(), Element
30, AssignedElement  from #QBMDeltaInsert where GenProcID = @GenProcID end  select @ElementIndex += 1 end  end  END TRY BEGIN CATCH exec QBM_PSessionErrorAdd
31 default RAISERROR ('', 18, 1) WITH NOWAIT END CATCH  endLabel: exec QBM_PSessionContextSet 'GenProcID', @GenProcID_R return end 
32