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=12h5ghbcf/M=362329.6886308.7839368.1510227/D=groups/S=1705007183:TM/Y=YAHOO/EXP=1124689873/A=2894321/R=0/SIG=11dvsfulr/*http://youthnoise.com/page.php?page_id=1992
">Fair play? Video games influencing politics. Click and talk back!</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/
