hi risna, hope this help.
declare
CURSOR get_locn IS
SELECT locn_Code,Locn_Name FROM location_storage
WHERE whs_code = :WAREHOUSE.WHS_CODE
AND locn_type IN ('N','W','C')
AND mrp = DECODE(0,10,'Y',mrp);
BEGIN
Go_Block('STOCK_ALL_LOC');
First_Record;
Loop
:STOCK_ALL_LOC.LOCN_CODE := null;
:STOCK_ALL_LOC.OCN_NAME := null;
:STOCK_ALL_LOC.STK_QTY := null;
If :system.Last_Record = 'TRUE' then
exit;
End If;
Next_Record;
End Loop;
first_record;
FOR I IN get_locn LOOP
:STOCK_ALL_LOC.LOCN_CODE := I.locn_Code;
:STOCK_ALL_LOC.OCN_NAME := I.Locn_Name;
:STOCK_ALL_LOC.STK_QTY :=
NVL(get_cnf(I.locn_Code,:curr_stock.item_code),0);
next_record;
END LOOP;
END;
J
risna septi wrote:
>hallo all,
>mo tanya... create cursor n hasilnya bisa dimasukkan ke multiple record form?
>contoh ada 2 field
>saya uda coba, tapi yg keluar hny record pertama aja...
>
>ada bantuan dr teman2??
>
>PROCEDURE pointcalc IS
>cursor cp is
>select sum (db) points,pointname
>from dtl_trackpoint a, mst_points b
>where a.point_id=b.row_id and
>mcc_code=:permanen_code
>group by pointname;
>pn varchar2 (60);
>p number;
>BEGIN
>go_block ('points');
>first_record;
>loop
>open cp;
> fetch cp into :point.point,:point.pointname;
> next_record;
> IF :System.Last_Record = 'TRUE' THEN
> EXIT;
> END IF;
>
> close cp;
>end loop;
>
>
>END;
>
>
Send instant messages to your online friends http://asia.messenger.yahoo.com
------------------------ Yahoo! Groups Sponsor --------------------~-->
<font face=arial size=-1><a
href="http://us.ard.yahoo.com/SIG=12h944bji/M=362329.6886308.7839368.1510227/D=groups/S=1705007183:TM/Y=YAHOO/EXP=1124335959/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/
