CREATE OR REPLACE TRIGGER EFT_NOM.cg$BUR_CUSTOMERS BEFORE UPDATE ON CUSTOMERS FOR EACH ROW DECLARE cg$rec cg$CUSTOMERS.cg$row_type; cg$ind cg$CUSTOMERS.cg$ind_type; cg$old_rec cg$CUSTOMERS.cg$row_type; BEGIN -- Application_logic Pre-Before-Update-row <> -- Application_logic Pre-Before-Update-row << End >> -- Load cg$rec/cg$ind values from new cg$rec.CREATED_BY := :new.CREATED_BY; cg$ind.CREATED_BY := (:new.CREATED_BY IS NULL AND :old.CREATED_BY IS NOT NULL ) OR (:new.CREATED_BY IS NOT NULL AND :old.CREATED_BY IS NULL) OR NOT(:new.CREATED_BY = :old.CREATED_BY) ; cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).CREATED_BY := :old.CREATED_BY; cg$rec.CUST_ID := :new.CUST_ID; cg$ind.CUST_ID := (:new.CUST_ID IS NULL AND :old.CUST_ID IS NOT NULL ) OR (:new.CUST_ID IS NOT NULL AND :old.CUST_ID IS NULL) OR NOT(:new.CUST_ID = :old.CUST_ID) ; cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).CUST_ID := :old.CUST_ID; cg$rec.CODE := :new.CODE; cg$ind.CODE := (:new.CODE IS NULL AND :old.CODE IS NOT NULL ) OR (:new.CODE IS NOT NULL AND :old.CODE IS NULL) OR NOT(:new.CODE = :old.CODE) ; cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).CODE := :old.CODE; cg$rec.NAME := :new.NAME; cg$ind.NAME := (:new.NAME IS NULL AND :old.NAME IS NOT NULL ) OR (:new.NAME IS NOT NULL AND :old.NAME IS NULL) OR NOT(:new.NAME = :old.NAME) ; cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).NAME := :old.NAME; cg$rec.PERIOD_START := :new.PERIOD_START; cg$ind.PERIOD_START := (:new.PERIOD_START IS NULL AND :old.PERIOD_START IS NOT NULL ) OR (:new.PERIOD_START IS NOT NULL AND :old.PERIOD_START IS NULL) OR NOT(:new.PERIOD_START = :old.PERIOD_START) ; cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).PERIOD_START := :old.PERIOD_START; cg$rec.DESCRIPTION := :new.DESCRIPTION; cg$ind.DESCRIPTION := (:new.DESCRIPTION IS NULL AND :old.DESCRIPTION IS NOT NULL ) OR (:new.DESCRIPTION IS NOT NULL AND :old.DESCRIPTION IS NULL) OR NOT(:new.DESCRIPTION = :old.DESCRIPTION) ; cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).DESCRIPTION := :old.DESCRIPTION; cg$rec.PERIOD_END := :new.PERIOD_END; cg$ind.PERIOD_END := (:new.PERIOD_END IS NULL AND :old.PERIOD_END IS NOT NULL ) OR (:new.PERIOD_END IS NOT NULL AND :old.PERIOD_END IS NULL) OR NOT(:new.PERIOD_END = :old.PERIOD_END) ; cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).PERIOD_END := :old.PERIOD_END; cg$rec.EMAIL_ADDRESS := :new.EMAIL_ADDRESS; cg$ind.EMAIL_ADDRESS := (:new.EMAIL_ADDRESS IS NULL AND :old.EMAIL_ADDRESS IS NOT NULL ) OR (:new.EMAIL_ADDRESS IS NOT NULL AND :old.EMAIL_ADDRESS IS NULL) OR NOT(:new.EMAIL_ADDRESS = :old.EMAIL_ADDRESS) ; cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).EMAIL_ADDRESS := :old.EMAIL_ADDRESS; cg$rec.TELEPHONE := :new.TELEPHONE; cg$ind.TELEPHONE := (:new.TELEPHONE IS NULL AND :old.TELEPHONE IS NOT NULL ) OR (:new.TELEPHONE IS NOT NULL AND :old.TELEPHONE IS NULL) OR NOT(:new.TELEPHONE = :old.TELEPHONE) ; cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).TELEPHONE := :old.TELEPHONE; cg$rec.FAX := :new.FAX; cg$ind.FAX := (:new.FAX IS NULL AND :old.FAX IS NOT NULL ) OR (:new.FAX IS NOT NULL AND :old.FAX IS NULL) OR NOT(:new.FAX = :old.FAX) ; cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).FAX := :old.FAX; cg$rec.CREATED_ON := :new.CREATED_ON; cg$ind.CREATED_ON := (:new.CREATED_ON IS NULL AND :old.CREATED_ON IS NOT NULL ) OR (:new.CREATED_ON IS NOT NULL AND :old.CREATED_ON IS NULL) OR NOT(:new.CREATED_ON = :old.CREATED_ON) ; cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).CREATED_ON := :old.CREATED_ON; cg$rec.UPDATED_BY := :new.UPDATED_BY; cg$ind.UPDATED_BY := (:new.UPDATED_BY IS NULL AND :old.UPDATED_BY IS NOT NULL ) OR (:new.UPDATED_BY IS NOT NULL AND :old.UPDATED_BY IS NULL) OR NOT(:new.UPDATED_BY = :old.UPDATED_BY) ; cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).UPDATED_BY := :old.UPDATED_BY; cg$rec.UPDATED_ON := :new.UPDATED_ON; cg$ind.UPDATED_ON := (:new.UPDATED_ON IS NULL AND :old.UPDATED_ON IS NOT NULL ) OR (:new.UPDATED_ON IS NOT NULL AND :old.UPDATED_ON IS NULL) OR NOT(:new.UPDATED_ON = :old.UPDATED_ON) ; cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).UPDATED_ON := :old.UPDATED_ON; cg$rec.CUTY_ID := :new.CUTY_ID; cg$ind.CUTY_ID := (:new.CUTY_ID IS NULL AND :old.CUTY_ID IS NOT NULL ) OR (:new.CUTY_ID IS NOT NULL AND :old.CUTY_ID IS NULL) OR NOT(:new.CUTY_ID = :old.CUTY_ID) ; cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).CUTY_ID := :old.CUTY_ID; cg$rec.PRIMARY_CONTACT := :new.PRIMARY_CONTACT; cg$ind.PRIMARY_CONTACT := (:new.PRIMARY_CONTACT IS NULL AND :old.PRIMARY_CONTACT IS NOT NULL ) OR (:new.PRIMARY_CONTACT IS NOT NULL AND :old.PRIMARY_CONTACT IS NULL) OR NOT(:new.PRIMARY_CONTACT = :old.PRIMARY_CONTACT) ; cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).PRIMARY_CONTACT := :old.PRIMARY_CONTACT; cg$rec.PRIMARY_CONTACT_TEL := :new.PRIMARY_CONTACT_TEL; cg$ind.PRIMARY_CONTACT_TEL := (:new.PRIMARY_CONTACT_TEL IS NULL AND :old.PRIMARY_CONTACT_TEL IS NOT NULL ) OR (:new.PRIMARY_CONTACT_TEL IS NOT NULL AND :old.PRIMARY_CONTACT_TEL IS NULL) OR NOT(:new.PRIMARY_CONTACT_TEL = :old.PRIMARY_CONTACT_TEL) ; cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).PRIMARY_CONTACT_TEL := :old.PRIMARY_CONTACT_TEL; cg$rec.KAM_MANAGER_SYUS_ID := :new.KAM_MANAGER_SYUS_ID; cg$ind.KAM_MANAGER_SYUS_ID := (:new.KAM_MANAGER_SYUS_ID IS NULL AND :old.KAM_MANAGER_SYUS_ID IS NOT NULL ) OR (:new.KAM_MANAGER_SYUS_ID IS NOT NULL AND :old.KAM_MANAGER_SYUS_ID IS NULL) OR NOT(:new.KAM_MANAGER_SYUS_ID = :old.KAM_MANAGER_SYUS_ID) ; cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).KAM_MANAGER_SYUS_ID := :old.KAM_MANAGER_SYUS_ID; cg$rec.KAM_TELEPHONE := :new.KAM_TELEPHONE; cg$ind.KAM_TELEPHONE := (:new.KAM_TELEPHONE IS NULL AND :old.KAM_TELEPHONE IS NOT NULL ) OR (:new.KAM_TELEPHONE IS NOT NULL AND :old.KAM_TELEPHONE IS NULL) OR NOT(:new.KAM_TELEPHONE = :old.KAM_TELEPHONE) ; cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).KAM_TELEPHONE := :old.KAM_TELEPHONE; cg$rec.STATUS := :new.STATUS; cg$ind.STATUS := (:new.STATUS IS NULL AND :old.STATUS IS NOT NULL ) OR (:new.STATUS IS NOT NULL AND :old.STATUS IS NULL) OR NOT(:new.STATUS = :old.STATUS) ; cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).STATUS := :old.STATUS; cg$rec.LETTER_SUBJECT := :new.LETTER_SUBJECT; cg$ind.LETTER_SUBJECT := (:new.LETTER_SUBJECT IS NULL AND :old.LETTER_SUBJECT IS NOT NULL ) OR (:new.LETTER_SUBJECT IS NOT NULL AND :old.LETTER_SUBJECT IS NULL) OR NOT(:new.LETTER_SUBJECT = :old.LETTER_SUBJECT) ; cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).LETTER_SUBJECT := :old.LETTER_SUBJECT; cg$rec.LETTER_CONTENT := :new.LETTER_CONTENT; cg$ind.LETTER_CONTENT := (:new.LETTER_CONTENT IS NULL AND :old.LETTER_CONTENT IS NOT NULL ) OR (:new.LETTER_CONTENT IS NOT NULL AND :old.LETTER_CONTENT IS NULL) OR NOT(:new.LETTER_CONTENT = :old.LETTER_CONTENT) ; cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).LETTER_CONTENT := :old.LETTER_CONTENT; cg$rec.CONFIRMATION_HEADER := :new.CONFIRMATION_HEADER; cg$ind.CONFIRMATION_HEADER := (:new.CONFIRMATION_HEADER IS NULL AND :old.CONFIRMATION_HEADER IS NOT NULL ) OR (:new.CONFIRMATION_HEADER IS NOT NULL AND :old.CONFIRMATION_HEADER IS NULL) OR NOT(:new.CONFIRMATION_HEADER = :old.CONFIRMATION_HEADER) ; cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).CONFIRMATION_HEADER := :old.CONFIRMATION_HEADER; cg$rec.CONFIRMATION_ADDRESS := :new.CONFIRMATION_ADDRESS; cg$ind.CONFIRMATION_ADDRESS := (:new.CONFIRMATION_ADDRESS IS NULL AND :old.CONFIRMATION_ADDRESS IS NOT NULL ) OR (:new.CONFIRMATION_ADDRESS IS NOT NULL AND :old.CONFIRMATION_ADDRESS IS NULL) OR NOT(:new.CONFIRMATION_ADDRESS = :old.CONFIRMATION_ADDRESS) ; cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).CONFIRMATION_ADDRESS := :old.CONFIRMATION_ADDRESS; cg$rec.AUTO_GEN_CONF_AM := :new.AUTO_GEN_CONF_AM; cg$ind.AUTO_GEN_CONF_AM := (:new.AUTO_GEN_CONF_AM IS NULL AND :old.AUTO_GEN_CONF_AM IS NOT NULL ) OR (:new.AUTO_GEN_CONF_AM IS NOT NULL AND :old.AUTO_GEN_CONF_AM IS NULL) OR NOT(:new.AUTO_GEN_CONF_AM = :old.AUTO_GEN_CONF_AM) ; cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).AUTO_GEN_CONF_AM := :old.AUTO_GEN_CONF_AM; cg$rec.AUTO_GEN_CONF_PM := :new.AUTO_GEN_CONF_PM; cg$ind.AUTO_GEN_CONF_PM := (:new.AUTO_GEN_CONF_PM IS NULL AND :old.AUTO_GEN_CONF_PM IS NOT NULL ) OR (:new.AUTO_GEN_CONF_PM IS NOT NULL AND :old.AUTO_GEN_CONF_PM IS NULL) OR NOT(:new.AUTO_GEN_CONF_PM = :old.AUTO_GEN_CONF_PM) ; cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).AUTO_GEN_CONF_PM := :old.AUTO_GEN_CONF_PM; cg$rec.IND_DEADLINE_FOR_NOM_SUBMIT := :new.IND_DEADLINE_FOR_NOM_SUBMIT; cg$ind.IND_DEADLINE_FOR_NOM_SUBMIT := (:new.IND_DEADLINE_FOR_NOM_SUBMIT IS NULL AND :old.IND_DEADLINE_FOR_NOM_SUBMIT IS NOT NULL ) OR (:new.IND_DEADLINE_FOR_NOM_SUBMIT IS NOT NULL AND :old.IND_DEADLINE_FOR_NOM_SUBMIT IS NULL) OR NOT(:new.IND_DEADLINE_FOR_NOM_SUBMIT = :old.IND_DEADLINE_FOR_NOM_SUBMIT) ; cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).IND_DEADLINE_FOR_NOM_SUBMIT := :old.IND_DEADLINE_FOR_NOM_SUBMIT; cg$CUSTOMERS.idx := cg$CUSTOMERS.idx + 1; if not (cg$CUSTOMERS.called_from_package) then cg$CUSTOMERS.validate_arc(cg$rec); cg$CUSTOMERS.validate_domain(cg$rec, cg$ind); cg$CUSTOMERS.validate_domain_cascade_update(cg$old_rec); cg$CUSTOMERS.upd(cg$rec, cg$ind, FALSE); cg$CUSTOMERS.called_from_package := FALSE; end if; :new.CREATED_BY := cg$rec.CREATED_BY; :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-Update-row <> -- Application_logic Post-Before-Update-row << End >> END; /