35 lines
2.2 KiB
Transact-SQL
35 lines
2.2 KiB
Transact-SQL
ALTER TRIGGER dbo.TBPMO_FORM_AFT_INS ON dbo.TBPMO_FORM
|
||
WITH EXECUTE AS CALLER
|
||
FOR INSERT
|
||
AS
|
||
BEGIN TRY
|
||
DECLARE
|
||
@FORM_ID INTEGER,
|
||
@FORM_TYPE INTEGER
|
||
--@SQL_RECORD1 VARCHAR(500),
|
||
--@SQL_RECORD2 VARCHAR(500)
|
||
SELECT
|
||
@FORM_ID = GUID,
|
||
@FORM_TYPE = FORM_TYPE_ID
|
||
FROM INSERTED
|
||
|
||
IF @FORM_TYPE = 5
|
||
BEGIN
|
||
INSERT INTO TBPMO_CONTROL (
|
||
FORM_ID, CONTROL_TYPE_ID, DEFAULT_VALUE, NAME, [COL_NAME]) VALUES (
|
||
@FORM_ID,2,'GROUP_RECORD','txtGROUP_RECORD','GROUP_RECORD')
|
||
DECLARE @CTRL_ID INTEGER
|
||
SELECT @CTRL_ID = MAX(GUID) FROM TBPMO_CONTROL WHERE FORM_ID = @FORM_ID
|
||
INSERT INTO TBPMO_CONTROL_SCREEN (
|
||
CONTROL_ID, SCREEN_ID, CONTROL_TEXT, X_LOC, Y_LOC, HEIGHT, WIDTH, TAB_INDEX) VALUES (
|
||
@CTRL_ID, 1, 'GROUP_RECORD', 5, 5, 22, 100,1)
|
||
END
|
||
|
||
EXEC dbo.PRPMO_CREATE_SQL @FORM_ID
|
||
EXEC dbo.PRPMO_CREATE_TEMP_VIEWS
|
||
END TRY
|
||
BEGIN CATCH
|
||
PRINT 'FEHLER IN TRIGGER: ' + CONVERT(VARCHAR(30),ERROR_PROCEDURE()) + ' - ZEILE: ' + CONVERT(VARCHAR(10),ERROR_LINE())
|
||
+ ' - FEHLER-MESSAGE: '
|
||
+ CONVERT(VARCHAR(500),ERROR_MESSAGE())
|
||
END CATCH |