السادة ادارة المنتدي لقد قمت بعمل تقرير محصور بين تاريخين ولكن عند تمرير البارامتير من الفورمه الي التقرير تحدث ان التقرير لا يطالع بيانات علي الرغم من التقرير شغال وهو في وضع التصميم داخل report builder ارجو المساعده
واليكم الفرومه والتقرير المرفق

عرض تقرير محصور بين تاريخين.rar

السلام عليكم
ممكن كتابة الكود الذي كتيته لاستدعاء التقرير وتمرير البراميتر ؟؟

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) := 'pdf';--HTML HTMLCSS PDF	
BEGIN	
IF :date_from IS NULL and :date_to is null THEN
RAISE FORM_TRIGGER_FAILURE;
END IF;
v_rep_id := FIND_REPORT_OBJECT('TMP_REPORT');
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, 'per_date=' || :date_from ||' paramform=no');	
SET_REPORT_OBJECT_PROPERTY(v_rep_id, REPORT_OTHER, 'per_date1=' || :date_to ||' paramform=no');	
SET_REPORT_OBJECT_PROPERTY(v_rep_id, REPORT_FILENAME, 'd:\rep_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;

وهذه هي الفرومه والتقرير في المرفق
وجزاكم الله خير كثير

عرض تقرير محصور بين تاريخين.rar

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

عرض تقرير محصور بين تاريخين.rar

هذا الكود يشتغل مع اوركل 6
جرب هذا الكود وشوف النتيجه

declare
 a paramlist;
begin
 
 a:=get_parameter_list('a1');
 if not id_null(a) then
    destroy_parameter_list(a);
 end if;
 

  a:=create_parameter_list('a1');

  add_parameter(a,'PER_DATE',text_parameter,:Date_from);
  add_parameter(a,'PER_DATE1',text_parameter,:Date_to);
  add_parameter(a,'paramform',text_parameter,'no');
  
  run_product(reports,'rep_emp1.rdf',synchronous,runtime,
  filesystem,a,null); 
end

لاتنسى اذا الباث للملف خطاء عدل مكانه
دعائكم