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

السلام عليكم
الاخ العزيز
الفكرة انك تبعت القيم من الشاشة للبريمتر اللى انتا عملتها فى التقرير

declare
x paramlist;
begin
x :=get_parameter_list('invlist');
if not id_null(x) then
 destroy_parameter_list(x);
end if;
x := create_parameter_list('invlist');
 add_parameter(x,'p1',TEXT_PARAMETER,:INV_CONTRACTS.cont_no);
 add_parameter(x,'p2',TEXT_PARAMETER,:CONT_DATE);
  add_parameter(x,'p_doc_no',TEXT_PARAMETER,:doc_no);


RUN_PRODUCT(REPORTS,'inv_003_contracrs',SYNCHRONOUS,RUNTIME,FILESYSTEM,x,NULL);
end;

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

السلام عليكم
شكرا على الرد....

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

Report Form.rar

السلام عليكم أخي

أنت تريد أن تنادي التقرير من الفورم 10g حيث أن التقربر يستقبل 3 Parameters وهي

VEN_CODE
FROM_DATE
TO_DATE


قم بتجربة هذا الكود داخل Button بعد ان تقوم باضافة كل من FROM_DATE و TO_DATE في الفورم .. بحيث تقوم بارسال 3 Parameters من الفورم

هذا الكود يحتوي على تعديل بسيط على الكود الموجود داخل الفورم المرفق

DECLARE
repid  report_object;
v_rep  varchar2(100);
rep_status  varchar2(20);
rep_name	varchar2(100);
PL_ID PARAMLIST;

BEGIN

PL_ID  := GET_PARAMETER_LIST('TMPDATA');
IF NOT ID_NULL(PL_ID) THEN
DESTROY_PARAMETER_LIST(PL_ID);
END IF;

PL_ID  := CREATE_PARAMETER_LIST('TMPDATA');
ADD_PARAMETER(PL_ID, 'P_VEN_CODE', TEXT_PARAMETER, TO_CHAR(:BLOCK3.VEN_CODE));   -- P_VEN_CODE is the parameter in Report for Vendor_Code
ADD_PARAMETER(PL_ID, 'P_FROM_DATE', TEXT_PARAMETER, TO_CHAR(:BLOCK3.FROM_DATE));  -- P_FROM_DATE is the parameter in Report for From_Date
ADD_PARAMETER(PL_ID, 'P_TO_DATE', TEXT_PARAMETER, TO_CHAR(:BLOCK3.TO_DATE));  -- P_FROM_DATE is the parameter in Report for To_Date


repid := find_report_object('report14');
set_report_object_property(repid,report_execution_mode,runtime);
set_report_object_property
(repid,report_comm_mode,synchronous);
set_report_object_property(repid,report_destype,cache);
set_report_object_property(repid,report_desformat,'htmlCSS');
set_report_object_property(repid,report_server,'repserver10g');
v_rep := RUN_REPORT_OBJECT(repid,PL_ID);
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
WEB.SHOW_DOCUMENT
('http://asus-pc:8890/reports/rwservlet/getjobid'||substr(v_rep,instr(v_rep,'_',-1)+1)||'?'||'server=repserver10g&paramform=yes','_blank');
ELSE
message('Error when running report');
END IF;

DESTROY_PARAMETER_LIST(PL_ID);
END;

أخبرني بعد تجربة الكود

بالتوفيق

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

شكراااااااااااااااا ليك ياباشا اشتغل الريبورت تمام