dbo.QBM_ZAuthentifierInitial

1    create   procedure QBM_ZAuthentifierInitial ( @SlotNumber int , @dummy1 varchar(38) , @dummy2 varchar(38) , @GenProcIDDummy varchar(38) ) as
2 begin declare @UID_DialogAuthentifier varchar(38) = null declare @DebugSwitch int = 0 declare @CountItems int declare @XUser nvarchar(64) = object_name
3(@@procid) declare @Xdate datetime = getutcdate() BEGIN TRY select top 1 @UID_DialogAuthentifier = d.UID_DialogAuthentifier from DialogDatabase d with 
4(readpast) where d.IsMainDatabase = 1 and d.UID_DialogAuthentifier > ' ' if @DebugSwitch > 0 begin print 'in dialogdatabase ermittelt ' + isnull(@UID_DialogAuthentifier
5, '<null>') end if @UID_DialogAuthentifier is null  or @UID_DialogAuthentifier = 'QBM-740AF63FCA9D40E1A9A28CF076B36BBD' begin update DialogAuthentifier
6 set IsEnabled = 1 , ShowInInterface = 1  , XDateUpdated = @Xdate , XUserUpdated = @XUser where UID_DialogAuthentifier = 'QBM-740AF63FCA9D40E1A9A28CF076B36BBD'
7  and ( IsEnabled = 0 or ShowInInterface = 0 ) select @CountItems = @@ROWCOUNT if @DebugSwitch > 0 begin print 'Eigenschaften DialogUser Authentifier geändert '
8+ str(@CountItems) end end if @UID_DialogAuthentifier > ' ' begin if not exists (select top 1 1 from DialogAuthentifier a where a.UID_DialogAuthentifier
9 = @UID_DialogAuthentifier and a.IsEnabled = 1 and a.ShowInInterface = 1 ) begin select @UID_DialogAuthentifier = null end end if @DebugSwitch > 0 begin
10 print 'NachEigenschaften test ' + isnull(@UID_DialogAuthentifier, '<null>') end if dbo.QBM_FGIDBOwner() <> 'CCC'  begin select top 1 @UID_DialogAuthentifier
11 = a.UID_DialogAuthentifier from DialogAuthentifier a where a.UID_DialogAuthentifier like 'MDK-%' and a.IsEnabled = 1 and a.ShowInInterface = 1 end if 
12@UID_DialogAuthentifier is null begin select top 1 @UID_DialogAuthentifier = a.UID_DialogAuthentifier from DialogAuthentifier a join QBMModuleDef m on 
13left(a.UID_DialogAuthentifier, 3) = m.ModuleName where IsEnabled = 1 and ShowInInterface = 1 order by m.SortOrder desc, a.SortOrder asc, a.ShowInInterface
14 desc end if @DebugSwitch > 0 begin print 'Nach Suche mit Interface ' + isnull(@UID_DialogAuthentifier, '<null>') end if @UID_DialogAuthentifier is null
15 begin select top 1 @UID_DialogAuthentifier = a.UID_DialogAuthentifier from DialogAuthentifier a join QBMModuleDef m on left(a.UID_DialogAuthentifier, 
163) = m.ModuleName where IsEnabled = 1 order by m.SortOrder desc, a.SortOrder asc, a.ShowInInterface desc end if @DebugSwitch > 0 begin print 'Nach Suche ohne Interface '
17 + isnull(@UID_DialogAuthentifier, '<null>') end update dialogdatabase set UID_DialogAuthentifier = @UID_DialogAuthentifier  , XDateUpdated = @Xdate , 
18XUserUpdated = @XUser where ismaindatabase = 1 and isnull(UID_DialogAuthentifier, '') <> isnull(@UID_DialogAuthentifier, '') END TRY BEGIN CATCH exec QBM_PSessionErrorAdd
19 default RAISERROR ('', 18, 1) WITH NOWAIT END CATCH end 
20