dbo.QBM_FSQTriggerDef

1   create   function dbo.QBM_FSQTriggerDef (@TriggerName varchar(30) , @TableName varchar(30) , @Operation varchar(30) , @UserDefinedBody nvarchar
2(max) , @Declarations nvarchar(max) = N''  , @SourceName nvarchar(256) = N''  ) returns nvarchar(max) as begin declare @TableType varchar(1) select top
3 1 @TableType = TableType from DialogTable with (readpast) where TableName = @TableName if @TableType in ( 'M') begin goto endLabel end declare @erg nvarchar
4(max) select @erg = N'create or alter Trigger dbo.' + @Triggername + N' on ' + @TableName + N'
5	-- with encryption 
6	' + case when @TableType in ('R'
7, 'P', 'U') then N' instead of ' else N' for ' end + @Operation + N'
8	not for replication 
9as 
10 begin 
11	-- exec QBM_PProcedureNestLevelCheck @@ProcID
12	 
13 declare @GenProcID varchar(38) = dbo.QBM_FGISessionContext('''')
14 declare @ActionUser nvarchar(64) = dbo.QBM_FGISessionContext(''XUser'')
15 declare @operationLevel int
16
17-- user defined vars
18'
19 + @Declarations + N'
20-- / user defined vars' if @operation in ('insert', 'update') begin select @erg= @erg+ N'
21	if exists (select top 1 1 from inserted) goto start'
22 end if @operation in ('delete', 'update') begin select @erg = @erg+ N'
23	if exists (select top 1 1 from deleted) goto start' end select @erg = @erg+ N'		
24		goto endLabel
25 start:
26BEGIN TRY
27select @operationLevel = dbo.QBM_FCVStringToInt(dbo.QBM_FGISessionContext(''operationLevel''), 0) + @@nestlevel -1 
28-- user defined body
29'
30 + @UserDefinedBody + N'
31-- / user defined body
32END TRY
33BEGIN CATCH
34
35	exec QBM_PSessionErrorAdd default' + case when @SourceName > ' ' then N'	, '
36 + dbo.QBM_FSQStringAsLiteral(@SourceName, 1, 0) else N'' end + N'
37
38	RAISERROR ('''', 18, 1)  WITH NOWAIT
39
40END CATCH
41	                                	        	
42endLabel:
43	return 
44end'
45  endLabel: return(@erg) end 
46