update staitment

متابعين

بتاريخ: 1 يونيو 200619 سنة

مرحبا عندي سؤال عن جمله الابديت عندي فورم يرسل بيانات المشتريات الى المخزن من ناحيه رقم واسم الصنف والكميه واخر سعر لتسعيرتها
المشكله انه فعلا يعمل ابديت على اللي في المخزن وانسيرت للبيانات الجديده بس المشكله اني كل ماضغطت الزر اللي فيه ابد ديت عند الانتهاء من الفاتوره الواحده يعمل لي اب ديت من اول وجديد على كل الريكوردز يعني يضاعف الكميات الي بالمخزن
بس ما يعطيني اخر سعر تم بها الشراء بل اول سعر هل هذا شائع في جمله الابديت ام ماذا
؟
اشكركم على سعه صدركم

اقتباس

تقديم بلاغ

بتاريخ: 1 يونيو 200619 سنة

هذا الرابط يفيدك
http://www.araboug.org/ib/index.php?showtopic=14282
لا تهتمى بأخر مشركه

ايهاب وجدى

اقتباس

تقديم بلاغ

بتاريخ: 1 يونيو 200619 سنة

كاتب الموضوع

Declare
v_no char(30):=:INVOICE_PURCHASe.ORDER_No; nn number;
C11 NUMBER;
rr1 varchar2(40):=:INVOICE_PURCHASE.INVOICE_PURCHASE_NO;

CURSOR C1 IS SELECT ITEM_NO,ITEM_NAME,ORDER_QUANTITY,NEW_PRICE
FROM ORDER_SUPPLY_DETAILS2 where :INVOICE_PURCHASE.INVOICE_PURCHASE_NO=rr1 ;

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

rec c1%rowtype;
begin

-------------------------------------
open c1;
loop
fetch c1 into rec;
exit when c1%notfound;
select count(ITEM_BARCODE) into nn from wrh where ITEM_BARCODE=rec.ITEM_NO;
if nn=0 then
insert into wrh(ITEM_BARCODE,ITEM_NAME,QTY,PRI)
values(rec.ITEM_NO,rec.ITEM_NAME,rec.ORDER_QUANTITY,rec.NEW_PRICE);
COMMIT;
else
SELECT NVL(QTY,0) INTO C11 FROM WRH WHERE ITEM_BARCODE=REC.ITEM_NO;C11:=NVL(C11,0);
update wrh
set qty=(rec.ORDER_QUANTITY+C11), PRI=rec.NEW_PRICE
where ITEM_BARCODE=rec.item_no;
commit;
end if;
-----------------------------------------------

end loop;
close c1;
---GO_BLOCK('ORDER_SUPPLY_DETAILS2');
-- EXECUTE_QUERY;
call_form('wrh2');
end;