السلام عليكم
الكود التالي لتشغيل تقرير من فورم باستخدام ديفولبر 9i ولكن قبل تنفيذ الكود يجب:
1. تشغيل ال report server باستخدام الامر rwserver -install server_name
2. تشغيل السيرفيس من control pannel
3. في الفورم يضاف ال report object والكود التالي:

DECLARE    
 THE_PARAM VARCHAR2(200):='TMP_DATA';

    V_PLID          PARAMLIST;

    V_REP         VARCHAR2(200);

BEGIN V_PLID:=GET_PARAMETER_LIST(THE_PARAM);

IF NOT ID_NULL(V_PLID)THEN
       
       DESTROY_PARAMETER_LIST(V_PLID);

END IF;

V_PLID:=CREATE_PARAMETER_LIST(THE_PARAM);

ADD_PARAMETER(V_PLID,'PARAMFORM',TEXT_PARAMETER,'NO');

-- HERE YOU ADD ANY OTHER PARAMETERS THAT U NEED IN UR REPORT

REPID:=FIND_REPORT_OBJECT('REP_OBJ_NAME_IN_UR_FORM');

SET_REPORT_OBJECT_PROPERTY(REPID,REPORT_EXECUTION_MODE,BATCH);

SET_REPORT_OBJECT_PROPERTY(REPID,REPORT_COMM_MODE,SYNCHRONOUS);

SET_REPORT_OBJECT_PROPERTY(REPID,REPORT_DESTYPE,CACHE);

SET_REPORT_OBJECT_PROPERTY(REPID,REPORT_FILENAME,UR_REPORT_FILE_NAME);

SET_REPORT_OBJECT_PROPERTY(REPID,REPORT_DESFORMAT,'PDF');

SET_REPORT_OBJECT_PROPERTY(REPID,REPORT_SERVER,UR_SERVER_REPORT_NAME);

V_REP:=RUN_REPORT_OBJECT(REPID,V_PLID);

WEB.SHOW_DOCUMENT('HTTP://'||HOST_NAME||'/REPORTS/RWSERVLET/GETJOBID'||SUBSTR(V_REP,'_',-1)+1)||'?'||'SERVER='||UR_SERVER_REPORT_NAME,'_BLANK');

END;

any help i'm ready

مشكوره اختي نونا

ويعطيك الف عافية على هذا الكود بس ان شاء الله اجربه اذا صرت على جهازي

تحياتي،،،

شكرا علي الكود
ولكن الافضل ارفاق مثال صغير
واو شرح بالصور
مع تمنياتي بالتوفيق

thanks awi

شكرا nonna

شكراً nonna

مشكور على الكود