dbo.QER_PSlotResetOnInvalidRoot_L

1create   procedure QER_PSlotResetOnInvalidRoot_L (@DBQueueCurrent QBM_YDBQueueCurrent readonly , @UID_BasetreeAssignToUse varchar(38) , @SlotNumber
2 int ) as begin declare @erg int = 0 declare @DebugSwitch int = 0 declare @UnComment bit = 1 ,@Unformat bit = 1 declare @DebugLevel char(1) = 'W' declare
3 @ProcName varchar(30) declare @ProcDef nvarchar(max) declare @ProcBody nvarchar(max) declare @OutstandingTest nvarchar(1000) declare @SourceName nvarchar
4(1000) declare @anlegenklappt bit = 0 declare @waitTime float SET XACT_ABORT OFF BEGIN TRY select @ProcName = dbo.QBM_FGICodeName('PSR', @UID_BasetreeAssignToUse
5)  if @DebugSwitch > 0 begin select @UnComment = 0 , @Unformat = 0 print @ProcName  end while not exists (select top 1 1 from sys.objects o where o.name
6 = @ProcName ) begin if @DebugSwitch > 0 begin print 'dann bauen wir eine' end select @waitTime = convert(float, @@spid) / 1000.0 exec QBM_PWaitForSeconds
7 @waittime select @ProcBody = CONCAT( '
8 declare @SlotNumberSource int
9 declare @SlotNumberTarget int
10 declare @DBQueueToMove QBM_YDBQCSCurrentToMove 
11 
12	SET XACT_ABORT OFF
13
14 	-- befüllen mit den interessanten Einträgen
15	insert into @DBQueueToMove(UID_DialogDBQueue)
16		select cul.UID_DialogDBQueue
17			from @DBQueueCurrent cul  -- Suchbedingung
18									join BaseTree b with (readpast) on cul.UID_Parameter = b.UID_Org
19									left outer join OrgRootAssign ra with (readpast) on ra.UID_OrgRoot = b.UID_OrgRoot
20																	and ra.UID_BaseTreeAssign = '''
21, @UID_BasetreeAssignToUse, '''
22																	and ra.IsAssignmentAllowed = 1
23			where ra.UID_OrgRoot is null
24
25	if @@ROWCOUNT > 0
26	 begin
27
28		select @SlotNumberSource = @SlotNumber -- die übergebene Slotnummer
29		select @SlotnumberTarget = 0
30																			
31		exec @ret = QBM_PDBQCS_CurrentMoveSlot @DBQueueToMove, @SlotNumberSource, @SlotnumberTarget
32
33	  end
34
35				'
36 ) select @SourceName = concat('QER_PSlotResetOnInvalidRoot_L' , '(' , @UID_BasetreeAssignToUse , ')' ) select @procdef = dbo.QBM_FSQProcedureDef(@ProcName
37 , '@DBQueueCurrent QBM_YDBQueueCurrent readonly
38												, @SlotNumber int ' , @ProcBody , @SourceName ) if @DebugSwitch > 0 begin print @procdef 
39end    begin transaction if not exists (select top 1 1 from sys.objects o where o.name = @ProcName ) begin BEGIN TRY exec QBM_PSQLCreate @Procname, 'P'
40, @procDef, @UnComment = @UnComment, @Unformat = @Unformat select @anlegenklappt = 1 END TRY BEGIN CATCH if @DebugSwitch > 0 begin print 'catch beim Anlegen?'
41 end select @anlegenklappt = 0  END CATCH end  if @anlegenklappt = 1 begin commit end else begin rollback  end  select @waitTime = (convert(float, @@spid
42) / 1000.0) + 0.4 exec QBM_PWaitForSeconds @waittime end   exec @erg = @ProcName @DBQueueCurrent, @SlotNumber END TRY BEGIN CATCH exec QBM_PSessionErrorAdd
43 default declare @Rethrow varchar(1000) = dbo.QBM_FGISessionErrorRethrow() RAISERROR (@Rethrow, 18, 1) WITH NOWAIT END CATCH  endLabel: return (@erg) end
44 
45