مرحبا اخواني..
اتمنى منك مساعدتي على اتمام هذا الكود وهو يقوم بعمليه استعلام من فورم الفواتير عن الاصناف من حيث الكميه والسعرواسم الصنف ورقمه ..بالنسبه لكود الكميه لا اجد اي مشكله اما بالنسبه لكود استعلام السعر هناك مشكله
لان الصنف الواحد يختلف سعره من فاتوره لفاتوره وانا اريد ان استعلم عن اخر سعر لهذا الصنف وهذا يمكن اذا اشترطت السعر من الفاتورة بحيث يكون الشرط اكبر تاريخ اي (max (invoice_date
اتمنى منكم المساعده.. واشكركم على حسن تعاملكم .. اليكم الكود الذي سوف يكون على زر
commit;
declare
id1 date;x1 number;x2 number;x3 number;x4 number;
RR NUMBER;x5 number;x6 number;x7 number;x8 number;x9 number;x10 number;
TOTAL number; s number; pl_id ParamList; CC4 number;
id8 number;id7 number;id6 number;id5 number;id4 number;id3 number;id2 number;
-------------------------------------------------------------
CURSOR C1 IS SELECT ITEM_NO,ITEM_NAME,ITEM_DESC
FROM ITEM ;

-----------------------------------------------------------

rec c1%rowtype;
begin
-- delete from WRH;
COMMIT;

-------------------------------------
open c1;
loop
fetch c1 into rec;
exit when c1%notfound;

-----------------------------------------------

SELECT SUM(ORDER_QUANTITY),sum(NEW_PRICE) INTO X1,X2 FROM ORDER_SUPPLY_DETAILS2 WHERE ITEM_NO=REC.ITEM_NO AND
INVOICE_DATE BETWEEN :FROM1 AND :TO1 ;

insert into WRH(Item_Barcode,ITEM_NAME,ITEM_DESC,QTY,TOT)
values(REC.ITEM_NO,REC.ITEM_NAME,REC.ITEM_DESC,NVL(X1,0),NVL(X2,0));
commit;
end loop;
close c1;
GO_BLOCK('WRH');
EXECUTE_QUERY;
end;

الاخت لينا تحية وبعد بخصوص ما طلبت انت بحاجة للاتي :

1) في program unit انت بحاجة لكتابة procedure : يعمل على :
- استدعاء اخر قيم من tables لكل record والمطلوب هو استدعاء اخر سعر مدخل
على سبيل المثال

procedure ins_into_trans is
   cursor items_cur is
        SELECT A,B,C  FROM TRANSACTION WHERE A=max(price) ???and?????
الجملة بالامكان كتابتها حسب ما ماهو مطلوب منك
بامكانك ايضا مقارنة السعر في جزء من curser  
begin
for items in items_cur loop
select A,B,C ???? INTO ?????????? FROM 
END LOOP 
END 

بعد ما يتم كتابة procedure :
بامكانك استدعاءه من اي مكان تريدي

بالتوفيق