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

 

اخواني الاعزاء انا عندي تقرير ياخذ ثلاثه متغيرات 

 

ولكن عند تشغيل التقرير يضهر بشكل  فارغ وكأن القيم التي في التكست لا تصل الى المتغيرات الخاصه بالتقرير

 

انا استخدم الكود التالي لجلب التقرير

 

DECLARE
v_rep_id REPORT_OBJECT;
v_repjob VARCHAR2(100);
v_job_id VARCHAR2(100);
v_rep_status VARCHAR2(100); 
v_reportsrvr VARCHAR2(50) := 'rep10g';
v_runformat vARCHAR2(50) := 'HTMLCSS';--HTML HTMLCSS PDF 


 BEGIN IF :block7.text_item11 IS NULL THEN  --   ÇáÈáæß ãÚ ÇáÊßÓÊ
   RAISE FORM_TRIGGER_FAILURE;
END IF;
v_rep_id := FIND_REPORT_OBJECT('REPORT52');  --   ÇÓã ÇáÊÞÑíÑ
SET_REPORT_OBJECT_PROPERTY(v_rep_id, REPORT_COMM_MODE, SYNCHRONOUS);
SET_REPORT_OBJECT_PROPERTY(v_rep_id, REPORT_DESTYPE, CACHE); 
SET_REPORT_OBJECT_PROPERTY(v_rep_id, REPORT_SERVER, v_reportsrvr);
SET_REPORT_OBJECT_PROPERTY(v_rep_id, REPORT_DESFORMAT, v_runformat); 
SET_REPORT_OBJECT_PROPERTY(v_rep_id, REPORT_OTHER, 'M1='||:BLOCK7.TEXT_ITEM11||' & T1='||:BLOCK7.TEXT_ITEM45||' & Y1='||:BLOCK7.TEXT_ITEM36||' paramform=no');--ÇÓã ÇáÈÇÑÇãíÊÑ ãÚ ÇáÈáæß æÇáÊßÓÊ 
SET_REPORT_OBJECT_PROPERTY(v_rep_id, REPORT_FILENAME, 'D:\k_pro\rep\man_one_tar2.rdf');  --  ÇáÇãÊÏÇÏ
v_repjob := RUN_REPORT_OBJECT(v_rep_id);
v_job_id := SUBSTR(v_repjob, LENGTH(v_reportsrvr) + 2, LENGTH(v_repjob) );
v_rep_status := REPORT_OBJECT_STATUS(v_repjob);
IF v_rep_status = 'FINISHED' THEN
WEB.SHOW_DOCUMENT('/reports/rwservlet/getjobid' || v_job_id ||'?server=' || v_reportsrvr || '', '_blank');
ELSE
message('Report failed with error message ');
END IF;
--CLEAR_FORM;
    END;

هل هناك اي خطى في الكود

 

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

واختيار التقرير في البلوك

 

او هل هناك طريقه اسهل لجلب التقارير التي بها اكثر من متغير

تم تعديل 8 أغسطس 20187 سنة بواسطة الحكيمي

من فضلك احذف علامة (&) من كل بارميتر بالشكل التالى:

DECLARE
v_rep_id REPORT_OBJECT;
v_repjob VARCHAR2(100);
v_job_id VARCHAR2(100);
v_rep_status VARCHAR2(100); 
v_reportsrvr VARCHAR2(50) := 'rep10g';
v_runformat vARCHAR2(50) := 'HTMLCSS';--HTML HTMLCSS PDF 


 BEGIN IF :block7.text_item11 IS NULL THEN  --   ÇáÈáæß ãÚ ÇáÊßÓÊ
   RAISE FORM_TRIGGER_FAILURE;
END IF;
v_rep_id := FIND_REPORT_OBJECT('REPORT52');  --   ÇÓã ÇáÊÞÑíÑ
SET_REPORT_OBJECT_PROPERTY(v_rep_id, REPORT_COMM_MODE, SYNCHRONOUS);
SET_REPORT_OBJECT_PROPERTY(v_rep_id, REPORT_DESTYPE, CACHE); 
SET_REPORT_OBJECT_PROPERTY(v_rep_id, REPORT_SERVER, v_reportsrvr);
SET_REPORT_OBJECT_PROPERTY(v_rep_id, REPORT_DESFORMAT, v_runformat); 
SET_REPORT_OBJECT_PROPERTY(v_rep_id, REPORT_OTHER, 'M1='||:BLOCK7.TEXT_ITEM11||' T1='||:BLOCK7.TEXT_ITEM45||' Y1='||:BLOCK7.TEXT_ITEM36||' paramform=no');--ÇÓã ÇáÈÇÑÇãíÊÑ ãÚ ÇáÈáæß æÇáÊßÓÊ 
SET_REPORT_OBJECT_PROPERTY(v_rep_id, REPORT_FILENAME, 'D:\k_pro\rep\man_one_tar2.rdf');  --  ÇáÇãÊÏÇÏ
v_repjob := RUN_REPORT_OBJECT(v_rep_id);
v_job_id := SUBSTR(v_repjob, LENGTH(v_reportsrvr) + 2, LENGTH(v_repjob) );
v_rep_status := REPORT_OBJECT_STATUS(v_repjob);
IF v_rep_status = 'FINISHED' THEN
WEB.SHOW_DOCUMENT('/reports/rwservlet/getjobid' || v_job_id ||'?server=' || v_reportsrvr || '', '_blank');
ELSE
message('Report failed with error message ');
END IF;
--CLEAR_FORM;
    END;

للأسف مش نافع

 

انا الان عرفت السبب

بعد كتابة المتغيرات هناك كلمة paramform=no

اذا حولتها الى yes 

 

تضهر معي المتغيرات التي كتبتها

واحد من المتغيرات كنت ارجع فيه كلمه من مقطعين هو (الربع الاول)

وكانت فقط ترحل كلمة (الربع)ولا ادري لماذا 

الان حولتها لكلمه من مقطع واحد واشتغلت

 

وهذه معلومه مفيده للغير

 

وشكرا

تم تعديل 8 أغسطس 20187 سنة بواسطة الحكيمي