السلام عليكم ورحمه الله وبركاته
لدي مشكله وهي ان المستخدم يقوم بفتح البرنامج من القائمه الرئيسيه ثم يقوم بفتح برنامج اخر يظهر من فوقه ثم فوقه ثم ثم.....
وبدلا من ان يعود اليه مره اخر يقوم بفتحه مره اخري من القائمه فيفتح صفحه اخري للبرنامج وهذا يودءى في بعض الاحيان الي حدوث مشاكل فما هوالحل علما باني اعمل علي ديفلبر 6 i وداتا بيز 8i

الأخ / alaasms

يمكنك استخدام خاصية ال enabled = false قبل استدعاء البرنامج
ثم امر استدعاء البرنامج
ثم ارجاع الخاصية مرة اخرى enabled = true

اليك المثال التالى فى حالة استخدام ال menu لاستدعاء برامج النظام

DECLARE
MI_ID MENUITEM;
BEGIN
	 MI_ID :=FIND_MENU_ITEM('BASIC_DATA_MENU.TOWN');
  	   SET_MENU_ITEM_PROPERTY(MI_ID,ENABLED,PROPERTY_FALSE);
   CALL_FORM('d:\projects\TOWN',NO_HIDE);
   SET_MENU_ITEM_PROPERTY(MI_ID,ENABLED,PROPERTY_TRUE);
END;
 

مع تمنياتي بالتوفيق

اشكرك يا اخي علي هذه الفكره الجميله

يمكنك اخى الكريم استخدام هذا الكود فى Menu Item

declare
curr_form formmodule;
begin
curr_form :=find_form('FRM_DEPARTMENTS');
if id_null (curr_form) then
open_form ('c:\arc\forms\FRM_DEPARTMENTS');
else
go_form('FRM_DEPARTMENTS');
end if;
end;

وتقوم فكرة هذاالكود على البحث عن النموذج المطلوب فتحه فى الذاكرة عن طريق الامر

Find_form

وتكتب اسم النموذج

فاذا وُجد النموذج فهذا يعنى انه مفتوح بالتالى يتم الذهاب اليه باستخدام Go_form

واذا لم يكن مفتوح فيقوم بفتحه باستخدام Open_Form

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

id_null
وهى تعود بFlase اذا كان مفتوح وبـ True اذا كان العكس


مع تحياتى

اسامه سليمان

اشكرك يا اخي