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;

/

Baca Selengkapnya..

Script_Untuk Aplikasi Baru

---

From: Jokolee [mailto:jokolee@jau.co.id]
Sent: 09 Nopember 2007 10:58
To: 'Andy JAU'
Subject: Script

Para Bapak-bapak di Kantah….

Yang masalah “Berkas dibuka petugas Lain “ ternyata memang ada kekurangan di trigger database, Untuk itu tolong jalanin script ini di tiap kantah (kecuali Jak-bar karena belum pakai aplikasi baru)…

Script :

CREATE OR REPLACE TRIGGER After_ins_berkasflow

after INSERT ON BERKASFLOW

FOR EACH ROW

declare

vflowname VARCHAR2 (15);

vsubyekid VARCHAR2 (32);

vduedate DATE;

BEGIN

vflowname:=:new.berkasflowname;

if vflowname='MULAI' OR vflowname='KIRIM' OR vflowname='TOLAK' or vflowname='AMBIL'

then

select JBPM_TASKINSTANCE.duedate_ into vduedate

from berkas,JBPM_TOKEN,JBPM_TASKINSTANCE

where berkasid=:new.berkasid

and berkas.berkaswfm=JBPM_TOKEN.PROCESSINSTANCE_

and JBPM_TOKEN.id_=JBPM_TASKINSTANCE.token_

and JBPM_TASKINSTANCE.end_ is null;

if vflowname='MULAI'

then

insert into INBOXBERKAS

select a.*,:new.profileid,vsubyekid,vduedate,:new.useridto from berkas a

where berkasid=:new.berkasid;

else

update INBOXBERKAS

set profileid=:new.profileid,duedate=vduedate,useridto=:new.useridto

where berkasid=:new.berkasid;

end if;

end if;

END;

/

Thanks…………..:)

Wassalam

Jokolee

Baca Selengkapnya..