dbo.QBM_PViewBuildU_intern

1      create   procedure QBM_PViewBuildU_intern ( @UID_DialogTableU varchar(38) , @GenProcID varchar(38) , @ModuleName varchar(3) = '' , @AutoCorrectColumns
2 bit = 0 ) as begin  declare @SQLcmd nvarchar(max) declare @TableNameU varchar(38) declare @DebugSwitch int = 0 declare @DebugLevel varchar(1) = 'W' declare
3 @XUser nvarchar(64) = object_name(@@procid) declare @Xdate datetime = getutcdate() SET XACT_ABORT OFF BEGIN TRY select @TableNameU = dbo.QBM_FGITableName
4(@UID_DialogTableU) if exists (select top 1 1 from information_schema.tables where table_name = @TableNameu and table_type = 'VIEW' ) and not exists (select
5 top 1 1 from DialogTable t where t.TableName = @TableNameU ) begin exec QBM_PViewDrop @TableNameU end if not exists (select top 1 1 from DialogTable t
6 where t.TableName = @TableNameU and t.TableType = 'U' ) begin goto endLabel end  if not exists (select top 1 1 from DialogTable t where t.UID_DialogTable
7 = @UID_DialogTableU ) begin goto endLabel end if @DebugSwitch > 0 begin select * from QBMViewAddOn where UID_DialogTable = @UID_DialogTableU end  exec
8 QBM_PViewBuild_FromAddOn @UID_DialogTableU if @AutoCorrectColumns = 1 begin exec QBM_PDialogColumnDelete @TableNameU , @GenProcID exec QBM_PDialogColumnInsert
9 @TableNameU , @GenProcID, @ModuleName  if not exists (select top 1 1 from DialogTable t with (readpast) join DialogColumn c with (readpast) on t.UID_DialogTable
10 = c.UID_DialogTable where t.TableName = @TableNameU and c.IsPKMember = 1 ) begin if @DebugSwitch = 1 begin print 'bisher kein PK gefunden' end  Update
11 DialogColumn set IsPKMember = 1 , XDateUpdated = @Xdate , XUserUpdated = @XUser from DialogTable t with (readpast) join DialogColumn c with (readpast)
12 on t.UID_DialogTable = c.UID_DialogTable where t.TableName = @TableNameU and c.ColumnName = 'XObjectKey' end end END TRY BEGIN CATCH exec QBM_PSessionErrorAdd
13 default declare @Rethrow varchar(1000) = dbo.QBM_FGISessionErrorRethrow() RAISERROR (@Rethrow, 18, 1) WITH NOWAIT END CATCH endLabel: return end 
14