M =: V_ID; . lastdate=CURRENT_TIMESTAMP;. username=user;
^
/ * Trigger: TR_L_THEM_BU * / TRIGGER TR_L_THEM_BU FOR L_THEMBEFORE UPDATE POSITION 0.lastdate=CURRENT_TIMESTAMP;. username=user;
^
/ * Trigger: TR_L_USER_BI * / TRIGGER TR_L_USER_BI FOR L_USERBEFORE INSERT POSITION 0VARIABLE v_ID integer; (NEW.ID_USER IS NULL) THENGEN_ID (G_ID_USER, 1) RDB $ DATABASE: v_ID;. ID_USER =: V_ID; . lastdate=CURRENT_TIMESTAMP;. username=user;
^
/ * Trigger: TR_L_USER_BU * / TRIGGER TR_L_USER_BU FOR L_USERBEFORE UPDATE POSITION 0.lastdate=CURRENT_TIMESTAMP;. username=user;
^
/ * Trigger: TR_L_USER_GROUP_BI * / TRIGGER TR_L_USER_GROUP_BI FOR L_USER_GROUPBEFORE INSERT POSITION 0VARIABLE v_ID integer; (NEW.ID_USER_GROUP IS NULL) THENGEN_ID (G_ID_USER_GROUP, 1) RDB $ DATABASE: v_ID;. ID_USER_GROUP =: V_ID; . lastdate=CURRENT_TIMESTAMP;. username=user;
^
/ * Trigger: TR_L_USER_GROUP_BU * / TRIGGER TR_L_USER_GROUP_BU FOR L_USER_GROUPBEFORE UPDATE POSITION 0.lastdate=CURRENT_TIMESTAMP;. username=user;
^
/ * Trigger: TR_S_QUERY_TYPE_BI * / TRIGGER TR_S_QUERY_TYPE_BI FOR S_QUERY_TYPEBEFORE INSERT POSITION 0VARIABLE v_ID integer; (NEW.ID_QUERY_TYPE IS NULL) THENGEN_ID (G_ID_QUERY_TYPE, 1) RDB $ DATABASE: v_ID;. ID_QUERY_TYPE =: V_ID; . lastdate=CURRENT_TIMESTAMP;. username=user;
^
/ * Trigger: TR_S_QUERY_TYPE_BU * / TRIGGER TR_S_QUERY_TYPE_BU FOR S_QUERY_TYPEBEFORE UPDATE POSITION 0.lastdate=CURRENT_TIMESTAMP;. username=user;
^ TERM; ^
/ ***************************************** ************************************* /
/ *** Stored Procedures *** /
/ ***************************************** ************************************* / TERM ^; PROCEDURE ADD_VARIANT (_ID_QUESTION INTEGER, _TEXT VARCHAR ( 128), _IS_CORRECT INTEGER, _SCORE DOUBLE PRECISION) (INTEGER) (in_ID_QUESTION IS NULL) THEN; (IN_TEXT IS NULL) THEN IN_TEXT=«»; (IN_IS_CORRECT IS NULL) THEN IN_IS_CORRECT=0; (IN_SCORE IS NULL) THEN IN_SCORE =0.0; COUNT (*) FROM L_ANSWER WHERE ID_QUERY =: IN_ID_QUESTIONi; (i <5) THENINTO L_ANSWER (ID_QUERY, TEXT, IS_CORRECT, SCORE) (: IN_ID_QUESTION,: IN_TEXT,: IN_IS_CORRECT,: IN_SCORE);; ^ PROCEDURE GENERATE_TRIGGER ( _TRIG_TEXT VARCHAR (10000)) VARIABLE V_TAB VARCHAR (50); VARIABLE V_ATR VARCHAR (50); TRIM (TAB), TRIM (ATR) HEL: V_TAB,: V_ATRBEGIN_TRIG_TEXT=«CREATE OR ALTER TRIGGER TR_» | | V_TAB | | « ; _BI FOR » | | V_TAB | |
« ACTIVE BEFORE INSERT POSITION 0VARIABLE v_ID integer; (NEW. »| | V_ATR | |« IS NULL) THENGEN_ID (G_ »| | V_ATR | |«, 1) RDB $ DATABASE: v_ID;. »| | V_ATR | | « =: V_ID;. Lastdate=CURRENT_TIMESTAMP;. Username=user;; »; STATEMENT: OUT_TRIG_TEXT;; _TRIG_TEXT =« CREATE OR ALTER TRIGGER TR_ »| | V_TAB | |« _BU FOR » | | V_TAB | |
« ACTIVE BEFORE UPDATE POSITION 0.lastdate=CURRENT_TIMESTAMP;. Username=user;; »; STATEMENT: OUT_TRIG_TEXT;; ^ PROCEDURE REP_GET_QUERY_TEXT (_ID_QUERY INTEGER) (VARCHAR (512)) TEXTL_QUERYID_QUERY =: in_ID_QUERY: text; (: text is null) THEN=«»;; ^ PROCEDURE REP_GET_QUESTION_LIST (_ID_TEST INTEGE...
