dbo.QBM_PBufferC_ProcessOneColumn

1    create   procedure QBM_PBufferC_ProcessOneColumn ( @TableName varchar(30) , @columnname varchar(30) , @ModuleOwner varchar(3)   ) as begin  
2declare @DebugSwitch int = 0  declare @cmd nvarchar(max) declare @xclause nvarchar(1000) declare @IsPKMember bit declare @IsCustomConfigurable bit declare
3 @XUser nvarchar(64) = object_name(@@procid) declare @Xdate datetime = getutcdate() SET XACT_ABORT OFF BEGIN TRY   select top 1 @IsCustomConfigurable =
4 IsCustomConfigurable , @IsPKMember = IsPKMember from DialogColumn c join DialogTable t with (readpast) on c.UID_DialogTable = t.UID_DialogTable where 
5t.TableName = @TableName and c.ColumnName = @columnname if @IsPKMember = 1 or @columnname in ('XObjectKey', 'XUserInserted', 'XUserUpdated', 'Xdateinserted'
6, 'Xdateupdated', 'XTouched') begin  update QBMBufferConfig set xtouched = 'D'  , XDateUpdated = @Xdate , XUserUpdated = @XUser where TableName = @TableName
7 and ColumnName = @columnname and xtouched = 'O' goto nachbearbeitung end if dbo.QBM_FGIColumnExistsInSchema(@TableName , 'XDateupdated') = 1 and @columnname
8 not like 'X[d,u][a,s][t,e][e,r]updated' begin select @xclause = ', XUserupdated = ''' + @xuser + ''' , xdateupdated = getutcdate()' end else begin select
9 @xclause = '--' end    select @cmd = concat('
10	updat','e @TableName @
11		set @columnname@ = 
12@ContentClause@
13		@Xclause@
14	from @TableName @ x join QBMBufferConfig y on x.XObjectKey = y.ObjectKeyOfRow
15										and y.TableName = ''@TableName @''
16										and y.columnname = ''@columnname@''
17	where @IsnullClause@ <> 
18@ContentNull@
19	and ( ( ''CCC'' = ''@ModuleOwner@''
20			and '
21 + str(@IsCustomConfigurable) + ' = 0 
22		  )
23		  or
24		  ( ''CCC'' <> ''@ModuleOwner@''
25			and ' + dbo.QBM_FSQFunctionCallModuleOwner(@TableName, 'x'
26) + ' <> ''@ModuleOwner@''
27		  )			  
28		)
29		
30	')  select @cmd = REPLACE(@cmd, '@IsnullClause@', dbo.QBM_FSQIsNullClauseCmp(@TableName , @columnname
31, N'x')) select @cmd = REPLACE(@cmd, '@ContentClause@',dbo.QBM_FCVStringToIndent( dbo.QBM_FSQCVBufferToColumn(@TableName , @columnname, N'y', 0), 7)) select
32 @cmd = REPLACE(@cmd, '@ContentNull@', dbo.QBM_FCVStringToIndent(dbo.QBM_FSQCVBufferToColumn(@TableName , @columnname, N'y', 1), 7)) select @cmd = REPLACE
33(@cmd, '@Xclause@', @Xclause) select @cmd = replace(REPLACE(@cmd, '@TableName @', @TableName ) , '@columnname@', @columnname) select @cmd = REPLACE(@cmd
34, '@ModuleOwner@', @ModuleOwner) if @DebugSwitch > 0 begin print @cmd print 'go' end   nachbearbeitung: select @cmd = '
35	delete QBMBufferConfig
36		from QBMBufferConfig y join @TableName @ x on y.XObjectKey = x.XObjectKey
37		where y.TableName = ''@TableName @''
38			and y.ColumnName = ''@columnname@''
39			and @IsnullClause@ = 
40@ContentClause@ 
41		'
42  select @cmd = REPLACE(@cmd, '@IsnullClause@', dbo.QBM_FSQIsNullClauseCmp(@TableName , @columnname, N'x')) select @cmd = REPLACE(@cmd, '@ContentClause@'
43, dbo.QBM_FCVStringToIndent(dbo.QBM_FSQcvBufferToColumn(@TableName , @columnname, N'y', 1), 7)) select @cmd = replace(REPLACE(@cmd, '@TableName @', @TableName
44 ) , '@columnname@', @columnname) if @DebugSwitch > 0 begin print @cmd print 'go' end  END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default declare @Rethrow
45 varchar(1000) = dbo.QBM_FGISessionErrorRethrow() RAISERROR (@Rethrow, 18, 1) WITH NOWAIT END CATCH ende: end 
46