أنا عندي فورمه خاصه ببيانات الموظفين وفيه جزء خاص بالريبورت بحيث ان اليوزر ممكن يشوف بيانات الموظفين علي اساس رقم الموظف وممكن علي اساس تاريخ التعيين من تاريخ الي تاريخ الريبورات الخاص برقم الموظف شغال والخاص بتاريخ التعيين مش شغال ليه مش عارف بيجيب label بس ومش بيجيب داتا رغم ان الكوريري بيرجع بداتا !! ودا الكود 

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

BEGIN IF :BL2.TXT1 IS NULL
OR :BL2.TXT2 IS NULL THEN
RAISE FORM_TRIGGER_FAILURE;
END IF;


v_rep_id := FIND_REPORT_OBJECT('REP1');
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_DESTYPE, PRINTER);
--SET_REPORT_OBJECT_PROPERTY(v_rep_id,REPORT_DESNAME,'ID_CARD');

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, 'P_HIRE1=' || :BL2.TXT1 ||' paramform=no'); 
SET_REPORT_OBJECT_PROPERTY(v_rep_id, REPORT_OTHER, 'P_HIRE2=' || :BL2.TXT2 ||' paramform=no');

SET_REPORT_OBJECT_PROPERTY(v_rep_id, REPORT_FILENAME, 'D:\TestFrms\Hotel\EMP1.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;

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

السلام عليكم

عدل الكود التالي

SET_REPORT_OBJECT_PROPERTY(v_rep_id, REPORT_OTHER, 'P_HIRE1=' || TO_CHAR(:BL2.TXT1,'DD/MM/YYYY') ||' paramform=no'); 
SET_REPORT_OBJECT_PROPERTY(v_rep_id, REPORT_OTHER, 'P_HIRE2=' || TO_CHAR(:BL2.TXT2,'DD/MM/YYYY') ||' paramform=no');

وفي التقرير اعطي الباراميتر نفس الفورمات ماسك DD/MM/YYYY

السلام عليكم

عدل الكود التالي

SET_REPORT_OBJECT_PROPERTY(v_rep_id, REPORT_OTHER, 'P_HIRE1=' || TO_CHAR(:BL2.TXT1,'DD/MM/YYYY') ||' paramform=no'); 
SET_REPORT_OBJECT_PROPERTY(v_rep_id, REPORT_OTHER, 'P_HIRE2=' || TO_CHAR(:BL2.TXT2,'DD/MM/YYYY') ||' paramform=no');

وفي التقرير اعطي الباراميتر نفس الفورمات ماسك DD/MM/YYYY

جربت يا بشمهندس بس نفس المشكله المفروض انه يكون نوع البيانات في البراميترز DATE وفي التيكست ايتم اللي علي الفورم DATE وجمله الكويري اللي علي الريبورت BETWEEN P1 AND P2 ولا كتب TO_DATE قبل البراميتر !

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

 

اخي الكريم

 

جرب الكود التالي

 
DECLARErepid      
REPORT_OBJECT;v_rep      
VARCHAR2(400);p_list     paramlist ;BEGINrepid 
:= 
find_report_object('AAA');SET_REPORT_OBJECT_PROPERTY(repid,REPORT_FILENAME,getpath||'reports\'||:REP_ID);SET_REPORT_OBJECT_PROPERTY(repid,REPORT_DESFORMAT,'DelimitedData');p_list 
:=create_parameter_list('PLIST');add_parameter(p_list,'P_NAM',text_parameter,:TITL);add_parameter(p_list,'P_YEAR',text_parameter,:YEAR1);add_parameter(p_list,'P1',text_parameter,:DAT1);add_parameter(p_list,'P2',text_parameter,:DAT2);add_parameter(p_list,'P_ACT',text_parameter,:ACT);add_parameter(p_list,'P_TEXT',text_parameter,:PTEXT);add_parameter(p_list,'P_NUM1',text_parameter,:NUM1);add_parameter(p_list,'P_NUM2',text_parameter,:NUM2);add_parameter(p_list,'PNUMC',text_parameter,:TITLE.NUMC);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'||'&desname=account.xls','_blank');destroy_parameter_list(p_list);END 
;

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

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

 

اخي الكريم

 

جرب الكود التالي

 
DECLARErepid      
REPORT_OBJECT;v_rep      
VARCHAR2(400);p_list     paramlist ;BEGINrepid 
:= 
find_report_object('AAA');SET_REPORT_OBJECT_PROPERTY(repid,REPORT_FILENAME,getpath||'reports\'||:REP_ID);SET_REPORT_OBJECT_PROPERTY(repid,REPORT_DESFORMAT,'DelimitedData');p_list 
:=create_parameter_list('PLIST');add_parameter(p_list,'P_NAM',text_parameter,:TITL);add_parameter(p_list,'P_YEAR',text_parameter,:YEAR1);add_parameter(p_list,'P1',text_parameter,:DAT1);add_parameter(p_list,'P2',text_parameter,:DAT2);add_parameter(p_list,'P_ACT',text_parameter,:ACT);add_parameter(p_list,'P_TEXT',text_parameter,:PTEXT);add_parameter(p_list,'P_NUM1',text_parameter,:NUM1);add_parameter(p_list,'P_NUM2',text_parameter,:NUM2);add_parameter(p_list,'PNUMC',text_parameter,:TITLE.NUMC);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'||'&desname=account.xls','_blank');destroy_parameter_list(p_list);END 
;

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

وجزاكم مثله يا أخي الكريم 

ممكن تطبق الكود علي الكود بتاعي لأني مش فاهم ايه المقصد انا اعرف ان طريقه البراميتر ليست فاليد فقط في اوراكل سيكس اي ومش فاليد في ال 10 جي !!!

يا جماعه الخير دي الفورمه وال 2 ريبورت ولو حد وصل لحل يقولي

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

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

 

tst.rar

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

 

اخي الكريم

 

راجع الرابط التالي

 

http://www.araboug.org/ib/index.php?showtopic=9719

 

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

السلام عليكم

هذه هي الكويري المستخدمه في تقرير التاريخ

SELECT ALL EMPLOYEES.EMPLOYEE_ID, EMPLOYEES.LAST_NAME, 
EMPLOYEES.HIRE_DATE, EMPLOYEES.SALARY, EMPLOYEES.DEPARTMENT_ID
FROM EMPLOYEES 
WHERE trunc(HIRE_DATE) BETWEEN _HIRE1 AND '01-01-2000'

هل يوجد داتا قبل تاريخ 01-01-2000؟

اعتقد ان الجمله خاطئه اخوي

عدلها الى مايلي

SELECT ALL EMPLOYEES.EMPLOYEE_ID, EMPLOYEES.LAST_NAME, 
EMPLOYEES.HIRE_DATE, EMPLOYEES.SALARY, EMPLOYEES.DEPARTMENT_ID
FROM EMPLOYEES 
WHERE trunc(HIRE_DATE) BETWEEN '01-01-2000' AND _HIRE1 

وعدل الجملة التالية

SET_REPORT_OBJECT_PROPERTY(v_rep_id, REPORT_OTHER, 'P_HIRE1=' ||TO_CHAR(:BL2.TXT1,'DD-MM-YYYY') ||' AND P_HIRE2='||TO_CHAR(:BL2.TXT2,'DD-MM-YYYY')||' paramform=no');

تم تعديل 12 مارس 201412 سنة بواسطة hammode90

ربنا يجازيكم خير جميعا يا أجدع إخوه في الدنيا 

الحل ده هو اللي اشتغل

http://mahmoudoracle.blogspot.com/2012/06/run-oracle-reports-from-oracle-forms.html#.UyG7S_mSyy4

تم تعديل 13 مارس 201412 سنة بواسطة sayed ali

ربنا يجازيكم خير جميعا يا أجدع إخوه في الدنيا 

الحل ده هو اللي اشتغل

http://mahmoudoracle.blogspot.com/2012/06/run-oracle-reports-from-oracle-forms.html#.UyG7S_mSyy4

 

الحمد لله حلت المشكلة ...وشكراً لحضرتك على الرابط وأخبرتنا ماهو الحل...ليتسنى للجميع الفائدة عند مواجهة نفس المشكلة 

شكراً مرة اخرى

 

ربنا يجازيكم خير جميعا يا أجدع إخوه في الدنيا 

الحل ده هو اللي اشتغل

http://mahmoudoracle.blogspot.com/2012/06/run-oracle-reports-from-oracle-forms.html#.UyG7S_mSyy4

 

الحمد لله حلت المشكلة ...وشكراً لحضرتك على الرابط وأخبرتنا ماهو الحل...ليتسنى للجميع الفائدة عند مواجهة نفس المشكلة 

شكراً مرة اخرى

 

ولحضرتك يا فندم ربنا يجازيكم عنا كل خير