لدي فورم يقوم بجلب بيانات من فورم اخر وهذا الفورم لا يقبل ان نعمل جلب لبيانات تم طلبها من قبل إذا طلبت جلب البيانات التي قد تم جلبها سابقا تظهر لي رساله انا قمت بكتابتها ولكن المشكله ان الرساله تظهر اكثر من مره ولا اعلم لماذا رغم اني لم اكتبها الا مره واحده في الزر فما هو السبب الرئيسي لهذه المشكله .. اتمنى الرد وجزاكم الله خيرا

برجاء وضع الكود ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

ايهاب وجدى

Declare
v_no char(30):=:INVOICE_PURCHASe.ORDER_No;


CURSOR C1 IS SELECT ITEM_NO,ITEM_NAME,ITEM_DESCREBION,ITEM_COST,ORDER_QUANTITY,units,pp1,ORDER_NO
FROM ORDER_SUPPLY_DETAILS1 WHERE ORDER_STATUS='1' and ORDER_NO=v_no ;

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

rec c1%rowtype;
begin

go_block('ORDER_SUPPLY_DETAILS2');
clear_block;

-------------------------------------
open c1;
loop
fetch c1 into :ORDER_SUPPLY_DETAILS2.ITEM_NO,:ORDER_SUPPLY_DETAILs2.ITEM_NAME,:ORDER_SUPPLY_DETAILs2.ITEM_DESCREBION,:ORDER_SUPPLY_DETAILs2.ITEM_COST,:ORDER_SUPPLY_DETAILs2.ORDER_QUANTITY,
:ORDER_SUPPLY_DETAILs2.ITEM_BOX_QUANTITY,:ORDER_SUPPLY_DETAILs2.pp1,:ORDER_SUPPLY_DETAILs2.order_no;
COMMIT;
next_record;
exit when c1%notfound;

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

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

end;

----------------------------------------------------------------
عندما اختار نفس الاوردر وهو مستخدم من قبل يعمل لي انسيرت ايرور وحولت المسج انه لايمكن استخدام الاوردر اكثر من مره واحد ثم يخرج الاليرت عن طريق onerror وهناك مشكله اخرى اريد ان اغلي جميع اليرتات الاوراكل مثل اليرت الحفظ الخاص به,,, وشكراعلى اهتمامك

Declare
v_no char(30):=:INVOICE_PURCHASe.ORDER_No;

CURSOR C1 IS SELECT ITEM_NO,ITEM_NAME,ITEM_DESCREBION,
ITEM_COST,ORDER_QUANTITY,units,pp1,ORDER_NO
FROM ORDER_SUPPLY_DETAILS1 
WHERE ORDER_STATUS='1' and ORDER_NO=v_no;
rec c1%rowtype;
begin

go_block('ORDER_SUPPLY_DETAILS2');
clear_block;
open c1; 
loop
fetch c1 into :ORDER_SUPPLY_DETAILS2.ITEM_NO,
:ORDER_SUPPLY_DETAILs2.ITEM_NAME,
:ORDER_SUPPLY_DETAILs2.ITEM_DESCREBION,
:ORDER_SUPPLY_DETAILs2.ITEM_COST,:
ORDER_SUPPLY_DETAILs2.ORDER_QUANTITY,
:ORDER_SUPPLY_DETAILs2.ITEM_BOX_QUANTITY,:
ORDER_SUPPLY_DETAILs2.pp1,:ORDER_SUPPLY_DETAILs2.order_no;
COMMIT;
next_record;
exit when c1%notfound;

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

ممكن يكون السبب فى ذلك ان حقل المورد unique هذا احتمال !!!!!!!!!!!!!!!!!!!!

يمكن نقل امر الcommit
بعد الانتهاء من ال loop

فعلا حقل رقم الاوردر يونيك وهذا السبب اللي يخيليني اضع اليرت ينبهه انه لايتم ادخاله اكثر من مره
المشكله في عدد خروج الاليرت تقربيا 3 مرات ثم يسال هل اريد الحفظ ثم يعود ويخرج الاليرت 3 مرات
ماهو السبب رايك
شكرا لكم على الاهتمام

الافضل عمل cursor يقوم بعمل فحص اسم المورد واذا كان موجود تظهر alert تنبه وايقاف رسائل الاوراكل عن طريق
on-error
null;
on-message
null;

تم تعديل 3 يونيو 200619 سنة بواسطة hobaa