783 lines
39 KiB
Plaintext
783 lines
39 KiB
Plaintext
|
|
PROMPT Creating Trigger Logic for Table 'CUSTOMERS'
|
|
PROMPT Creating Before Insert Statement Trigger on 'CUSTOMERS'
|
|
CREATE OR REPLACE TRIGGER cg$BIS_CUSTOMERS
|
|
BEFORE INSERT ON CUSTOMERS
|
|
BEGIN
|
|
-- Application_logic Pre-Before-Insert-statement <<Start>>
|
|
-- Application_logic Pre-Before-Insert-statement << End >>
|
|
|
|
cg$CUSTOMERS.cg$table.DELETE;
|
|
cg$CUSTOMERS.cg$tableind.DELETE;
|
|
cg$CUSTOMERS.idx := 1;
|
|
|
|
-- Application_logic Post-Before-Insert-statement <<Start>>
|
|
-- Application_logic Post-Before-Insert-statement << End >>
|
|
END;
|
|
/
|
|
|
|
|
|
PROMPT Creating Before Insert Row Trigger on 'CUSTOMERS'
|
|
CREATE OR REPLACE TRIGGER 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.NOM_CONF_SUBJECT := :new.NOM_CONF_SUBJECT;
|
|
cg$ind.NOM_CONF_SUBJECT := TRUE;
|
|
cg$rec.NOM_CONF_CONTENT := :new.NOM_CONF_CONTENT;
|
|
cg$ind.NOM_CONF_CONTENT := TRUE;
|
|
cg$rec.COM_CONF_SUBJECT := :new.COM_CONF_SUBJECT;
|
|
cg$ind.COM_CONF_SUBJECT := TRUE;
|
|
cg$rec.COM_CONF_CONTENT := :new.COM_CONF_CONTENT;
|
|
cg$ind.COM_CONF_CONTENT := 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).NOM_CONF_SUBJECT := cg$rec.NOM_CONF_SUBJECT;
|
|
cg$CUSTOMERS.cg$tableind(cg$CUSTOMERS.idx).NOM_CONF_SUBJECT := cg$ind.NOM_CONF_SUBJECT;
|
|
|
|
cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).NOM_CONF_CONTENT := cg$rec.NOM_CONF_CONTENT;
|
|
cg$CUSTOMERS.cg$tableind(cg$CUSTOMERS.idx).NOM_CONF_CONTENT := cg$ind.NOM_CONF_CONTENT;
|
|
|
|
cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).COM_CONF_SUBJECT := cg$rec.COM_CONF_SUBJECT;
|
|
cg$CUSTOMERS.cg$tableind(cg$CUSTOMERS.idx).COM_CONF_SUBJECT := cg$ind.COM_CONF_SUBJECT;
|
|
|
|
cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).COM_CONF_CONTENT := cg$rec.COM_CONF_CONTENT;
|
|
cg$CUSTOMERS.cg$tableind(cg$CUSTOMERS.idx).COM_CONF_CONTENT := cg$ind.COM_CONF_CONTENT;
|
|
|
|
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.NOM_CONF_SUBJECT := cg$rec.NOM_CONF_SUBJECT;
|
|
:new.NOM_CONF_CONTENT := cg$rec.NOM_CONF_CONTENT;
|
|
:new.COM_CONF_SUBJECT := cg$rec.COM_CONF_SUBJECT;
|
|
:new.COM_CONF_CONTENT := cg$rec.COM_CONF_CONTENT;
|
|
: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;
|
|
/
|
|
|
|
|
|
-- No application logic defined for Trigger cg$AIR_CUSTOMERS, so drop it.
|
|
-- To avoid an error if there isn't one, create or replace it, and then drop it
|
|
CREATE OR REPLACE TRIGGER cg$AIR_CUSTOMERS
|
|
AFTER INSERT ON CUSTOMERS FOR EACH ROW
|
|
BEGIN
|
|
null;
|
|
END;
|
|
/
|
|
drop trigger cg$AIR_CUSTOMERS
|
|
/
|
|
|
|
PROMPT Creating After Insert Statement Trigger on 'CUSTOMERS'
|
|
CREATE OR REPLACE TRIGGER cg$AIS_CUSTOMERS
|
|
AFTER INSERT ON CUSTOMERS
|
|
DECLARE
|
|
idx BINARY_INTEGER := cg$CUSTOMERS.cg$table.FIRST;
|
|
cg$rec cg$CUSTOMERS.cg$row_type;
|
|
cg$old_rec cg$CUSTOMERS.cg$row_type;
|
|
fk_check INTEGER;
|
|
BEGIN
|
|
-- Application_logic Pre-After-Insert-statement <<Start>>
|
|
-- Application_logic Pre-After-Insert-statement << End >>
|
|
|
|
|
|
IF NOT (cg$CUSTOMERS.called_from_package) THEN
|
|
WHILE idx IS NOT NULL LOOP
|
|
cg$rec.CREATED_BY := cg$CUSTOMERS.cg$table(idx).CREATED_BY;
|
|
cg$rec.CUST_ID := cg$CUSTOMERS.cg$table(idx).CUST_ID;
|
|
cg$rec.CODE := cg$CUSTOMERS.cg$table(idx).CODE;
|
|
cg$rec.NAME := cg$CUSTOMERS.cg$table(idx).NAME;
|
|
cg$rec.PERIOD_START := cg$CUSTOMERS.cg$table(idx).PERIOD_START;
|
|
cg$rec.DESCRIPTION := cg$CUSTOMERS.cg$table(idx).DESCRIPTION;
|
|
cg$rec.PERIOD_END := cg$CUSTOMERS.cg$table(idx).PERIOD_END;
|
|
cg$rec.EMAIL_ADDRESS := cg$CUSTOMERS.cg$table(idx).EMAIL_ADDRESS;
|
|
cg$rec.TELEPHONE := cg$CUSTOMERS.cg$table(idx).TELEPHONE;
|
|
cg$rec.FAX := cg$CUSTOMERS.cg$table(idx).FAX;
|
|
cg$rec.CREATED_ON := cg$CUSTOMERS.cg$table(idx).CREATED_ON;
|
|
cg$rec.UPDATED_BY := cg$CUSTOMERS.cg$table(idx).UPDATED_BY;
|
|
cg$rec.UPDATED_ON := cg$CUSTOMERS.cg$table(idx).UPDATED_ON;
|
|
cg$rec.CUTY_ID := cg$CUSTOMERS.cg$table(idx).CUTY_ID;
|
|
cg$rec.PRIMARY_CONTACT := cg$CUSTOMERS.cg$table(idx).PRIMARY_CONTACT;
|
|
cg$rec.PRIMARY_CONTACT_TEL := cg$CUSTOMERS.cg$table(idx).PRIMARY_CONTACT_TEL;
|
|
cg$rec.KAM_MANAGER_SYUS_ID := cg$CUSTOMERS.cg$table(idx).KAM_MANAGER_SYUS_ID;
|
|
cg$rec.KAM_TELEPHONE := cg$CUSTOMERS.cg$table(idx).KAM_TELEPHONE;
|
|
cg$rec.STATUS := cg$CUSTOMERS.cg$table(idx).STATUS;
|
|
cg$rec.NOM_CONF_SUBJECT := cg$CUSTOMERS.cg$table(idx).NOM_CONF_SUBJECT;
|
|
cg$rec.NOM_CONF_CONTENT := cg$CUSTOMERS.cg$table(idx).NOM_CONF_CONTENT;
|
|
cg$rec.COM_CONF_SUBJECT := cg$CUSTOMERS.cg$table(idx).COM_CONF_SUBJECT;
|
|
cg$rec.COM_CONF_CONTENT := cg$CUSTOMERS.cg$table(idx).COM_CONF_CONTENT;
|
|
cg$rec.AUTO_GEN_CONF_AM := cg$CUSTOMERS.cg$table(idx).AUTO_GEN_CONF_AM;
|
|
cg$rec.AUTO_GEN_CONF_PM := cg$CUSTOMERS.cg$table(idx).AUTO_GEN_CONF_PM;
|
|
cg$rec.IND_DEADLINE_FOR_NOM_SUBMIT := cg$CUSTOMERS.cg$table(idx).IND_DEADLINE_FOR_NOM_SUBMIT;
|
|
|
|
cg$CUSTOMERS.validate_foreign_keys_ins(cg$rec);
|
|
|
|
cg$CUSTOMERS.upd_oper_denorm2( cg$rec,
|
|
cg$old_rec,
|
|
cg$CUSTOMERS.cg$tableind(idx),
|
|
'INS'
|
|
);
|
|
|
|
idx := cg$CUSTOMERS.cg$table.NEXT(idx);
|
|
END LOOP;
|
|
END IF;
|
|
|
|
-- Application_logic Post-After-Insert-statement <<Start>>
|
|
-- Application_logic Post-After-Insert-statement << End >>
|
|
|
|
END;
|
|
/
|
|
|
|
|
|
|
|
|
|
PROMPT Creating Before Update Statement Trigger on 'CUSTOMERS'
|
|
CREATE OR REPLACE TRIGGER cg$BUS_CUSTOMERS
|
|
BEFORE UPDATE ON CUSTOMERS
|
|
BEGIN
|
|
-- Application_logic Pre-Before-Update-statement <<Start>>
|
|
-- Application_logic Pre-Before-Update-statement << End >>
|
|
|
|
cg$CUSTOMERS.cg$table.DELETE;
|
|
cg$CUSTOMERS.cg$tableind.DELETE;
|
|
cg$CUSTOMERS.idx := 1;
|
|
|
|
-- Application_logic Post-Before-Update-statement <<Start>>
|
|
-- Application_logic Post-Before-Update-statement << End >>
|
|
|
|
END;
|
|
/
|
|
|
|
|
|
PROMPT Creating Before Update Row Trigger on 'CUSTOMERS'
|
|
CREATE OR REPLACE TRIGGER 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 <<Start>>
|
|
-- 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.NOM_CONF_SUBJECT := :new.NOM_CONF_SUBJECT;
|
|
cg$ind.NOM_CONF_SUBJECT := (:new.NOM_CONF_SUBJECT IS NULL AND :old.NOM_CONF_SUBJECT IS NOT NULL )
|
|
OR (:new.NOM_CONF_SUBJECT IS NOT NULL AND :old.NOM_CONF_SUBJECT IS NULL)
|
|
OR NOT(:new.NOM_CONF_SUBJECT = :old.NOM_CONF_SUBJECT) ;
|
|
cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).NOM_CONF_SUBJECT := :old.NOM_CONF_SUBJECT;
|
|
cg$rec.NOM_CONF_CONTENT := :new.NOM_CONF_CONTENT;
|
|
cg$ind.NOM_CONF_CONTENT := (:new.NOM_CONF_CONTENT IS NULL AND :old.NOM_CONF_CONTENT IS NOT NULL )
|
|
OR (:new.NOM_CONF_CONTENT IS NOT NULL AND :old.NOM_CONF_CONTENT IS NULL)
|
|
OR NOT(:new.NOM_CONF_CONTENT = :old.NOM_CONF_CONTENT) ;
|
|
cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).NOM_CONF_CONTENT := :old.NOM_CONF_CONTENT;
|
|
cg$rec.COM_CONF_SUBJECT := :new.COM_CONF_SUBJECT;
|
|
cg$ind.COM_CONF_SUBJECT := (:new.COM_CONF_SUBJECT IS NULL AND :old.COM_CONF_SUBJECT IS NOT NULL )
|
|
OR (:new.COM_CONF_SUBJECT IS NOT NULL AND :old.COM_CONF_SUBJECT IS NULL)
|
|
OR NOT(:new.COM_CONF_SUBJECT = :old.COM_CONF_SUBJECT) ;
|
|
cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).COM_CONF_SUBJECT := :old.COM_CONF_SUBJECT;
|
|
cg$rec.COM_CONF_CONTENT := :new.COM_CONF_CONTENT;
|
|
cg$ind.COM_CONF_CONTENT := (:new.COM_CONF_CONTENT IS NULL AND :old.COM_CONF_CONTENT IS NOT NULL )
|
|
OR (:new.COM_CONF_CONTENT IS NOT NULL AND :old.COM_CONF_CONTENT IS NULL)
|
|
OR NOT(:new.COM_CONF_CONTENT = :old.COM_CONF_CONTENT) ;
|
|
cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).COM_CONF_CONTENT := :old.COM_CONF_CONTENT;
|
|
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.NOM_CONF_SUBJECT := cg$rec.NOM_CONF_SUBJECT;
|
|
:new.NOM_CONF_CONTENT := cg$rec.NOM_CONF_CONTENT;
|
|
:new.COM_CONF_SUBJECT := cg$rec.COM_CONF_SUBJECT;
|
|
:new.COM_CONF_CONTENT := cg$rec.COM_CONF_CONTENT;
|
|
: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 <<Start>>
|
|
-- Application_logic Post-Before-Update-row << End >>
|
|
END;
|
|
/
|
|
|
|
-- No application logic defined for Trigger cg$AUR_CUSTOMERS, so drop it.
|
|
-- To avoid an error if there isn't one, create or replace it, and then drop it
|
|
CREATE OR REPLACE TRIGGER cg$AUR_CUSTOMERS
|
|
AFTER UPDATE ON CUSTOMERS FOR EACH ROW
|
|
BEGIN
|
|
null;
|
|
END;
|
|
/
|
|
drop trigger cg$AUR_CUSTOMERS
|
|
/
|
|
|
|
|
|
|
|
|
|
|
|
|
|
PROMPT Creating After Update Statement Trigger on 'CUSTOMERS'
|
|
CREATE OR REPLACE TRIGGER cg$AUS_CUSTOMERS
|
|
AFTER UPDATE ON CUSTOMERS
|
|
DECLARE
|
|
idx BINARY_INTEGER := cg$CUSTOMERS.cg$table.FIRST;
|
|
cg$old_rec cg$CUSTOMERS.cg$row_type;
|
|
cg$rec cg$CUSTOMERS.cg$row_type;
|
|
cg$ind cg$CUSTOMERS.cg$ind_type;
|
|
BEGIN
|
|
-- Application_logic Pre-After-Update-statement <<Start>>
|
|
-- Application_logic Pre-After-Update-statement << End >>
|
|
|
|
WHILE idx IS NOT NULL LOOP
|
|
cg$old_rec.CREATED_BY := cg$CUSTOMERS.cg$table(idx).CREATED_BY;
|
|
cg$old_rec.CUST_ID := cg$CUSTOMERS.cg$table(idx).CUST_ID;
|
|
cg$old_rec.CODE := cg$CUSTOMERS.cg$table(idx).CODE;
|
|
cg$old_rec.NAME := cg$CUSTOMERS.cg$table(idx).NAME;
|
|
cg$old_rec.PERIOD_START := cg$CUSTOMERS.cg$table(idx).PERIOD_START;
|
|
cg$old_rec.DESCRIPTION := cg$CUSTOMERS.cg$table(idx).DESCRIPTION;
|
|
cg$old_rec.PERIOD_END := cg$CUSTOMERS.cg$table(idx).PERIOD_END;
|
|
cg$old_rec.EMAIL_ADDRESS := cg$CUSTOMERS.cg$table(idx).EMAIL_ADDRESS;
|
|
cg$old_rec.TELEPHONE := cg$CUSTOMERS.cg$table(idx).TELEPHONE;
|
|
cg$old_rec.FAX := cg$CUSTOMERS.cg$table(idx).FAX;
|
|
cg$old_rec.CREATED_ON := cg$CUSTOMERS.cg$table(idx).CREATED_ON;
|
|
cg$old_rec.UPDATED_BY := cg$CUSTOMERS.cg$table(idx).UPDATED_BY;
|
|
cg$old_rec.UPDATED_ON := cg$CUSTOMERS.cg$table(idx).UPDATED_ON;
|
|
cg$old_rec.CUTY_ID := cg$CUSTOMERS.cg$table(idx).CUTY_ID;
|
|
cg$old_rec.PRIMARY_CONTACT := cg$CUSTOMERS.cg$table(idx).PRIMARY_CONTACT;
|
|
cg$old_rec.PRIMARY_CONTACT_TEL := cg$CUSTOMERS.cg$table(idx).PRIMARY_CONTACT_TEL;
|
|
cg$old_rec.KAM_MANAGER_SYUS_ID := cg$CUSTOMERS.cg$table(idx).KAM_MANAGER_SYUS_ID;
|
|
cg$old_rec.KAM_TELEPHONE := cg$CUSTOMERS.cg$table(idx).KAM_TELEPHONE;
|
|
cg$old_rec.STATUS := cg$CUSTOMERS.cg$table(idx).STATUS;
|
|
cg$old_rec.NOM_CONF_SUBJECT := cg$CUSTOMERS.cg$table(idx).NOM_CONF_SUBJECT;
|
|
cg$old_rec.NOM_CONF_CONTENT := cg$CUSTOMERS.cg$table(idx).NOM_CONF_CONTENT;
|
|
cg$old_rec.COM_CONF_SUBJECT := cg$CUSTOMERS.cg$table(idx).COM_CONF_SUBJECT;
|
|
cg$old_rec.COM_CONF_CONTENT := cg$CUSTOMERS.cg$table(idx).COM_CONF_CONTENT;
|
|
cg$old_rec.AUTO_GEN_CONF_AM := cg$CUSTOMERS.cg$table(idx).AUTO_GEN_CONF_AM;
|
|
cg$old_rec.AUTO_GEN_CONF_PM := cg$CUSTOMERS.cg$table(idx).AUTO_GEN_CONF_PM;
|
|
cg$old_rec.IND_DEADLINE_FOR_NOM_SUBMIT := cg$CUSTOMERS.cg$table(idx).IND_DEADLINE_FOR_NOM_SUBMIT;
|
|
|
|
IF NOT (cg$CUSTOMERS.called_from_package) THEN
|
|
idx := cg$CUSTOMERS.cg$table.NEXT(idx);
|
|
cg$rec.CREATED_BY := cg$CUSTOMERS.cg$table(idx).CREATED_BY;
|
|
cg$ind.CREATED_BY := updating('CREATED_BY');
|
|
cg$rec.CUST_ID := cg$CUSTOMERS.cg$table(idx).CUST_ID;
|
|
cg$ind.CUST_ID := updating('CUST_ID');
|
|
cg$rec.CODE := cg$CUSTOMERS.cg$table(idx).CODE;
|
|
cg$ind.CODE := updating('CODE');
|
|
cg$rec.NAME := cg$CUSTOMERS.cg$table(idx).NAME;
|
|
cg$ind.NAME := updating('NAME');
|
|
cg$rec.PERIOD_START := cg$CUSTOMERS.cg$table(idx).PERIOD_START;
|
|
cg$ind.PERIOD_START := updating('PERIOD_START');
|
|
cg$rec.DESCRIPTION := cg$CUSTOMERS.cg$table(idx).DESCRIPTION;
|
|
cg$ind.DESCRIPTION := updating('DESCRIPTION');
|
|
cg$rec.PERIOD_END := cg$CUSTOMERS.cg$table(idx).PERIOD_END;
|
|
cg$ind.PERIOD_END := updating('PERIOD_END');
|
|
cg$rec.EMAIL_ADDRESS := cg$CUSTOMERS.cg$table(idx).EMAIL_ADDRESS;
|
|
cg$ind.EMAIL_ADDRESS := updating('EMAIL_ADDRESS');
|
|
cg$rec.TELEPHONE := cg$CUSTOMERS.cg$table(idx).TELEPHONE;
|
|
cg$ind.TELEPHONE := updating('TELEPHONE');
|
|
cg$rec.FAX := cg$CUSTOMERS.cg$table(idx).FAX;
|
|
cg$ind.FAX := updating('FAX');
|
|
cg$rec.CREATED_ON := cg$CUSTOMERS.cg$table(idx).CREATED_ON;
|
|
cg$ind.CREATED_ON := updating('CREATED_ON');
|
|
cg$rec.UPDATED_BY := cg$CUSTOMERS.cg$table(idx).UPDATED_BY;
|
|
cg$ind.UPDATED_BY := updating('UPDATED_BY');
|
|
cg$rec.UPDATED_ON := cg$CUSTOMERS.cg$table(idx).UPDATED_ON;
|
|
cg$ind.UPDATED_ON := updating('UPDATED_ON');
|
|
cg$rec.CUTY_ID := cg$CUSTOMERS.cg$table(idx).CUTY_ID;
|
|
cg$ind.CUTY_ID := updating('CUTY_ID');
|
|
cg$rec.PRIMARY_CONTACT := cg$CUSTOMERS.cg$table(idx).PRIMARY_CONTACT;
|
|
cg$ind.PRIMARY_CONTACT := updating('PRIMARY_CONTACT');
|
|
cg$rec.PRIMARY_CONTACT_TEL := cg$CUSTOMERS.cg$table(idx).PRIMARY_CONTACT_TEL;
|
|
cg$ind.PRIMARY_CONTACT_TEL := updating('PRIMARY_CONTACT_TEL');
|
|
cg$rec.KAM_MANAGER_SYUS_ID := cg$CUSTOMERS.cg$table(idx).KAM_MANAGER_SYUS_ID;
|
|
cg$ind.KAM_MANAGER_SYUS_ID := updating('KAM_MANAGER_SYUS_ID');
|
|
cg$rec.KAM_TELEPHONE := cg$CUSTOMERS.cg$table(idx).KAM_TELEPHONE;
|
|
cg$ind.KAM_TELEPHONE := updating('KAM_TELEPHONE');
|
|
cg$rec.STATUS := cg$CUSTOMERS.cg$table(idx).STATUS;
|
|
cg$ind.STATUS := updating('STATUS');
|
|
cg$rec.NOM_CONF_SUBJECT := cg$CUSTOMERS.cg$table(idx).NOM_CONF_SUBJECT;
|
|
cg$ind.NOM_CONF_SUBJECT := updating('NOM_CONF_SUBJECT');
|
|
cg$rec.NOM_CONF_CONTENT := cg$CUSTOMERS.cg$table(idx).NOM_CONF_CONTENT;
|
|
cg$ind.NOM_CONF_CONTENT := updating('NOM_CONF_CONTENT');
|
|
cg$rec.COM_CONF_SUBJECT := cg$CUSTOMERS.cg$table(idx).COM_CONF_SUBJECT;
|
|
cg$ind.COM_CONF_SUBJECT := updating('COM_CONF_SUBJECT');
|
|
cg$rec.COM_CONF_CONTENT := cg$CUSTOMERS.cg$table(idx).COM_CONF_CONTENT;
|
|
cg$ind.COM_CONF_CONTENT := updating('COM_CONF_CONTENT');
|
|
cg$rec.AUTO_GEN_CONF_AM := cg$CUSTOMERS.cg$table(idx).AUTO_GEN_CONF_AM;
|
|
cg$ind.AUTO_GEN_CONF_AM := updating('AUTO_GEN_CONF_AM');
|
|
cg$rec.AUTO_GEN_CONF_PM := cg$CUSTOMERS.cg$table(idx).AUTO_GEN_CONF_PM;
|
|
cg$ind.AUTO_GEN_CONF_PM := updating('AUTO_GEN_CONF_PM');
|
|
cg$rec.IND_DEADLINE_FOR_NOM_SUBMIT := cg$CUSTOMERS.cg$table(idx).IND_DEADLINE_FOR_NOM_SUBMIT;
|
|
cg$ind.IND_DEADLINE_FOR_NOM_SUBMIT := updating('IND_DEADLINE_FOR_NOM_SUBMIT');
|
|
|
|
cg$CUSTOMERS.validate_foreign_keys_upd(cg$rec, cg$old_rec, cg$ind);
|
|
|
|
cg$CUSTOMERS.upd_denorm2( cg$rec,
|
|
cg$CUSTOMERS.cg$tableind(idx)
|
|
);
|
|
cg$CUSTOMERS.upd_oper_denorm2( cg$rec,
|
|
cg$old_rec,
|
|
cg$CUSTOMERS.cg$tableind(idx)
|
|
);
|
|
cg$CUSTOMERS.cascade_update(cg$rec, cg$old_rec);
|
|
cg$CUSTOMERS.domain_cascade_update(cg$rec, cg$ind, cg$old_rec);
|
|
|
|
cg$CUSTOMERS.called_from_package := FALSE;
|
|
END IF;
|
|
idx := cg$CUSTOMERS.cg$table.NEXT(idx);
|
|
END LOOP;
|
|
|
|
cg$CUSTOMERS.cg$table.DELETE;
|
|
|
|
-- Application_logic Post-After-Update-statement <<Start>>
|
|
-- Application_logic Post-After-Update-statement << End >>
|
|
|
|
END;
|
|
/
|
|
|
|
PROMPT Creating Before Delete Statement Trigger on 'CUSTOMERS'
|
|
CREATE OR REPLACE TRIGGER cg$BDS_CUSTOMERS
|
|
BEFORE DELETE ON CUSTOMERS
|
|
BEGIN
|
|
-- Application_logic Pre-Before-Delete-statement <<Start>>
|
|
-- Application_logic Pre-Before-Delete-statement << End >>
|
|
|
|
cg$CUSTOMERS.cg$table.DELETE;
|
|
cg$CUSTOMERS.cg$tableind.DELETE;
|
|
cg$CUSTOMERS.idx := 1;
|
|
|
|
-- Application_logic Post-Before-Delete-statement <<Start>>
|
|
-- Application_logic Post-Before-Delete-statement << End >>
|
|
END;
|
|
/
|
|
|
|
|
|
PROMPT Creating Before Delete Row Trigger on 'CUSTOMERS'
|
|
CREATE OR REPLACE TRIGGER cg$BDR_CUSTOMERS
|
|
BEFORE DELETE ON CUSTOMERS FOR EACH ROW
|
|
DECLARE
|
|
cg$pk cg$CUSTOMERS.cg$pk_type;
|
|
cg$rec cg$CUSTOMERS.cg$row_type;
|
|
cg$ind cg$CUSTOMERS.cg$ind_type;
|
|
BEGIN
|
|
-- Application_logic Pre-Before-Delete-row <<Start>>
|
|
-- Application_logic Pre-Before-Delete-row << End >>
|
|
|
|
-- Load cg$rec/cg$ind values from new
|
|
|
|
cg$pk.CUST_ID := :old.CUST_ID;
|
|
cg$rec.CUST_ID := :old.CUST_ID;
|
|
cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).CUST_ID := :old.CUST_ID;
|
|
cg$rec.NAME := :old.NAME;
|
|
cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).NAME := :old.NAME;
|
|
cg$rec.CODE := :old.CODE;
|
|
cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).CODE := :old.CODE;
|
|
cg$rec.CUTY_ID := :old.CUTY_ID;
|
|
cg$CUSTOMERS.cg$table(cg$CUSTOMERS.idx).CUTY_ID := :old.CUTY_ID;
|
|
cg$rec.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$CUSTOMERS.idx := cg$CUSTOMERS.idx + 1;
|
|
|
|
if not (cg$CUSTOMERS.called_from_package) then
|
|
cg$CUSTOMERS.validate_domain_cascade_delete(cg$rec);
|
|
cg$CUSTOMERS.del(cg$pk, FALSE);
|
|
cg$CUSTOMERS.called_from_package := FALSE;
|
|
end if;
|
|
|
|
-- Application_logic Post-Before-Delete-row <<Start>>
|
|
-- Application_logic Post-Before-Delete-row << End >>
|
|
END;
|
|
/
|
|
|
|
-- No application logic defined for Trigger cg$ADR_CUSTOMERS, so drop it.
|
|
-- To avoid an error if there isn't one, create or replace it, and then drop it
|
|
CREATE OR REPLACE TRIGGER cg$ADR_CUSTOMERS
|
|
AFTER DELETE ON CUSTOMERS FOR EACH ROW
|
|
BEGIN
|
|
null;
|
|
END;
|
|
/
|
|
drop trigger cg$ADR_CUSTOMERS
|
|
/
|
|
|
|
PROMPT Creating After Delete Statement Trigger on 'CUSTOMERS'
|
|
CREATE OR REPLACE TRIGGER cg$ADS_CUSTOMERS
|
|
AFTER DELETE ON CUSTOMERS
|
|
DECLARE
|
|
idx BINARY_INTEGER := cg$CUSTOMERS.cg$table.FIRST;
|
|
cg$rec cg$CUSTOMERS.cg$row_type;
|
|
cg$old_rec cg$CUSTOMERS.cg$row_type;
|
|
BEGIN
|
|
-- Application_logic Pre-After-Delete-statement <<Start>>
|
|
-- Application_logic Pre-After-Delete-statement << End >>
|
|
|
|
IF NOT (cg$CUSTOMERS.called_from_package) THEN
|
|
WHILE idx IS NOT NULL LOOP
|
|
cg$rec.CREATED_BY := cg$CUSTOMERS.cg$table(idx).CREATED_BY;
|
|
cg$CUSTOMERS.cg$tableind(idx).CREATED_BY := TRUE;
|
|
cg$rec.CUST_ID := cg$CUSTOMERS.cg$table(idx).CUST_ID;
|
|
cg$CUSTOMERS.cg$tableind(idx).CUST_ID := TRUE;
|
|
cg$rec.CODE := cg$CUSTOMERS.cg$table(idx).CODE;
|
|
cg$CUSTOMERS.cg$tableind(idx).CODE := TRUE;
|
|
cg$rec.NAME := cg$CUSTOMERS.cg$table(idx).NAME;
|
|
cg$CUSTOMERS.cg$tableind(idx).NAME := TRUE;
|
|
cg$rec.PERIOD_START := cg$CUSTOMERS.cg$table(idx).PERIOD_START;
|
|
cg$CUSTOMERS.cg$tableind(idx).PERIOD_START := TRUE;
|
|
cg$rec.DESCRIPTION := cg$CUSTOMERS.cg$table(idx).DESCRIPTION;
|
|
cg$CUSTOMERS.cg$tableind(idx).DESCRIPTION := TRUE;
|
|
cg$rec.PERIOD_END := cg$CUSTOMERS.cg$table(idx).PERIOD_END;
|
|
cg$CUSTOMERS.cg$tableind(idx).PERIOD_END := TRUE;
|
|
cg$rec.EMAIL_ADDRESS := cg$CUSTOMERS.cg$table(idx).EMAIL_ADDRESS;
|
|
cg$CUSTOMERS.cg$tableind(idx).EMAIL_ADDRESS := TRUE;
|
|
cg$rec.TELEPHONE := cg$CUSTOMERS.cg$table(idx).TELEPHONE;
|
|
cg$CUSTOMERS.cg$tableind(idx).TELEPHONE := TRUE;
|
|
cg$rec.FAX := cg$CUSTOMERS.cg$table(idx).FAX;
|
|
cg$CUSTOMERS.cg$tableind(idx).FAX := TRUE;
|
|
cg$rec.CREATED_ON := cg$CUSTOMERS.cg$table(idx).CREATED_ON;
|
|
cg$CUSTOMERS.cg$tableind(idx).CREATED_ON := TRUE;
|
|
cg$rec.UPDATED_BY := cg$CUSTOMERS.cg$table(idx).UPDATED_BY;
|
|
cg$CUSTOMERS.cg$tableind(idx).UPDATED_BY := TRUE;
|
|
cg$rec.UPDATED_ON := cg$CUSTOMERS.cg$table(idx).UPDATED_ON;
|
|
cg$CUSTOMERS.cg$tableind(idx).UPDATED_ON := TRUE;
|
|
cg$rec.CUTY_ID := cg$CUSTOMERS.cg$table(idx).CUTY_ID;
|
|
cg$CUSTOMERS.cg$tableind(idx).CUTY_ID := TRUE;
|
|
cg$rec.PRIMARY_CONTACT := cg$CUSTOMERS.cg$table(idx).PRIMARY_CONTACT;
|
|
cg$CUSTOMERS.cg$tableind(idx).PRIMARY_CONTACT := TRUE;
|
|
cg$rec.PRIMARY_CONTACT_TEL := cg$CUSTOMERS.cg$table(idx).PRIMARY_CONTACT_TEL;
|
|
cg$CUSTOMERS.cg$tableind(idx).PRIMARY_CONTACT_TEL := TRUE;
|
|
cg$rec.KAM_MANAGER_SYUS_ID := cg$CUSTOMERS.cg$table(idx).KAM_MANAGER_SYUS_ID;
|
|
cg$CUSTOMERS.cg$tableind(idx).KAM_MANAGER_SYUS_ID := TRUE;
|
|
cg$rec.KAM_TELEPHONE := cg$CUSTOMERS.cg$table(idx).KAM_TELEPHONE;
|
|
cg$CUSTOMERS.cg$tableind(idx).KAM_TELEPHONE := TRUE;
|
|
cg$rec.STATUS := cg$CUSTOMERS.cg$table(idx).STATUS;
|
|
cg$CUSTOMERS.cg$tableind(idx).STATUS := TRUE;
|
|
cg$rec.NOM_CONF_SUBJECT := cg$CUSTOMERS.cg$table(idx).NOM_CONF_SUBJECT;
|
|
cg$CUSTOMERS.cg$tableind(idx).NOM_CONF_SUBJECT := TRUE;
|
|
cg$rec.NOM_CONF_CONTENT := cg$CUSTOMERS.cg$table(idx).NOM_CONF_CONTENT;
|
|
cg$CUSTOMERS.cg$tableind(idx).NOM_CONF_CONTENT := TRUE;
|
|
cg$rec.COM_CONF_SUBJECT := cg$CUSTOMERS.cg$table(idx).COM_CONF_SUBJECT;
|
|
cg$CUSTOMERS.cg$tableind(idx).COM_CONF_SUBJECT := TRUE;
|
|
cg$rec.COM_CONF_CONTENT := cg$CUSTOMERS.cg$table(idx).COM_CONF_CONTENT;
|
|
cg$CUSTOMERS.cg$tableind(idx).COM_CONF_CONTENT := TRUE;
|
|
cg$rec.AUTO_GEN_CONF_AM := cg$CUSTOMERS.cg$table(idx).AUTO_GEN_CONF_AM;
|
|
cg$CUSTOMERS.cg$tableind(idx).AUTO_GEN_CONF_AM := TRUE;
|
|
cg$rec.AUTO_GEN_CONF_PM := cg$CUSTOMERS.cg$table(idx).AUTO_GEN_CONF_PM;
|
|
cg$CUSTOMERS.cg$tableind(idx).AUTO_GEN_CONF_PM := TRUE;
|
|
cg$rec.IND_DEADLINE_FOR_NOM_SUBMIT := cg$CUSTOMERS.cg$table(idx).IND_DEADLINE_FOR_NOM_SUBMIT;
|
|
cg$CUSTOMERS.cg$tableind(idx).IND_DEADLINE_FOR_NOM_SUBMIT := TRUE;
|
|
|
|
cg$CUSTOMERS.validate_foreign_keys_del(cg$rec);
|
|
cg$CUSTOMERS.upd_oper_denorm2( cg$rec,
|
|
cg$old_rec,
|
|
cg$CUSTOMERS.cg$tableind(idx),
|
|
'DEL'
|
|
);
|
|
|
|
cg$CUSTOMERS.cascade_delete(cg$rec);
|
|
cg$CUSTOMERS.domain_cascade_delete(cg$rec);
|
|
|
|
idx := cg$CUSTOMERS.cg$table.NEXT(idx);
|
|
END LOOP;
|
|
END IF;
|
|
|
|
-- Application_logic Post-After-Delete-statement <<Start>>
|
|
-- Application_logic Post-After-Delete-statement << End >>
|
|
|
|
END;
|
|
/
|
|
|
|
|
|
|