dbo.QER_ZDynamicGroupTest

1      create   procedure QER_ZDynamicGroupTest (@SlotNumber int , @UID_DynamicGroup varchar(38) , @SubObject varchar(38) , @GenProcID varchar(38
2) ) as begin declare @procnameRechneAlle nvarchar(64) declare @Erg int = 0   declare @DebugLevel char(1) = 'W' declare @GenProcID_R varchar(38) = dbo.QBM_FGISessionContext
3('') declare @SlotNumberSource int declare @SlotNumberTarget int declare @DBQueueToMove QBM_YDBQCSCurrentToMove declare @RowsMoved int BEGIN TRY  select
4 @ProcNameRechneAlle = dbo.QER_FCVDynGuidToProcName(@uid_DynamicGroup, 'All')  if not exists (select top 1 1 from sys.procedures where name = @ProcNameRechneAlle
5 and type = 'P' ) begin goto endLabel end  exec QBM_PSessionContextSet 'GenProcID', @GenProcID exec @erg = @ProcNameRechneAlle @SlotNumber Nachbehandlung:
6 if @erg > 0  begin delete @DBQueueToMove  insert into @DBQueueToMove(UID_DialogDBQueue) select cul.UID_DialogDBQueue from QBMDBQueueCurrent cul  where
7 cul.SlotNumber = @SlotNumber and cul.UID_Parameter = @UID_DynamicGroup if @@ROWCOUNT > 0 begin select @SlotNumberSource = @SlotNumber  select @SlotnumberTarget
8 = dbo.QBM_FGIDBQueueSlotResetType('DBQueue') exec @RowsMoved = QBM_PDBQCS_CurrentMoveSlot @DBQueueToMove, @SlotNumberSource, @SlotnumberTarget exec QBM_PJournal
9 '#LDS#Deferring operations {0} because Jobs are still running for this dynamic role.|DynamicGroupTest|', @@procid, 'D', @DebugLevel end end END TRY BEGIN
10 CATCH exec QBM_PSessionErrorAdd default RAISERROR ('', 18, 1) WITH NOWAIT END CATCH  endLabel: exec QBM_PSessionContextSet 'GenProcID', @GenProcID_R return
11 end 
12