33 lines
2.1 KiB
Transact-SQL
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

ALTER TRIGGER TBPMO_FORM_AFT_UPD ON dbo.TBPMO_FORM
FOR UPDATE
AS
IF UPDATE (FORM_TYPE_ID)
BEGIN
DECLARE
@FORM_ID INTEGER,
@FORM_TYPE INTEGER
SELECT
@FORM_ID = GUID,
@FORM_TYPE = FORM_TYPE_ID
FROM INSERTED
IF @FORM_TYPE = 5
BEGIN
IF (SELECT COUNT(*) FROM TBPMO_CONTROL WHERE FORM_ID = @FORM_ID) = 0
BEGIN
INSERT INTO TBPMO_CONTROL (
FORM_ID, CONTROL_TYPE_ID, DEFAULT_VALUE, NAME, [COL_NAME],SHOW_COLUMN) VALUES (
@FORM_ID,2,'GROUP_RECORD','txtGROUP_RECORD','GROUP_RECORD',1)
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
END
UPDATE TBPMO_FORM SET CHANGED_WHEN = GETDATE() FROM INSERTED WHERE TBPMO_FORM.GUID = INSERTED.GUID