الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

سؤال في الفورم

مغلق
بدأه mamoa في 13 ديسمبر 2003 · 3 رد · 844 مشاهدة · في قواعد بيانات Oracle
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

أخواني الاعزاء

لدي فورمين الفورم الاول يقوم بإستدعاء لبفورم الثاني

بواسطة زرار عملته على الفورم الاول وعملت في التريقر

الخاص بالزرار الجمل التالية

DECLARE

A PARAMLIST

BEGIN

A:=CREATE_PARAMETER_LIST('DDD’);

ADD_PARAMETER(A,'NO',TEXT_PARAMETER,:STK_ITEM.item_no);

RUN_PRODUCT(FORMS,'br_v',ASYNCHRONOUS,RUNTIME,FILESYSTEM,A,’’);

END;

هذه الجملة منقولة بالنص من درس الاخ ثامر جزاه الله ألف خير وجعله في ميزان حسناته

وهذه الطريقة تعمل بصوره صحيحة 100%

كذلك عملت في الفورم الثاني التريقر التالي على مستوى الفورم

WHEN-NEW-FORM-INSTANCE

DECLARE

B BLOCK;

BEGIN

B:=FIND_BLOCK('trf_v');

IF(:PARAMETER.NO IS NOT NULL)THEN

SET_BLOCK_PROPERTY(B,DEFAULT_WHERE,'ITEM_NO='||:PARAMETER.NO);

GO_BLOCK('trf_V');

EXECUTE_QUERY;

END IF;

END;

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

عند تنفيذ الفورم الاول وعند الضغط على زرار الاستدعاء ينفذ بصورة صحيحة 100%

ولكن عند الخروج من الفورم الثاني والعودة للفورم الاول

المشكلة هي عند الضغط على زرار الاستدعاء للتنفيذ الفورم الثاني للمرة الثانية تظهر رسالة الخطاء التالية

CANNOT CREATE PARAMETER_LIST DDD

LIST WITH THIS NAME EXISTS

كيف استطيع التخلص من هذه المشكلة

بحيث استدعي الفورم الثاني اكثر من مرة

شاكراً لكم وجعله في ميزان حسناتكم

الشكر موصول للأخوين علي أحمد و O7OC

فقد ساعداني كثيراً في الموضوع

#2

وعليكم السلام

فقط تحتاج إلى عمل destroy وذلك بكتابة الجملة التالية قبل إعادة انشاء ال parameter list :

DECLARE
A PARAMLIST;
BEGIN

--**************************************
A:=GET_PARAMETER_LIST('DDD');	

IF NOT ID_NULLl(A) THEN 
     DESTROY_PARAMETRE_LIST(A); 
END IF; 
--**************************************
A:=CREATE_PARAMETER_LIST('DDD’);
ADD_PARAMETER(A,'NO',TEXT_PARAMETER,:STK_ITEM.item_no); 
RUN_PRODUCT(FORMS,'br_v',ASYNCHRONOUS,RUNTIME,FILESYSTEM,A,’’);
END;
#3

السلام عليكم

الاخ محمد الشنقيطي المحترم

جزاك الله خير على الحل

وجعله الله في ميزان حسناتك

هذا الموضوع مغلق.

مواضيع مشابهة