السلام عليكم

إليكم الـ Procedure التالي لإغلاق جميع الشاشات المفتوحة مرة واحدة:

 

PROCEDURE close_all_forms
IS
   form_id   formmodule;
BEGIN
   FOR i IN (SELECT code, file_name
               FROM forms_table)
   LOOP
      form_id := FIND_FORM (i.file_name);


      WHILE NOT ID_NULL (form_id)
      LOOP
         CLOSE_FORM (form_id);
         form_id := FIND_FORM (i.file_name);
      END LOOP;
   END LOOP;
END;

* ملاحظة: الكود سيعمل معك إذا كان النظام عندك Dynamic يعني مخزن إسماء الـ Forms في جدول.

 

بالتوفيق.

* ملاحظة: الكود سيعمل معك إذا كان النظام عندك Dynamic يعني مخزن إسماء الـ Forms في جدول.

 

بالتوفيق.

مشكووووور وأهم شيء ذكرت الملاحظة 

مووضوع مهم يا غاالي

 

تدري كنت أبحث عن طريقة لعمل ذلك..

 

وكنت فكرتي ::

إنه إذا المستخدم مرة ثانيه على النظام يتم إغلاق جميع الواجهات التي كانت مفتوحة ويدخل من هذا فقط؟؟

 

موضوع جيد ياااا مبدددع..

تسلم يا صديقي

الفكره رائعه بارك الله فيك اخي احمد 

تسلم ليث وشكرا لمرورك.

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

...

تم تعديل 5 مارس 201412 سنة بواسطة scince

تسلم يا أخي العزيز...

 

مشكور ياستاذ احمد

 

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