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..