مشكلة التعديل على المخزون بعد عمل فاتورة

[sameh_oracle]

اخوانى الاحباء ارجو مساعدتى فى حل هذه المشكله
انا بعمل فاتورة وبدخل فيها اكتر من صنف وكل صنف بيروح لمخزن معين
والمفروض انى عندى اكثر من مخزن واكثر من صنف علشان كده عندى جدول ثالث اسمه المخزون والمفروض انى بعمل update فى جدول المخزون بالكميه الجديده لو الصنف موجود فعلا فى المخزن دى وبعمل insert لو الصنف دى مش موجود فى المخزن دى

المهم انا جربت اعمله الكود المرفق ده بس مش عاوز يشتغل ارجو من اخوانى مساعدتى
علشان الحته دى مهمه جدا عندى

[sameh_oracle]

مرفق كل ال table المستخدمه فى هذه العمليه

New_Text_Document.txt

[sameh_oracle]

وهذه هى الفورم الخاصه بالفاتورة وليس بها فى زرار save سوى هذا الكود الذى لا يعمل

PURCHASE_inv.fmb

[mustafa76]

ماهي رسالة الخطأ التي تظهر وفي اي تريجر يحصل الخطأ

[sameh_oracle]

بسم الله الرحمن الرحيم
المفروض ان هذا الكود انا عامله على زرار ال save
وهو مش عاوز يعمل compil اصلا
وهذا هو ال error الذى يظهر عنما اقوم بعمل ال compil
والملف المرفق يحتوى على صورتين عملتلهم print screen لل error علشان تشوفهم
وشكرا لاهتمامك اخى mustafa76

New_Folder.rar

[Moh_Ora]

السلام عليكم ورحمة الله وبركاته
فى ترصيد الكميات فى المخازن يفضل استخدم Trigger على Database

[mustafa76]

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

عدل الكود ليصبح كالتالي

DECLARE
V_MAX NUMBER;
V_CODE NUMBER;
v_test varchar2(10);
s_max number;
begin
go_block('pur_invoice_d');
first_record;
loop

begin

select nvl(max(id),0)+1 into s_max
from stock ;

select 's' into v_test
from stock
where item_id =:item_id
and st_id=:st_id ;

if sql%found then
update stock set qty =qty +:qty
where st_id=:st_id and item_id=:item_id;
end if;



exception
when no_data_found then

insert into stock values(s_max,:item_id,:st_id,:qty);
-- FORMS_DDL('COMMIT');
s_max:=s_max+1;
end;

exit when :system.last_record='TRUE';
next_record;

end loop;

end;

[sameh_oracle]

بسم الله الرحمن الرحيم
فى البدايه اشكر اخى mustafa76 على صراحته وانا اقدر صراحتك فانت بالتاكيد تريد الخير لى وانت بالنسبه لى خير من اى شخص قراءه ولم يعلق وهو يعمل انه يحتوى على الكثير من الخطاء
فجزاك الله عنى خير جزاء يا اخى
واتمنى ان نصبح اصدقاء فصديقك الحق هو الذى يصدقك حتى ولو كانت الحقيقه مره
وجزاك الله عنى خيرا مره ثانيه فى اهتمامك وتعديلك لهذا الكود وسوف اقوم بتجربته وان شاء الله انا متاكد انه صحيح هذه المرة

[mustafa76]

شكراً لك على رحابة صدرك وتحملك لثقلي عليك لكن الواقع مر جداً جداً يا اخي
نحن الان في الزمن الذي يذل به اهل العلم ويرفع فيه اهل الجهل وهذه هي الطامة الكبرى
ولا تتردد في اي استفسار والى الامام جميعاً