كيف يتم أستدعار الريبورت من خلال عن طريق Application server عن طريق Forms 10g حيث تم أنزال Application server وتشغيل الفورة ولكن لم يشتغل التقارير فقط
وياريت تدعم المساعدة بشي من الشرح والأكواد ان وجدت

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

نزل الفيديو رقم 8
http://wme-mma2008.blogspot.com/2008_12_01_archive.html

أولا عمل زر بالفورم لتشغيل التقرير
ونضع بداخله مثل هذا الكود

declare
 p_list  varchar2(2000);
begin
  run_report('report_name', p_list, 'printer_name', 'P');  
  end;
ثانيا نعرف run_report وهو عبارة عن procedure يوضع في program unit او في library حسب الرغبة
ونكتب ما يلي :
procedure run_report(p_report_name  varchar2,
	   p_list	  varchar2,
	   p_printer_name varchar2,
	   p_dest	  varchar2 default 'P') is
report_id	REPORT_OBJECT;
rep_job_id	varchar2(255);
report_status  varchar2(100);
begin
begin
  if((p_printer_name = '-')and(p_dest = 'P'))then
  message('undefined-printers');raise form_trigger_failure;
 end if;
 
 
report_id := find_report_object('rep');

set_report_object_property(report_id, report_filename, p_report_name);
set_report_object_property(report_id, report_execution_mode, batch);
set_report_object_property(report_id, report_desformat, 'HTMLCSS');
set_report_object_property(report_id, report_other, 'paramform=no');
set_report_object_property(report_id, report_other, p_list);

if(p_dest = 'P')then
 set_report_object_property(report_id, report_destype, printer);
 set_report_object_property(report_id, report_desname, p_printer_name);
 set_report_object_property(report_id, report_comm_mode, asynchronous);
 rep_job_id := run_report_object(report_id);
else
 set_report_object_property(report_id, report_destype, cache);
 set_report_object_property(report_id, report_comm_mode, synchronous);
 rep_job_id := run_report_object(report_id);

  report_status := report_object_status(rep_job_id);
 while report_status in ('RUNNING','OPENING_REPORT','ENQUEUED') loop
  report_status := report_object_status(rep_job_id);
 end loop;
 if nvl(report_status, 'FINISHED') != 'FINISHED' then
message('failed-to-run-rep');
 else
  begin
 web.show_document([url="http://ip_address:7778/forms/frmservlet?config=sid"]http://ip_address:77...vlet?config=sid[/url] || 'reports/rwservlet/getjobid='||
 substr(rep_job_id,instr(rep_job_id,'_',-1)+1)||'?'||'server=' || v_rep_server,'_blank');
  exception
when no_data_found then
	message('undefined-rep-server');
  end;
 end if;
end if;
end;

السلام عليكم اخي امجد انا مشكرة جدا جدا ولكن انا عايزة اشغل الريبورت على الابليكيشن سيرفر كيف هو التقرير شغال ويمكن مناددته طما في كود حضرتك تقريباً بس انا عايزة في اوراكل ابليكيشن سيرفر يعني اقصد على الشبكة وجزال الله خير الجزاء
لو حد عندو اي فكرة ارجو ان يساعدني لاني محتاجة دا يو الاحد انشاء الله

السلام عليكم اخي امجد انا مشكرة جدا جدا ولكن انا عايزة اشغل الريبورت على الابليكيشن سيرفر كيف هو التقرير شغال ويمكن مناددته طما في كود حضرتك تقريباً بس انا عايزة في اوراكل ابليكيشن سيرفر يعني اقصد على الشبكة وجزال الله خير الجزاء
لو حد عندو اي فكرة ارجو ان يساعدني لاني محتاجة دا يو الاحد انشاء الله

web.show_document('/reports/rwservlet?

&report=C:\emp_report.jsp&userid=hr/hr@orcl&destype=cache&desformat=html&p_dept_id='||:employees.department_id,'_blanc');

http://www.araboug.org/ib/index.php?showtopic=48602&hl=&fromsearch=1

بسم الله الرحمن الرحيم

طبعا يجب تعريف بعض المتغيرات داخل application server
فمثلا يكون برنامج application server نازل على C:\oracle\frhome_1
ثم ندخل الى C:\oracle\FRHome_1\forms\server الى هذا الفولدر ونجد ملف اسمه default.env وهذ الملف مهم جدا لتحديد مسار ملفات التشغيل والتقارير والليبراريز بحث نضيف عليه على سبيل المثال
اذا أضفنا ملفت التشغيل على D:\test\forms
فنكتب داخل ملف default.env هذه الجملة :
FORMS_PATH=C:\oracle\FRHome_1\forms;D:\test\libs;D:\test\forms
طبعا لا ننسى ان ندخل بواسطة run الى regedit وهناك نذهب الى HKEY_LOCAL_MACHINE ثم الى SOFTWARE EL ثم الى ORACLE ثم الى KEY_FRHOME1 ثم الى ملف REPORTS_PATH ونضيف اليه بوضع ; مسار ملفات التقارير

أرجو ان أكون قد وضحت الصورة

تم تعديل 18 ديسمبر 201114 سنة بواسطة amjad ghanim