git-svn-id: http://locode01.ad.dom/svn/WEBMIP/trunk@50874 248e525c-4dfb-0310-94bc-949c084e9493
This commit is contained in:
@@ -0,0 +1,104 @@
|
||||
CREATE OR REPLACE TRIGGER "EFT_NOM".cg$BUR_SYSTEM_EVENT_CONTACTS
|
||||
|
||||
BEFORE UPDATE ON SYSTEM_EVENT_CONTACTS FOR EACH ROW
|
||||
|
||||
|
||||
DECLARE
|
||||
cg$rec cg$SYSTEM_EVENT_CONTACTS.cg$row_type;
|
||||
cg$ind cg$SYSTEM_EVENT_CONTACTS.cg$ind_type;
|
||||
cg$old_rec cg$SYSTEM_EVENT_CONTACTS.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.SYEC_ID := :new.SYEC_ID;
|
||||
cg$ind.SYEC_ID := (:new.SYEC_ID IS NULL AND :old.SYEC_ID IS NOT NULL )
|
||||
OR (:new.SYEC_ID IS NOT NULL AND :old.SYEC_ID IS NULL)
|
||||
OR NOT(:new.SYEC_ID = :old.SYEC_ID) ;
|
||||
cg$SYSTEM_EVENT_CONTACTS.cg$table(cg$SYSTEM_EVENT_CONTACTS.idx).SYEC_ID := :old.SYEC_ID;
|
||||
cg$rec.SYEV_ID := :new.SYEV_ID;
|
||||
cg$ind.SYEV_ID := (:new.SYEV_ID IS NULL AND :old.SYEV_ID IS NOT NULL )
|
||||
OR (:new.SYEV_ID IS NOT NULL AND :old.SYEV_ID IS NULL)
|
||||
OR NOT(:new.SYEV_ID = :old.SYEV_ID) ;
|
||||
cg$SYSTEM_EVENT_CONTACTS.cg$table(cg$SYSTEM_EVENT_CONTACTS.idx).SYEV_ID := :old.SYEV_ID;
|
||||
cg$rec.SYUS_ID := :new.SYUS_ID;
|
||||
cg$ind.SYUS_ID := (:new.SYUS_ID IS NULL AND :old.SYUS_ID IS NOT NULL )
|
||||
OR (:new.SYUS_ID IS NOT NULL AND :old.SYUS_ID IS NULL)
|
||||
OR NOT(:new.SYUS_ID = :old.SYUS_ID) ;
|
||||
cg$SYSTEM_EVENT_CONTACTS.cg$table(cg$SYSTEM_EVENT_CONTACTS.idx).SYUS_ID := :old.SYUS_ID;
|
||||
cg$rec.PRIORITY := :new.PRIORITY;
|
||||
cg$ind.PRIORITY := (:new.PRIORITY IS NULL AND :old.PRIORITY IS NOT NULL )
|
||||
OR (:new.PRIORITY IS NOT NULL AND :old.PRIORITY IS NULL)
|
||||
OR NOT(:new.PRIORITY = :old.PRIORITY) ;
|
||||
cg$SYSTEM_EVENT_CONTACTS.cg$table(cg$SYSTEM_EVENT_CONTACTS.idx).PRIORITY := :old.PRIORITY;
|
||||
cg$rec.ALTERNATE_FAX := :new.ALTERNATE_FAX;
|
||||
cg$ind.ALTERNATE_FAX := (:new.ALTERNATE_FAX IS NULL AND :old.ALTERNATE_FAX IS NOT NULL )
|
||||
OR (:new.ALTERNATE_FAX IS NOT NULL AND :old.ALTERNATE_FAX IS NULL)
|
||||
OR NOT(:new.ALTERNATE_FAX = :old.ALTERNATE_FAX) ;
|
||||
cg$SYSTEM_EVENT_CONTACTS.cg$table(cg$SYSTEM_EVENT_CONTACTS.idx).ALTERNATE_FAX := :old.ALTERNATE_FAX;
|
||||
cg$rec.ALTERNATE_TELEPHONE := :new.ALTERNATE_TELEPHONE;
|
||||
cg$ind.ALTERNATE_TELEPHONE := (:new.ALTERNATE_TELEPHONE IS NULL AND :old.ALTERNATE_TELEPHONE IS NOT NULL )
|
||||
OR (:new.ALTERNATE_TELEPHONE IS NOT NULL AND :old.ALTERNATE_TELEPHONE IS NULL)
|
||||
OR NOT(:new.ALTERNATE_TELEPHONE = :old.ALTERNATE_TELEPHONE) ;
|
||||
cg$SYSTEM_EVENT_CONTACTS.cg$table(cg$SYSTEM_EVENT_CONTACTS.idx).ALTERNATE_TELEPHONE := :old.ALTERNATE_TELEPHONE;
|
||||
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$SYSTEM_EVENT_CONTACTS.cg$table(cg$SYSTEM_EVENT_CONTACTS.idx).PERIOD_START := :old.PERIOD_START;
|
||||
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$SYSTEM_EVENT_CONTACTS.cg$table(cg$SYSTEM_EVENT_CONTACTS.idx).PERIOD_END := :old.PERIOD_END;
|
||||
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$SYSTEM_EVENT_CONTACTS.cg$table(cg$SYSTEM_EVENT_CONTACTS.idx).CREATED_BY := :old.CREATED_BY;
|
||||
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$SYSTEM_EVENT_CONTACTS.cg$table(cg$SYSTEM_EVENT_CONTACTS.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$SYSTEM_EVENT_CONTACTS.cg$table(cg$SYSTEM_EVENT_CONTACTS.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$SYSTEM_EVENT_CONTACTS.cg$table(cg$SYSTEM_EVENT_CONTACTS.idx).UPDATED_ON := :old.UPDATED_ON;
|
||||
|
||||
|
||||
cg$SYSTEM_EVENT_CONTACTS.idx := cg$SYSTEM_EVENT_CONTACTS.idx + 1;
|
||||
|
||||
if not (cg$SYSTEM_EVENT_CONTACTS.called_from_package) then
|
||||
cg$SYSTEM_EVENT_CONTACTS.validate_arc(cg$rec);
|
||||
cg$SYSTEM_EVENT_CONTACTS.validate_domain(cg$rec, cg$ind);
|
||||
cg$SYSTEM_EVENT_CONTACTS.validate_domain_cascade_update(cg$old_rec);
|
||||
|
||||
cg$SYSTEM_EVENT_CONTACTS.upd(cg$rec, cg$ind, FALSE);
|
||||
cg$SYSTEM_EVENT_CONTACTS.called_from_package := FALSE;
|
||||
end if;
|
||||
|
||||
:new.SYEV_ID := cg$rec.SYEV_ID;
|
||||
:new.SYUS_ID := cg$rec.SYUS_ID;
|
||||
:new.PRIORITY := cg$rec.PRIORITY;
|
||||
:new.ALTERNATE_FAX := cg$rec.ALTERNATE_FAX;
|
||||
:new.ALTERNATE_TELEPHONE := cg$rec.ALTERNATE_TELEPHONE;
|
||||
:new.PERIOD_START := cg$rec.PERIOD_START;
|
||||
:new.PERIOD_END := cg$rec.PERIOD_END;
|
||||
:new.CREATED_BY := cg$rec.CREATED_BY;
|
||||
:new.CREATED_ON := cg$rec.CREATED_ON;
|
||||
:new.UPDATED_BY := cg$rec.UPDATED_BY;
|
||||
:new.UPDATED_ON := cg$rec.UPDATED_ON;
|
||||
-- Application_logic Post-Before-Update-row <<Start>>
|
||||
-- Application_logic Post-Before-Update-row << End >>
|
||||
END;
|
||||
/
|
||||
|
||||
Reference in New Issue
Block a user