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

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

يقوم هذا الاجراء باعادة المسار الحالي الموجود به
النموذج وبذلك
يمكنك القيام بتشعيل نموذج اخر او برنامج داخل المسار
نفسه

قم باضافة وحدة برمجية ويوجد بها نفس الكود التالي

FUNCTION Application_path RETURN  varchar2 IS

PathName_length number(2);
FormName_length number(2);
PathNam_var varchar2(6500);
PathNam_Form varchar2(6500);

BEGIN
PathNam_Form
:=get_application_property(current_form_name);
FormName_length:=length(PathNam_form);

PathNam_var :=get_application_property(current_form);
PathName_length :=length(PathNam_var);

pathName_length := pathName_length - (FormName_length
+ 5);

RETURN substr(PathNam_var,1,pathName_length);
 
END;

ومن ثم قم باضافة وحدة برمجية اخرى تقوم باستدعء النموذج
والحصول على المسار من الكود الاول

PROCEDURE call_form_open (form_name varchar2) is
My_error number;
BEGIN
call_form(:global.PathName ||'\' || form_name
||'.fmx');
exception
when others then
show_alearts('STOP_FAILE','Form Name'||form_name
||'Not Found in Path Name'||:global.PathName||'Please
Cheac Coreact Path Name');
END;

لكي تقوم بالتعامل مع هذا الاجراء قم بكتابة الكود
التالي

call_form_open('FormName');

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