السلام عليكم

الاخوة المبرمجون المحترمون

لقد قمت بتصميم برنامج شؤون موظفين على شكل tree و اشتغل مية المية و الحمد لله

و لكن لدي مشكلة وهي عندما يقوم المستخدم بالدخول الى شاشة معينة على الtree و يضغط ctrl+s او زر الحفظ في الفورم و لا يقوم المستخدم بتعديل بيانات سوف تظهر له رسالة FRM-40405 No Changes to apply

اسفل الشاشة و عندما يقوم المستخدم بالخروج من الشاشة يعود البرنامج الى الTree بالشكل الصحيح و المطلوب و لكن عندما يريد المستخدم الدخول على شاشة اخرى او نفس الشاشة تظهر الرسالة بشكل MESSAGE

اريد المساعدة .... كيفية ازالة هذه الرسالة

السلام عليكم

الاخوة المبرمجون المحترمون

لقد قمت بتصميم برنامج شؤون موظفين على شكل tree و اشتغل مية المية و الحمد لله

و لكن لدي مشكلة وهي عندما يقوم المستخدم بالدخول الى شاشة معينة على الtree و يضغط ctrl+s او زر الحفظ في الفورم و لا يقوم المستخدم بتعديل بيانات سوف تظهر له رسالة FRM-40405 No Changes to apply

اسفل الشاشة و عندما يقوم المستخدم بالخروج من الشاشة يعود البرنامج الى الTree بالشكل الصحيح و المطلوب و لكن عندما يريد المستخدم الدخول على شاشة اخرى او نفس الشاشة تظهر الرسالة بشكل MESSAGE

اريد المساعدة .... كيفية ازالة هذه الرسالة

على مستوى الـ form في trigger .. on-message 

تكتب الإيعاز 

null;

كده مش هيطلع اي رسالة خالص يا بشمهندسة , متهيألي ده ممكن يعملو مشكلة

نعم أعرف ..يعمل هذا الشيء عندما يصل الى المرحلة النهائية من العمل 

عارف طبعا ان حضرتك عارفة , انا بس بفكرك , وبعرفه , يمكن يكون ده يأثر علي متطلباته .

جزاك الله خيرا

هو أكيد يأثر ..نحن أعطيناه الطريقة وأكيد إن شاء الله يعرف متى يستخدمها 

الله يعطيك العافية

السلام عليكم

 

ممكن تشوف دا هيحل المشكلة

على مستوى الـ form في trigger .. on-message

DECLARE
   msgnum   NUMBER := MESSAGE_CODE;
   msgtxt   VARCHAR2 (80) := MESSAGE_TEXT;
   msgtyp   VARCHAR2 (3) := MESSAGE_TYPE;
BEGIN
   IF msgnum     = 40401     THEN
     NULL;
   ELSE
      msgtxt := (msgtyp || '-' || TO_CHAR (msgnum) || ': ' || msgtxt);
   END IF;
message(msgtxt);
END;

تم تعديل 13 نوفمبر 201510 سنة بواسطة ميسم الكرام

اشكركم جميعا على جودكم ومن خلال البحث تمكنت من الوصول الى امر CLEAR_MESSAGE حيث تم حل الاشكال عن طريقه

 

جزاكم الله خيرا ... جميعا

 

if :system.form_status = 'CHANGED' then

   commit_form;

end if;

 

تم تعديل 27 فبراير 201610 سنة بواسطة ميسم الكرام