DECLARE
PID PARAMLIST;
BEGIN PID:=CREATE_PARAMETER_LIST ('C1');
Add_Parameter(pid,'NO',TEXT_PARAMETER,:NO);
ADD_PARAMETER(PID,'PARAMFORM',TEXT_PARAMETER,'NO');
Run_Product(REPORTS, 'C:\EMP.REP', SYNCHRONOUS, RUNTIME,FILESYSTEM, PID); 
 DESTROY_PARAMETER_LIST(PID);
END;

حيث NO=البارميتر اللي في التقرير
:NO=الحقل اللي في الفورم لتمرير القيمة الى التقرير
اذا كان عندك اكثر من بارميتر تكرر جملة ADD_PARAMETER



وشكرا

الف شكر للمجهود الرائع

وللإطلاع على تفاصيل أكثر للموضوع إضغط هنا

أخوك Oracle

العين ما تعلى على الحاجب استاذنا

مجهود كبير اوى

مجهود مشكور

يوجد طريقة احسن
DECLARE
PL_ID PARAMLIST;
PL_NAME VARCHAR2(10) := 'PRINT_PL';
REPORT_NO VARCHAR2(10) := GET_FORM_PROPERTY(:SYSTEM.CURRENT_FORM,FORM_NAME);
BEGIN
--------------------------------------------------------------------------
IF get_item_property('TOOL_BAR.PRINT',ENABLED) != 'TRUE' THEN
raise FORM_TRIGGER_FAILURE;
END IF;
PL_ID := GET_PARAMETER_LIST(PL_NAME);
IF ID_NULL(PL_ID) THEN
PL_ID := CREATE_PARAMETER_LIST(PL_NAME);
END IF;
ADD_PARAMETER(PL_ID , 'PARAMFORM' , TEXT_PARAMETER , 'NO' );

------------------ COMMON PARAMETERS ---------------------------------

ADD_PARAMETER(PL_ID , 'P_PERSONAL_NO' , TEXT_PARAMETER , :PERSONAL_NO );
------------------ REPORT PARAMETERS ---------------------------------

-------------------------------------------------------------------------

RUN_PRODUCT(REPORTS ,'REPORT_NAME.RDF',ASYNCHRONOUS ,
RUNTIME ,FILESYSTEM ,PL_ID ,NULL );

IF NOT ID_NULL(PL_ID) THEN
DESTROY_PARAMETER_LIST(PL_ID);
END IF;
--------------------------------------------------------------------------
END;

حيث ان REPORT_NAME HAاسم التقرير .RDF

شكرا لك..

أولا أحييكم اخواني على هذة المشاركة الفاعلة
و أود من أهل العلم أفادتي
أنا كنت أعمل على ال Forms 6i و كانت الدالة RUN_PRODUCT
تعمل معي دون مشاكل لكن عند انتقالي للإصدار 9i
ظهرت المشكلة و هي ان هذة الدالة غير فعالة
فلو ممكن ممن لدية فكرة أن يخبرني بكيفية فتح الريبورت من خلال ال Forms 9i وأكون شاكر
و لكم تحياتي

مجهود مشكور

اخي الكريم مشكور على الطريقة الحلوه و السهلة