السلام عليكم

ارجو المساعدة ضرور للاهمية اقوم بعمل فورمة اوركل 9i على انها بارميترفورم واستدعى تقرير لها واريد ان اعرض قيم الموجودة فى الفورم فى التقرير مرفق التقرير والفورم انا بستدعى التقرير والفورم دينامكNew Folder (3).rarNew Folder (3).rar

اخي سؤالك غير واضح

هل تريد ان ترسل باراميتر من الفورم للتقرير

ومن ثم تريد ان تظهر قيم هذه الباراميترز في الريبورت عند استدعائه؟

اخي سؤالك غير واضح

هل تريد ان ترسل باراميتر من الفورم للتقرير

ومن ثم تريد ان تظهر قيم هذه الباراميترز في الريبورت عند استدعائه؟

شكرا للرد للتوضيح اكثر اريد ان اعمل فورمة عبارة عن 4 textitem ثم ادخل فيهم القيم مثل نوع الجهاز والماركة واسم الادارة والفترة من الى  ثم اضغط على buttun طبع يظهر الريبورت فورا بدون اظهار شاشة البارميتر

ADD_PARAMETER (pl, 'paramform', text_parameter, 'NO');

 

اخي سؤالك غير واضح

هل تريد ان ترسل باراميتر من الفورم للتقرير

ومن ثم تريد ان تظهر قيم هذه الباراميترز في الريبورت عند استدعائه؟

شكرا للرد للتوضيح اكثر اريد ان اعمل فورمة عبارة عن 4 textitem ثم ادخل فيهم القيم مثل نوع الجهاز والماركة واسم الادارة والفترة من الى  ثم اضغط على buttun طبع يظهر الريبورت فورا بدون اظهار شاشة البارميتر

 

يا اخوة ارجو الممساعدة 

انا عندي فورم 10g و report 10g  اريد منكم المساعدة في ارسال الباراميتر من الفورم الى التقرير على ضوء الباراميتر يطبع التقرير  يعني مثلا ارسل رقم الموظف من الفورم يطبع بيانات الموظف 

 

بليزززززززززززز ارجو المساعدة

 

اعمل button واكتب تحتيه الكووود ده
DECLARE
rep_url varchar2(2000);
BEGIN
rep_url:='/reports/rwservlet?report=المسار+اسم الريبورت.rdf'
||'&desformat=htmlcss&destype=cache&userid=hr/hr@orcl'||'&اسم الباراميتر='''||:EMPLOYEE_ID||'''&paramform=no';
WEB.SHOW_DOCUMENT(rep_url,'_blank');
END;

 

تم تعديل 19 يونيو 201312 سنة بواسطة medoelgarhy

انت شغال 9i وهذا الكود اللى ع الفورم خاص ب 6i
ويوجد طريقتان لتشغيل الريبورت على 9i & 10g
الطريقة الاولى كما وضح لك الاستاذ 

medoelgarhy
الطريقة الثانية

 

 

Declare 

repid REPORT_OBJECT; 

v_rep VARCHAR2(500);

rep_status VARCHAR2(20); 

BEGIN 

repid := find_report_object('ReportName'); 

SET_REPORT_OBJECT_PROPERTY(repid,REPORT_EXECUTION_MODE,BATCH); 

SET_REPORT_OBJECT_PROPERTY(repid,REPORT_COMM_MODE,SYNCHRONOUS);

SET_REPORT_OBJECT_PROPERTY(repid,REPORT_DESTYPE,CACHE); 

SET_REPORT_OBJECT_PROPERTY(repid,REPORT_DESFORMAT,'pdf'); 

SET_REPORT_OBJECT_PROPERTY(repid,REPORT_SERVER,'report Server Name');

SET_REPORT_OBJECT_PROPERTY(repid,REPORT_OTHER,'paramform=no P1='||:TEXT_1 ||' P2='||:TEXT_2); 

v_rep := RUN_REPORT_OBJECT(repid); 

rep_status := REPORT_OBJECT_STATUS(v_rep); 

WHILE rep_status in ('RUNNING','OPENING_REPORT','ENQUEUED') 

LOOP 

rep_status := report_object_status(v_rep); 

END LOOP; 

IF rep_status = 'FINISHED' THEN 

WEB.SHOW_DOCUMENT('http://'||'IP Server'||':7778/reports/rwservlet/getjobid'||substr(v_rep,instr(v_rep,'_',-1)+1)||'?'||'server='||'Report Server Name','_blank'); 

ELSE

message('Error when running report'); 

END IF;

END;

 

برجاء تغيير كل اللى باللون الاحمر فقط