Script Trigger Perbaikan untuk Ekspedisi Berkas.

---

From: Jokolee [mailto:jokolee@jau.co.id]

Hallo Bapak2 Admin di Kantah LOC2B (DKI Jakarta) ,

Tolong di jalankan script trigger perbaikan di bawah ini, masalah ini terjadi jika di kantah memakai “Ekspedisi Berkas”, tetapi karena di kantah belum pakai

Berarti saat ini kantah tidak bermasalah....

Script :

CREATE OR REPLACE TRIGGER AFTER_UPDATE_BERKAS

AFTER UPDATE

ON BERKAS

FOR EACH ROW

declare

vberkasstatus varchar2(2);

BEGIN

vberkasstatus :=:new.berkasstatus;

if (vberkasstatus='4' or vberkasstatus='0' or vberkasstatus='3') and :new.berkaswfm>0

then

delete INBOXBERKAS where berkasid=:new.berkasid;

else

if(:new.berkaswfm>0 )

then

update INBOXBERKAS

set BERKASNOMOR=:new.BERKASNOMOR,

BERKASYEAR=:new.BERKASYEAR,

BERKASREMARK=:new.BERKASREMARK,

BERKASWFM=:new.BERKASWFM,

CURRENTPROFILE=:new.CURRENTPROFILE,

EMPLOYEENIP=:new.EMPLOYEENIP,

FINISHDATE=:new.FINISHDATE,

ekpedisiberkas=:new.ekpedisiberkas

where berkasid=:new.berkasid;

end if;

end if;

END;

/