dbo.QBM_FSQBufferConfigSaveOrigin

1    create   function dbo.QBM_FSQBufferConfigSaveOrigin (@TableName varchar(30)) returns nvarchar(max) as begin declare @erg nvarchar(max) = N''
2 declare @Header nvarchar(max) = concat('
3-----------------------------------------------------------------------
4-- save to QBMBufferConfig
5-----------------------------------------------------------------------
6  if exists (select top 1 1
7				from deleted d
8				where '
9 , dbo.QBM_FSQFunctionCallModuleOwner (@TableName, 'd') ,' <> ''CCC''
10			)
11		and dbo.QBM_FGISessionContext (''HotfixMode'') = ''''
12	begin
13' ) declare
14 @Footer nvarchar(max) = concat('
15    end -- exists ...  ' , dbo.QBM_FSQFunctionCallModuleOwner (@TableName, 'd') ,'
16-----------------------------------------------------------------------
17-- / save to QBMBufferConfig
18-----------------------------------------------------------------------
19'
20 ) if exists (select top 1 1 from DialogDatabase db with (readpast) where isnull(db.ModuleOwner, '') <> 'CCC' and db.IsMainDatabase = 1 ) begin goto endLabel
21 end select @erg = STRING_AGG( convert(nvarchar(max), '
22if update(' + x.ColumnName + ')
23 begin
24	-- something to insert
25	if exists (select top 1 1
26				from deleted d left outer join QBMBufferConfig cf on d.XObjectKey = cf.ObjectKeyOfRow
27																and cf.TableName = '''
28 + @TableName + '''
29																and cf.ColumnName = ''' + x.ColumnName + '''
30				where cf.ObjectKeyOfRow is null
31				 and ' + dbo.QBM_FSQFunctionCallModuleOwner
32 (@TableName, 'd') +' <> ''CCC''
33			)
34	 begin
35		insert into QBMBufferConfig(UID_QBMBufferConfig, TableName, ColumnName, ObjectKeyOfRow,
36									 XDateInserted, XDateUpdated, XUserInserted, XUserUpdated,
37									 ContentShort, HasContentFull, ContentFull
38									)
39			select newid(), '''
40 + @TableName + ''', ''' + x.ColumnName + ''', d.XObjectKey,
41						getutcdate() , getutcdate(), @ActionUser, @ActionUser,
42' + dbo.QBM_FCVStringToIndent
43( dbo.QBM_FSQCVColumnToBuffer(@TableName , x.ColumnName, 'd'), 17) + '
44			from deleted d join ' + @TableName + ' x on ' + dbo.QBM_FSQTableJoin(@TableName
45 , 'd', 'x') + '
46			where ' + dbo.QBM_FSQIsNullClauseCmp(@TableName , x.ColumnName, 'd') + ' <> ' + dbo.QBM_FSQIsNullClauseCmp(@TableName , x.ColumnName
47, 'x') + '
48			and ' + dbo.QBM_FSQFunctionCallModuleOwner (@TableName, 'd') +' <> ''CCC''
49			and Not exists (select top 1 1 
50							 from QBMBufferConfig cf 
51							 where cf.TableName = '''
52 + @TableName + '''
53							  and cf.ColumnName = ''' + x.ColumnName + ''' 
54							  and cf.ObjectKeyOfRow = d.XObjectKey
55							 )
56	 end --exists something to insert
57
58	-- something to delete
59	if exists (select top 1 1
60				from deleted d join QBMBufferConfig cf on d.XObjectKey = cf.ObjectKeyOfRow
61																and cf.TableName = '''
62 + @TableName + '''
63																and cf.ColumnName = ''' + x.ColumnName + '''
64				where ' + dbo.QBM_FSQFunctionCallModuleOwner (@TableName, 'd') +
65' <> ''CCC''
66			)
67	 begin
68	 
69	 		delete QBMBufferConfig
70			from deleted d  join ' + @TableName + ' x on ' + dbo.QBM_FSQTableJoin(@TableName , 'd',
71 'x') + '
72						join QBMBufferConfig cf on cf.TableName = ''' + @TableName + '''
73												and cf.ColumnName = ''' + x.ColumnName + '''
74												and cf.ObjectKeyOfRow = x.XObjectKey
75			where '
76 + dbo.QBM_FSQIsNullClauseCmp(@TableName , x.ColumnName, 'd') + ' <> ' + dbo.QBM_FSQIsNullClauseCmp(@TableName , x.ColumnName, 'x') + '
77				and ' + dbo.QBM_FSQFunctionCallModuleOwner
78 (@TableName, 'd') +' <> ''CCC''
79				and ' + dbo.QBM_FSQIsNullClauseCmp(@TableName , x.ColumnName, 'x') + ' = ' + dbo.QBM_FSQCVBufferToColumn (@TableName
80 , x.ColumnName , 'cf' , 1 ) + '