Kalau anda ingin memanggil procedure tsb via form, misal pada saat sebuah tombol di tekan.
Nama tombol : TEST_BUTTON Nama Items yg lainnya utk memasukkan nilai parameters: item1 --> utk IDPROSES1, item2 --> utk IDPROSES2, item3 --> utk NOBL1, item4 --> utk NOBL2 Pada TEST_BUTTON, create sebuah trigger, WHEN-BUTTON-PRESSED isi sbb: BEGIN CON_FUC1(:item1,:item2,:item3,:item4); END; Bowo --- In [EMAIL PROTECTED], Z Bakry <[EMAIL PROTECTED]> wrote: > Dear All, > > Saya punya procedure seperti di bawah ini, dan sudah > bisa jalan dengan iSQL*Plus. > > Selanjutnya saya ingin procedure tersebut dijalankan > melalui form dimana sebelumnya IDPROSES1, IDPROSES2, > NOBL1 dan NOBL2 bisa di-input terlebih dahulu lalu > procedure tsb dijalankan > > Bagaimana ya caranya.... > > Terima kasih > Bakry > > > CREATE OR REPLACE PROCEDURE CON_FUC1( IDPROSES1 > VARCHAR2, IDPROSES2 VARCHAR2, NOBL1 VARCHAR2, NOBL2 > VARCHAR2 ) IS > > v_idproses varchar2(20); > v_idproses2 varchar2(20); > v_nobl varchar2(20); > v_idprosesDO varchar2(20); > v_nocontainer varchar2(50); > v_partai1 varchar2(12); > v_partai2 varchar2(12); > v_pelayaran varchar2(50); > v_mtuang varchar2(11); > v_mtuang2 varchar2(11); > v_kursjaminan varchar2(16); > v_kursjaminan2 varchar2(16); > v_nilaijamin decimal(15,2); > v_nilaijamin2 decimal(15,2); > v_freedemurage date; > v_tglkblCON date; > v_SP2 date; > v_EIR date; > v_krgnilaijamrp decimal(15,2); > v_krgnilaijamus decimal(15,2); > v_kurskembali varchar2(10); > v_pengembalian varchar2(15); > v_banktunairp decimal(15,2); > v_banktunaius decimal(15,2); > v_bankgiro decimal(15,2); > v_nogiro varchar2(30); > v_idtranskeluar varchar2(15); > V_KET varchar2(50); > Q INTEGER; > v_SQLSTAT varchar2(5000); > v_TIDPORSES2 varchar2(20); > v_TNOBL1 varchar2(20); > v_TNOBL2 varchar2(20); > v_CARA varchar2(20); > > > BEGIN > > --INSERT DATA > BEGIN > > DECLARE > > CURSOR c_inputKJ IS > select A.PPSI_IDProses, > A.PPSI_NoBL, > B.DPK_NoPK, > D.DBL_JML, > D.DBL_UKURAN, > C.mst_namapersh, > E.MP_MtUang, > E.MP_Kurs, > E.MP_JmlPemb, > F.PDO_TGLBATASFTD, > H.DEIR_RETURNDATE, > H.DEIR_TGLRPT, > G.DSP2_TGLRPT, > H.DEIR_CUSTAMOUNTRP, > H.DEIR_CUSTAMOUNTUS, > H.DEIR_KETERANGAN > from PPSI A, > DPETIKEMAS B, > MASTER C, > DBL D, > MSTPENGELUARAN E, > PAMBILDO F, > DSP2 G, > DEIR H > where A.PPSI_IDProses = B.DPK_IDProses > and > D.DBL_IDProses = A.PPSI_IDProses > and > D.DBL_IDPelayaran = C.mst_id > and > E.MP_IDProses = A.PPSI_IDProses > and > F.PDO_IDPROSES = A.PPSI_IDProses > and > A.PPSI_IDProses = G.DSP2_IDPROSES > and > A.PPSI_IDProses = H.DEIR_IDPROSES > and > E.MP_KDBIAYA = '000000000022' > order by A.PPSI_IDProses; > > BEGIN > > DELETE FROM tablerptkenjam; > OPEN c_inputKJ; > LOOP > > FETCH c_inputKJ > INTO v_idproses, > v_nobl, > v_nocontainer, > v_partai1, > v_partai2, > v_pelayaran, > v_mtuang, > v_kursjaminan, > v_nilaijamin, > v_freedemurage, > v_tglkblCON, > v_SP2, > v_EIR, > v_krgnilaijamrp, > v_krgnilaijamus, > v_ket; > > EXIT WHEN c_inputKJ%NOTFOUND; > > INSERT INTO tablerptkenjam ( > IDPROSES, > NOBL, > NOCONTAINER, > PARTAI1, > PARTAI2, > PELAYARAN, > MTUANG, > KURSJAMINAN, > NILAIJAMIN, > FREEDEMURAGE, > TGLKBLCON, > SP2, > EIR, > KRGNILAIJAMRP, > KRGNILAIJAMUS, > KET ) > VALUES ( v_idproses, > v_nobl, > v_nocontainer, > v_partai1, > v_partai2, > v_pelayaran, > v_mtuang, > v_kursjaminan, > v_nilaijamin, > v_freedemurage, > v_tglkblCON, > v_SP2, > v_EIR, > v_krgnilaijamrp, > v_krgnilaijamus, > v_ket ); > > END LOOP; > CLOSE c_inputKJ; > COMMIT; > > END ; > END; > > --UPDATE DATA > BEGIN > > DECLARE > > CURSOR c_inputKJ2 IS > select A.PPSI_IDProses, > E.MP_MtUang, > E.MP_Kurs, > E.MP_JmlPemb, > E.MP_CARA, > E.MP_NOGIRO > from PPSI A, > MSTPENGELUARAN E, > tablerptkenjam B > where E.MP_IDProses = > A.PPSI_IDProses and > A.PPSI_IDProses = B.IDPROSES > and > E.MP_KDBIAYA = > '000000000032'; > > BEGIN > > OPEN c_inputKJ2; > LOOP > > FETCH c_inputKJ2 > INTO v_idproses, > v_mtuang, > v_kursjaminan, > v_nilaijamin, > v_CARA, > v_NOGIRO; > > EXIT WHEN c_inputKJ2%NOTFOUND; > > update tablerptkenjam set banktunairp = > v_nilaijamin > where IDPROSES = rtrim(v_idproses) > and rtrim(v_CARA) = 'Tunai'; > update tablerptkenjam set kurskembali = > v_mtuang > where IDPROSES = rtrim(v_idproses) > and rtrim(v_CARA) = 'Tunai'; > update tablerptkenjam set bankgiro = > v_nilaijamin > where IDPROSES = rtrim(v_idproses) > and rtrim(v_CARA) = 'Giro'; > update tablerptkenjam set nogiro = > v_NOGIRO > where IDPROSES = rtrim(v_idproses) > and rtrim(v_CARA) = 'Giro'; > > END LOOP; > CLOSE c_inputKJ2; > COMMIT; > > END ; > > END; > END ; > / > SHOW ERRORS; > > exec CON_FUC1( '200506-00026', '200506-00026','','' ); > select * from tablerptkenjam ; > > > __________________________________________________ > Do You Yahoo!? > Tired of spam? Yahoo! Mail has the best spam protection around > http://mail.yahoo.com ------------------------ Yahoo! Groups Sponsor --------------------~--> <font face=arial size=-1><a href="http://us.ard.yahoo.com/SIG=12hgthrp3/M=362131.6882499.7825260.1510227/D=groups/S=1705007183:TM/Y=YAHOO/EXP=1124701839/A=2889191/R=0/SIG=10r90krvo/*http://www.thebeehive.org ">Get Bzzzy! (real tools to help you find a job) Welcome to the Sweet Life - brought to you by One Economy</a>.</font> --------------------------------------------------------------------~-> -- -----------I.N.D.O - O.R.A.C.L.E--------------- Keluar: [EMAIL PROTECTED] Website: http://indo-oracle.lizt.org (NEW) ----------------------------------------------- Bergabung dengan Indonesia Thin Client User Groups, Terminal Server, Citrix, New Moon Caneveral, di: http://indo-thin.vze.com Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/indo-oracle/ <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
