DECLARE

repid report_object;

v_rep varchar2(300);

rep_status varchar2(50);

pl_id paramlist;

BEGIN

repid := Find_Report_object('STOFMM');

pl_id := create_parameter_list('list1');

add_parameter(pl_id,'ACCT1',text_parameter,:main.acc_from);

add_parameter(pl_id,'ACCT2',text_parameter,:main.acc_TO);

add_parameter(pl_id,'CURNCY',text_parameter,:main.ACC_CUR);

add_parameter(pl_id,'MONTH',text_parameter,:main.ACC_MM);

add_parameter(pl_id,'YEAR',text_parameter,:main.ACC_YY);



v_rep := RUN_REPORT_OBJECT(repid,pl_id);

destroy_parameter_list(pl_id);



END;

تم تعديل 11 مارس 201412 سنة بواسطة Ahmad.Hasan

ياعزيزي اشكرك جدا على مثالك الرائع ولو انه غريب مافي ردود

لاني بصراحة لي ساعه ادور على حل مشكلتي وانت حليتها

شاكر لك جدا عزيزي

تحياتي لكم

اخي الكريم هذا يعمل على 10g ام لا
وشكرا

أن شاء الله يعمل على 10g

بعد ازنك انا جربتها علي ال10g بس مش شغاله
لو حد اشتغلت معاه ياريت يقول
وشكرا

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

لقد تم تجربة الطريقة السابقة في 10g حيث تعمل بشكل ممتاز

حيث تم كتابة الكود في الفورم كما يلي

DECLARE
repid	  REPORT_OBJECT;
v_rep	  VARCHAR2(100);
p_list	 paramlist;
BEGIN 
repid := find_report_object('P_R_D1'); 
p_list :=create_parameter_list('PLIST');
add_parameter(p_list,'p1',text_parameter,:AC_NUM);
add_parameter(p_list,'p2',text_parameter,:DAT1);
add_parameter(p_list,'p3',text_parameter,:DAT2);
v_rep := RUN_REPORT_OBJECT(repid,p_list); 
WEB.SHOW_DOCUMENT('http://127.0.0.1:8889/reports/rwservlet/getjobid'||substr(v_rep,instr(v_rep,'_',-1)+1)||'?'||'server=repserver90','_blank'); 
destroy_parameter_list(p_list);
END;

اخي الكريم mas_sit

جزاك الله كل خير وبارك لك في اعمالك

report_parameter.zip

الأخ / jamal_rrkk

شكرا لك على
1- الايضاح .. 2-الملف المرفق .. 3- اسلوبك فى الشرح باستخدام الشاشات المرفقه

جزاك الله خيرا

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

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

آخى الكريم

ضع الملف التالي علي D واستخدم الـ USER SCOTT


جزاك الله كل خير

REP_EMP.zip

شكرا لك اخى على الموضوع

وان شاء الله ساجرب هذه الطريقه ولو اشتغلت سوف ارد عليك

وشكراا على تعبك ومجهودك

ونتمنى المزيد دائما

صدقني اخر الكريم لا يعمل لا ادرى ليش

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

اخي الكريم

ما هو رقم الخطأ الذي يظهر عندك

جزاك الله كل خير

شكرا لكم جميعا ياشباب

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

DECLARE
repid	  REPORT_OBJECT;
v_rep	  VARCHAR2(100);
rep_status VARCHAR2(20); 
BEGIN 
repid := find_report_object('JOB70200'); 
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,FILE); 
SET_REPORT_OBJECT_PROPERTY(repid,REPORT_DESFORMAT,'PDF'); 
SET_REPORT_OBJECT_PROPERTY(repid,REPORT_SERVER,'REP_APPSRVR'); 
SET_REPORT_OBJECT_PROPERTY(repid,REPORT_OTHER,'SYS_P='||:SYS||' STATUS_P='||:STATUS||' SDATE_P='||:SDATE||' EDATE_P='||:EDATE);
v_rep := RUN_REPORT_OBJECT(repid);	 
WEB.SHOW_DOCUMENT('http://appsrvr:8889/reports/rwservlet/getjobid'|| substr(v_rep,instr(v_rep,'_',-1)+1)||
							'?'||'server=rep_APPSRVR','_blank'); 
END;

مع ملاحظه كل عضوا ان يغير REPORT SEVER الخاص به ويكتب الامر كما هو مع الاحتفاظ بالمسافة بين PARAMETER والاخر كما هو

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

اخي الكريم خالد عيد

جزاك الله كل خير وبارك لك في اعمالك

جزاك الله خير و مشكور على ذلك

مش شغاله معايا انا عاوز حل للمشكله دي يا جماعه ياريت تساعدوني

http://www.araboug.org/ib/index.php?showtopic=55499&hl=