كيف يمكنني عمل زر في الفورم يقوم باستدعاء التقرير مباشرةً
ارجوا الافادة

انا بضم صوتي لصوتك فعلا سؤال مهم وحلو

السلام عليكم

راجع هذا الرابط
http://www.araboug.org/ib/index.php?sho...68&hl=paramlist
وبالتوفيق

اخي العزيز

اعتقد في دالة اسمها

run_product غير متاكد من التهجأه ابحث عنها في الهيلب اعتقد انها ستنفع لان من ضمن البارمترات الي ممكن تمررها ريبورتس شوف وان شاء الله اكون قدرت اساعدك
مع تحياتي
اخوك محمد السقاف

استخدم هذا الكود في
when-Button-pressed

 Run_Product(REPORTS,'ReportName.rep', ASYNCHRONOUS,
RUNTIME,FILESYSTEM,'X', NULL); 

صديقي العزيز تحية بامكانك استخدام الكود التالي :
declare
p1 paramlist;
begin

p1:=create_parameter_list('list1');

add_parameter(P1,'PARAMFORM',text_parameter,'NO');
add_parameter(P1,'ID_1',text_parameter,:ITM.ID_1);
add_parameter(P1,'SARF_DATE_1',text_parameter,:ITM.SARF_DATE_1);
add_parameter(P1,'SARF_DATE_2',text_parameter,:ITM.SARF_DATE_2);
run_product(REPORTS,'C:\PHAR\REPORTS\ALL_OTHER_CASH_R.REP',asynchronous,runtime,filesystem,p1);
destroy_parameter_list(P1);

end;

اتمنى لك الاستفادة
اخوك كامل ابوعليا-فلسطين

السلام عليكم

هناك بعض الروابط لا تعمل لماذا


وشكرا جزيلا

السلام عليكم ورحمة الله وبركتة

اية الاخ العزيز اريد منك الوساعدة

ارجو منك اذا سمحت لى

ان استعير منك نسخة من هذا الموضوع اذا

وفكك الله وتمكنت من الحصول علية

ارجو منك ان تقوم بارسلة الى

moham5d

دخل هذا المنتدى

ووفق الله

جرب الكود التالي
declare
p paramlist;
begin
p := create_parameter_list('t');
add_parameter(p,'x',text_parameter,:product_class.prod_cno);
add_parameter(p,'paramform',text_parameter,'no');
run_product(reports,'d:\sumaa1\product_class.rep',synchronous,runtime,filesystem,p,null);
end;

لو بتستخدم ال 10g اتبع هذا وعلى فكرة انا حاصل علية من هنا من المنتدى


You should create a new Reports Server Service for this example.

1) Create a simple report based on table EMP with a user parameter:

select * from emp where emp.deptno = :pdeptno;

2) Open up the Property Inspector of user parameter PDEPTNO and specify
the following:

Name: pdeptno
Datatype: Number
Width: 20
Initial value: 20 (It can be any valid value)

3) Compile and save the report. Try to run it using 'Run Paper Layout' icon
to make sure it works properly.

4) Create a simple form based on table DEPT:

select * from dept;

5) Create a new reports server service as following (in Command Prompt):

rwserver -install repserver90 autostart=yes

6) Open Property Palette for Reports object in the Forms Object Navigator
and enter the following:

Name:
EMP

Filename: C:\reports\emp.rdf
/*<specify full path to your RDF/REP file or make sure
this path is included into REPORTS_PATH environment variable*/

Report Destination Type:
CACHE
Report Destination Format:
HTML
Report Server:
repserver90

7) Open Layout Editor and create a push button 'Run-Report'.

8) Create a WHEN-BUTTON-PRESSED trigger with the following code:

test_report;

9) Create a new procedure that you can call from the trigger as follows:

PROCEDURE TEST_REPORT IS repid
REPORT_OBJECT; v_rep VARCHAR2(100);
rep_status VARCHAR2(20);
BEGIN
repid := find_report_object('report5');
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,'html');
SET_REPORT_OBJECT_PROPERTY(repid,REPORT_SERVER,'repserver90'); SET_REPORT_OBJECT_PROPERTY(repid,REPORT_OTHER,'paramform=no pdeptno='||:dept.deptno);
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 /*Display report in the browser*/
WEB.SHOW_DOCUMENT('http://<YourServerName:8888/reports/rwservlet/getjobid'|| substr(v_rep,instr(v_rep,'_',-1)+1)||'?'||'server=repserver90','_blank');
ELSE
message('Error when running report');
END IF;
END;


10) Compile the form.

11) Run the form,
populate the record.

12) Click on the push button.