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

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

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

New_Text_Document.txt

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

PURCHASE_inv.fmb

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

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

New_Folder.rar

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

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

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

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;

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

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