194 lines
8.6 KiB
Plaintext
194 lines
8.6 KiB
Plaintext
CREATE OR REPLACE TRIGGER EFT_NOM.cg$BIR_CUSTOMERS
|
|
|
|
BEFORE INSERT ON CUSTOMERS FOR EACH ROW
|
|
DECLARE
|
|
cg$rec cg$CUSTOMERS.cg$row_type;
|
|
cg$ind cg$CUSTOMERS.cg$ind_type;
|
|
BEGIN
|
|
-- Application_logic Pre-Before-Insert-row <<Start>>
|
|
-- Application_logic Pre-Before-Insert-row << End >>
|
|
|
|
-- Load cg$rec/cg$ind values from new
|
|
|
|
cg$rec.CREATED_BY := :new.CREATED_BY;
|
|
IF (:new.CREATED_BY IS NULL) THEN
|
|
cg$ind.CREATED_BY := FALSE;
|
|
ELSE
|
|
cg$ind.CREATED_BY := TRUE;
|
|
END IF;
|
|
cg$rec.CUST_ID := :new.CUST_ID;
|
|
cg$ind.CUST_ID := TRUE;
|
|
cg$rec.CODE := :new.CODE;
|
|
cg$ind.CODE := TRUE;
|
|
cg$rec.NAME := :new.NAME;
|
|
cg$ind.NAME := TRUE;
|
|
cg$rec.PERIOD_START := :new.PERIOD_START;
|
|
cg$ind.PERIOD_START := TRUE;
|
|
cg$rec.DESCRIPTION := :new.DESCRIPTION;
|
|
cg$ind.DESCRIPTION := TRUE;
|
|
cg$rec.PERIOD_END := :new.PERIOD_END;
|
|
cg$ind.PERIOD_END := TRUE;
|
|
cg$rec.EMAIL_ADDRESS := :new.EMAIL_ADDRESS;
|
|
cg$ind.EMAIL_ADDRESS := TRUE;
|
|
cg$rec.TELEPHONE := :new.TELEPHONE;
|
|
cg$ind.TELEPHONE := TRUE;
|
|
cg$rec.FAX := :new.FAX;
|
|
cg$ind.FAX := TRUE;
|
|
cg$rec.CREATED_ON := :new.CREATED_ON;
|
|
IF (:new.CREATED_ON IS NULL) THEN
|
|
cg$ind.CREATED_ON := FALSE;
|
|
ELSE
|
|
cg$ind.CREATED_ON := TRUE;
|
|
END IF;
|
|
cg$rec.UPDATED_BY := :new.UPDATED_BY;
|
|
cg$ind.UPDATED_BY := TRUE;
|
|
cg$rec.UPDATED_ON := :new.UPDATED_ON;
|
|
cg$ind.UPDATED_ON := TRUE;
|
|
cg$rec.CUTY_ID := :new.CUTY_ID;
|
|
cg$ind.CUTY_ID := TRUE;
|
|
cg$rec.PRIMARY_CONTACT := :new.PRIMARY_CONTACT;
|
|
cg$ind.PRIMARY_CONTACT := TRUE;
|
|
cg$rec.PRIMARY_CONTACT_TEL := :new.PRIMARY_CONTACT_TEL;
|
|
cg$ind.PRIMARY_CONTACT_TEL := TRUE;
|
|
cg$rec.KAM_MANAGER_SYUS_ID := :new.KAM_MANAGER_SYUS_ID;
|
|
cg$ind.KAM_MANAGER_SYUS_ID := TRUE;
|
|
cg$rec.KAM_TELEPHONE := :new.KAM_TELEPHONE;
|
|
cg$ind.KAM_TELEPHONE := TRUE;
|
|
cg$rec.STATUS := :new.STATUS;
|
|
cg$ind.STATUS := TRUE;
|
|
cg$rec.LETTER_SUBJECT := :new.LETTER_SUBJECT;
|
|
cg$ind.LETTER_SUBJECT := TRUE;
|
|
cg$rec.LETTER_CONTENT := :new.LETTER_CONTENT;
|
|
cg$ind.LETTER_CONTENT := TRUE;
|
|
cg$rec.CONFIRMATION_HEADER := :new.CONFIRMATION_HEADER;
|
|
cg$ind.CONFIRMATION_HEADER := TRUE;
|
|
cg$rec.CONFIRMATION_ADDRESS := :new.CONFIRMATION_ADDRESS;
|
|
cg$ind.CONFIRMATION_ADDRESS := TRUE;
|
|
cg$rec.AUTO_GEN_CONF_AM := :new.AUTO_GEN_CONF_AM;
|
|
cg$ind.AUTO_GEN_CONF_AM := TRUE;
|
|
cg$rec.AUTO_GEN_CONF_PM := :new.AUTO_GEN_CONF_PM;
|
|
cg$ind.AUTO_GEN_CONF_PM := TRUE;
|
|
cg$rec.IND_DEADLINE_FOR_NOM_SUBMIT := :new.IND_DEADLINE_FOR_NOM_SUBMIT;
|
|
cg$ind.IND_DEADLINE_FOR_NOM_SUBMIT := TRUE;
|
|
|
|
if not (cg$CUSTOMERS.called_from_package) then
|
|
cg$CUSTOMERS.validate_arc(cg$rec);
|
|
cg$CUSTOMERS.validate_domain(cg$rec);
|
|
|
|
cg$CUSTOMERS.ins(cg$rec, cg$ind, FALSE);
|
|
cg$CUSTOMERS.called_from_package := FALSE;
|
|
end if;
|
|
|
|
cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).CREATED_BY := cg$rec.CREATED_BY;
|
|
cg$CUSTOMERS.cg$tableind(cg$CUSTOMERS.idx).CREATED_BY := cg$ind.CREATED_BY;
|
|
|
|
cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).CUST_ID := cg$rec.CUST_ID;
|
|
cg$CUSTOMERS.cg$tableind(cg$CUSTOMERS.idx).CUST_ID := cg$ind.CUST_ID;
|
|
|
|
cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).CODE := cg$rec.CODE;
|
|
cg$CUSTOMERS.cg$tableind(cg$CUSTOMERS.idx).CODE := cg$ind.CODE;
|
|
|
|
cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).NAME := cg$rec.NAME;
|
|
cg$CUSTOMERS.cg$tableind(cg$CUSTOMERS.idx).NAME := cg$ind.NAME;
|
|
|
|
cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).PERIOD_START := cg$rec.PERIOD_START;
|
|
cg$CUSTOMERS.cg$tableind(cg$CUSTOMERS.idx).PERIOD_START := cg$ind.PERIOD_START;
|
|
|
|
cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).DESCRIPTION := cg$rec.DESCRIPTION;
|
|
cg$CUSTOMERS.cg$tableind(cg$CUSTOMERS.idx).DESCRIPTION := cg$ind.DESCRIPTION;
|
|
|
|
cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).PERIOD_END := cg$rec.PERIOD_END;
|
|
cg$CUSTOMERS.cg$tableind(cg$CUSTOMERS.idx).PERIOD_END := cg$ind.PERIOD_END;
|
|
|
|
cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).EMAIL_ADDRESS := cg$rec.EMAIL_ADDRESS;
|
|
cg$CUSTOMERS.cg$tableind(cg$CUSTOMERS.idx).EMAIL_ADDRESS := cg$ind.EMAIL_ADDRESS;
|
|
|
|
cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).TELEPHONE := cg$rec.TELEPHONE;
|
|
cg$CUSTOMERS.cg$tableind(cg$CUSTOMERS.idx).TELEPHONE := cg$ind.TELEPHONE;
|
|
|
|
cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).FAX := cg$rec.FAX;
|
|
cg$CUSTOMERS.cg$tableind(cg$CUSTOMERS.idx).FAX := cg$ind.FAX;
|
|
|
|
cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).CREATED_ON := cg$rec.CREATED_ON;
|
|
cg$CUSTOMERS.cg$tableind(cg$CUSTOMERS.idx).CREATED_ON := cg$ind.CREATED_ON;
|
|
|
|
cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).UPDATED_BY := cg$rec.UPDATED_BY;
|
|
cg$CUSTOMERS.cg$tableind(cg$CUSTOMERS.idx).UPDATED_BY := cg$ind.UPDATED_BY;
|
|
|
|
cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).UPDATED_ON := cg$rec.UPDATED_ON;
|
|
cg$CUSTOMERS.cg$tableind(cg$CUSTOMERS.idx).UPDATED_ON := cg$ind.UPDATED_ON;
|
|
|
|
cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).CUTY_ID := cg$rec.CUTY_ID;
|
|
cg$CUSTOMERS.cg$tableind(cg$CUSTOMERS.idx).CUTY_ID := cg$ind.CUTY_ID;
|
|
|
|
cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).PRIMARY_CONTACT := cg$rec.PRIMARY_CONTACT;
|
|
cg$CUSTOMERS.cg$tableind(cg$CUSTOMERS.idx).PRIMARY_CONTACT := cg$ind.PRIMARY_CONTACT;
|
|
|
|
cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).PRIMARY_CONTACT_TEL := cg$rec.PRIMARY_CONTACT_TEL;
|
|
cg$CUSTOMERS.cg$tableind(cg$CUSTOMERS.idx).PRIMARY_CONTACT_TEL := cg$ind.PRIMARY_CONTACT_TEL;
|
|
|
|
cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).KAM_MANAGER_SYUS_ID := cg$rec.KAM_MANAGER_SYUS_ID;
|
|
cg$CUSTOMERS.cg$tableind(cg$CUSTOMERS.idx).KAM_MANAGER_SYUS_ID := cg$ind.KAM_MANAGER_SYUS_ID;
|
|
|
|
cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).KAM_TELEPHONE := cg$rec.KAM_TELEPHONE;
|
|
cg$CUSTOMERS.cg$tableind(cg$CUSTOMERS.idx).KAM_TELEPHONE := cg$ind.KAM_TELEPHONE;
|
|
|
|
cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).STATUS := cg$rec.STATUS;
|
|
cg$CUSTOMERS.cg$tableind(cg$CUSTOMERS.idx).STATUS := cg$ind.STATUS;
|
|
|
|
cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).LETTER_SUBJECT := cg$rec.LETTER_SUBJECT;
|
|
cg$CUSTOMERS.cg$tableind(cg$CUSTOMERS.idx).LETTER_SUBJECT := cg$ind.LETTER_SUBJECT;
|
|
|
|
cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).LETTER_CONTENT := cg$rec.LETTER_CONTENT;
|
|
cg$CUSTOMERS.cg$tableind(cg$CUSTOMERS.idx).LETTER_CONTENT := cg$ind.LETTER_CONTENT;
|
|
|
|
cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).CONFIRMATION_HEADER := cg$rec.CONFIRMATION_HEADER;
|
|
cg$CUSTOMERS.cg$tableind(cg$CUSTOMERS.idx).CONFIRMATION_HEADER := cg$ind.CONFIRMATION_HEADER;
|
|
|
|
cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).CONFIRMATION_ADDRESS := cg$rec.CONFIRMATION_ADDRESS;
|
|
cg$CUSTOMERS.cg$tableind(cg$CUSTOMERS.idx).CONFIRMATION_ADDRESS := cg$ind.CONFIRMATION_ADDRESS;
|
|
|
|
cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).AUTO_GEN_CONF_AM := cg$rec.AUTO_GEN_CONF_AM;
|
|
cg$CUSTOMERS.cg$tableind(cg$CUSTOMERS.idx).AUTO_GEN_CONF_AM := cg$ind.AUTO_GEN_CONF_AM;
|
|
|
|
cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).AUTO_GEN_CONF_PM := cg$rec.AUTO_GEN_CONF_PM;
|
|
cg$CUSTOMERS.cg$tableind(cg$CUSTOMERS.idx).AUTO_GEN_CONF_PM := cg$ind.AUTO_GEN_CONF_PM;
|
|
|
|
cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).IND_DEADLINE_FOR_NOM_SUBMIT := cg$rec.IND_DEADLINE_FOR_NOM_SUBMIT;
|
|
cg$CUSTOMERS.cg$tableind(cg$CUSTOMERS.idx).IND_DEADLINE_FOR_NOM_SUBMIT := cg$ind.IND_DEADLINE_FOR_NOM_SUBMIT;
|
|
|
|
cg$CUSTOMERS.idx := cg$CUSTOMERS.idx + 1;
|
|
|
|
:new.CREATED_BY := cg$rec.CREATED_BY;
|
|
:new.CUST_ID := cg$rec.CUST_ID;
|
|
:new.CODE := cg$rec.CODE;
|
|
:new.NAME := cg$rec.NAME;
|
|
:new.PERIOD_START := cg$rec.PERIOD_START;
|
|
:new.DESCRIPTION := cg$rec.DESCRIPTION;
|
|
:new.PERIOD_END := cg$rec.PERIOD_END;
|
|
:new.EMAIL_ADDRESS := cg$rec.EMAIL_ADDRESS;
|
|
:new.TELEPHONE := cg$rec.TELEPHONE;
|
|
:new.FAX := cg$rec.FAX;
|
|
:new.CREATED_ON := cg$rec.CREATED_ON;
|
|
:new.UPDATED_BY := cg$rec.UPDATED_BY;
|
|
:new.UPDATED_ON := cg$rec.UPDATED_ON;
|
|
:new.CUTY_ID := cg$rec.CUTY_ID;
|
|
:new.PRIMARY_CONTACT := cg$rec.PRIMARY_CONTACT;
|
|
:new.PRIMARY_CONTACT_TEL := cg$rec.PRIMARY_CONTACT_TEL;
|
|
:new.KAM_MANAGER_SYUS_ID := cg$rec.KAM_MANAGER_SYUS_ID;
|
|
:new.KAM_TELEPHONE := cg$rec.KAM_TELEPHONE;
|
|
:new.STATUS := cg$rec.STATUS;
|
|
:new.LETTER_SUBJECT := cg$rec.LETTER_SUBJECT;
|
|
:new.LETTER_CONTENT := cg$rec.LETTER_CONTENT;
|
|
:new.CONFIRMATION_HEADER := cg$rec.CONFIRMATION_HEADER;
|
|
:new.CONFIRMATION_ADDRESS := cg$rec.CONFIRMATION_ADDRESS;
|
|
:new.AUTO_GEN_CONF_AM := cg$rec.AUTO_GEN_CONF_AM;
|
|
:new.AUTO_GEN_CONF_PM := cg$rec.AUTO_GEN_CONF_PM;
|
|
:new.IND_DEADLINE_FOR_NOM_SUBMIT := cg$rec.IND_DEADLINE_FOR_NOM_SUBMIT;
|
|
|
|
-- Application_logic Post-Before-Insert-row <<Start>>
|
|
-- Application_logic Post-Before-Insert-row << End >>
|
|
END;
|
|
/
|
|
|