الإخوة الأعزاء
السلام عليكم ورحمة الله وبركاته وكل عام وأنتم جميعاً بخير وصحة وسعادة بمناسبة شهر رمضان الكريم
وأرجو من الإخوة وضع مثال عن حركة المخزون يبين هذا المثال الكمية المشتراة والمنصرف والمتبقية في تقرير واحد مع العلم بأني لدي جدولين الأول للمشتريات(مشتريات الأصناف)
ويتكون من رقم الصنف واسم الصنف والكمية المشتراة وتاريخ الشراء
والثاني للمبيعات(مبيعات الأصناف)
ويتكون من رقم الصنف واسم الصنف و الكمية المباعة وتاريخ البيع
مع العلم بأن هذا الموضوع سبق طرحه أكثر من مرة فارجو مما لديه الإجابه
أن لا يبخل علينا وربنا يبارك فيه ويجعله في ميزان حسناته
وآخر دعونا أن الحمد لله رب العالمين

تم تعديل 4 أكتوبر 200520 سنة بواسطة moh

يبدو أن جميع الإخوة منشغلين
عموماً أنا حاولت حتى وصلت إلى النتيجة الصحيحة
وهي عمل شاشة نموذج به رقم الصنف واسم الصنف ويكون النموذج من نوع TUPLER
وكتابة الكود التالي وإن شاء الله يكون نافع لمن يرد

declare
return_stat boolean;
rec_cnt Number := 0;
begin
rec_cnt := TO_NUMBER(:SYSTEM.CURSOR_RECORD);
FIRST_RECORD;
For i IN 1.. rec_cnt LOOP
Go_Record(i);
SELECT SUM(INVOICE_PUR2.QTY) into :TOTAL_QTY FROM INVOICE_PUR2 where INVOICE_PUR2.item_no = :id AND INVOICE_PUR2.ITEM_TYP IS NULL;
SELECT SUM(INVOICE_ITEM.QTY) into :DIS2 FROM INVOICE_ITEM where INVOICE_ITEM.item_no = :id AND INVOICE_ITEM.ITEM_TYP IS NULL;
:total := NVL(:TOTAL_QTY,0) - NVL(:DIS2,0) ;

next_record;
END LOOP;
commit_form;
first_record;