dbo.ATT_ZAttHelperFill_Recalc

1   create   procedure ATT_ZAttHelperFill_Recalc ( @SlotNumberDummy int , @dummy1 varchar(38) , @Dummy2 varchar(38) , @GenProcIDDummy varchar(38)
2 ) as begin declare @DebugSwitch int = 0 declare @ElementLast int declare @ElementCount int declare @ElementIndex int declare @RulesAndFunctions QBM_YCursorBuffer
3 declare @FunctionName varchar(30) declare @SQLCmd nvarchar(max) declare @UID_PWODecisionRule varchar(38) declare @GenProcID varchar(38) declare @AttTaskToUse
4 varchar(38) = dbo.ATT_FGIPWOTaskToUse() BEGIN TRY if dbo.QBM_FGIConfigparmValue('QER\Attestation') = '' begin goto endLabel end if @AttTaskToUse > ' '
5 begin declare @DBQueueElements_01 QBM_YDBQueueRaw insert into @RulesAndFunctions (UID1, Ident1, UID2) select UID_PWODecisionRule, dbo.QER_FCVRuleGUIDToFuncNameReclc
6(UID_PWODecisionRule), max(GenProcID) from QERBufferRecalcDecisionMaker with (readpast) where UsageArea = 'A' and ProcessState = 0 group by UID_PWODecisionRule
7, dbo.QER_FCVRuleGUIDToFuncNameReclc(UID_PWODecisionRule) select @ElementCount = @@ROWCOUNT select @ElementIndex = @@IDENTITY - @ElementCount +1 select
8 @ElementLast = @@IDENTITY while @ElementIndex <= @ElementLast begin select top 1 @FunctionName = p.Ident1 , @UID_PWODecisionRule = p.UID1 , @GenProcID
9 = p.UID2 from @RulesAndFunctions p where p.ElementIndex = @ElementIndex update QERBufferRecalcDecisionMaker set ProcessState = 1 from QERBufferRecalcDecisionMaker
10 with (readpast) where UID_PWODecisionRule = @UID_PWODecisionRule and ProcessState = 0  if exists (select top 1 1 from AttestationHelper where UID_PWODecisionRule
11 = @UID_PWODecisionRule) begin  if exists (select top 1 1 from sys.objects o where o.name = @FunctionName and o.type in ('IF'  , 'TF'  ) ) begin select
12 @SQLcmd = concat('
13							select x.uid, null,  x.GenProcID
14							from (	 
15								  select distinct ac.UID_AttestationCase as uid, ''', @GenProcID
16, ''' as GenProcID
17									from pwodecisionrule r join QERWorkingStep ps on  ps.UID_PWODecisionRule = r.UID_PWODecisionRule
18															join AttestationCase a on ps.UID_QERWorkingMethod = a.UID_QERWorkingMethod
19															join dbo.'
20, @FunctionName, ' () ac on ac.UID_AttestationCase = a.UID_AttestationCase
21									where r.UID_PWODecisionRule = ''', @UID_PWODecisionRule, '''
22										and r.UsageArea =''A''
23										and r.UID_Task is null -- keine Systementscheidung
24									-- oder es gibt potentiell was zu löschen
25									or exists ( select top 1 1
26												from AttestationHelper h
27												where h.UID_AttestationCase = ac.UID_AttestationCase
28												)
29
30								) as x
31							-- 33082 hier haben wir uns wohl die Karten gelegt durch das Abschalten des CheckForExisting im QBM_PDBQueueInsert_Bulk
32							where not exists (select top 1 1
33												from DialogDBQueue q with (nolock)
34												where q.UID_Task = '''
35, @AttTaskToUse, '''
36												and q.Object = x.uid
37												and q.Generation >= 0
38											)
39									') delete @DBQueueElements_01 insert 
40into @DBQueueElements_01 (object, subobject, genprocid) exec sp_executesql @SQLcmd exec QBM_PDBQueueInsert_Bulk @AttTaskToUse, @DBQueueElements_01 end 
41else  begin delete @DBQueueElements_01 insert into @DBQueueElements_01 (object, subobject, genprocid) select x.uid, null, x.GenProcID from ( select distinct
42 ac.UID_AttestationCase as uid, @GenProcID as GenProcID from pwodecisionrule r join QERWorkingStep ps on ps.UID_PWODecisionRule = r.UID_PWODecisionRule
43 join AttestationCase ac on ps.UID_QERWorkingMethod = ac.UID_QERWorkingMethod where r.UID_PWODecisionRule = @UID_PWODecisionRule and r.UsageArea ='A' and
44 r.UID_Task is null   or exists ( select top 1 1 from AttestationHelper h where h.UID_AttestationCase = ac.UID_AttestationCase ) ) as x  where not exists
45 (select top 1 1 from DialogDBQueue q with (nolock) where q.UID_Task = @AttTaskToUse and q.Object = x.uid and q.Generation >= 0 ) exec QBM_PDBQueueInsert_Bulk
46 @AttTaskToUse, @DBQueueElements_01 end  end  update QERBufferRecalcDecisionMaker set ProcessState = 2 where UID_PWODecisionRule = @UID_PWODecisionRule
47 and ProcessState = 1 select @ElementIndex += 1 end  end else begin update QERBufferRecalcDecisionMaker set ProcessState = 2 where UsageArea = 'A' and 
48ProcessState = 0 end END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default RAISERROR ('', 18, 1) WITH NOWAIT END CATCH endLabel: return end 
49