dbo.QER_RITShopHelperFill_Cfg

1create   procedure QER_RITShopHelperFill_Cfg (@SlotNumber int) AS begin declare @ObjectKeysToCheck_Projection QBM_YParameterList declare @ObjectKeysToCheck_Jobrunning
2 QBM_YParameterList declare @MyName nvarchar(64) = object_name(@@procid) declare @reduce int declare @DBQueueCurrent QBM_YDBQueueCurrent declare @resetted
3 int declare @DebugSwitch int = 0 declare @DebugLevel varchar(1) = 'W' declare @SlotNumberSource int declare @SlotNumberTarget int declare @DBQueueToMove
4 QBM_YDBQCSCurrentToMove declare @RowsMoved int BEGIN TRY select @reduce = case dbo.QBM_FGIConfigparmValue('QER\ITShop\ReducedApproverCalculation') when
5 'NoRecalc' then 2 when 'CurrentLevel' then 1 else 0 end if @reduce = 2 begin goto endLabel end insert into @DBQueueCurrent(UID_DialogDBQueue, UID_Parameter
6, UID_SubParameter, GenProcID) select UID_DialogDBQueue, UID_Parameter, UID_SubParameter, GenProcID from QBMDBQueueCurrent cu with (readpast) where cu.SlotNumber
7 = @SlotNumber if @@rowcount = 0 begin goto EndLabel end  delete @DBQueueToMove  insert into @DBQueueToMove(UID_DialogDBQueue) select cul.UID_DialogDBQueue
8 from @DBQueueCurrent cul  where exists (select top 1 1 from QBMDBQueueCurrent v with (nolock) where v.UID_Task = 'QER-K-ShoppingRackPWOHelperPWO' and 
9v.UID_Parameter = cul.UID_Parameter and v.SlotNumber > 0 ) if @@ROWCOUNT > 0 begin select @SlotNumberSource = @SlotNumber  select @SlotnumberTarget = 0
10 exec @RowsMoved = QBM_PDBQCS_CurrentMoveSlot @DBQueueToMove, @SlotNumberSource, @SlotnumberTarget  delete @DBQueueCurrent from @DBQueueCurrent cu join
11 @DBQueueToMove mo on cu.UID_DialogDBQueue = mo.UID_DialogDBQueue  if @DebugSwitch > 0 begin exec QBM_PJournal 'QER-K-ShoppingRackPWOHelperPWO in dbqueueCurrent gefunden'
12, @@procid, 'D', @DebugLevel end end  insert into @ObjectKeysToCheck_Jobrunning(Parameter1, Parameter2) select x.UID_PersonWantsOrg, x.XObjectKey from 
13@DBQueueCurrent cu join PersonwantsOrg x with (readpast) on cu.UID_Parameter = x.UID_PersonWantsOrg union all select cu.UID_parameter, p.XObjectKey from
14 @DBQueueCurrent cu join PersonwantsOrg x with (readpast) on cu.UID_Parameter = x.UID_PersonWantsOrg join Person p on x.UID_PersonOrdered = p.UID_Person
15  exec @resetted = QBM_PSlotResetWhileJobRun_L @DBQueueCurrent, @@PROCID, @ObjectKeysToCheck_Jobrunning, @SlotNumber = @SlotNumber  END TRY BEGIN CATCH
16 exec QBM_PSessionErrorAdd default RAISERROR ('', 18, 1) WITH NOWAIT END CATCH endLabel: end 
17