لتشغيل التقرير 9iمن الفورم 9i

[nonna]

السلام عليكم
الكود التالي لتشغيل تقرير من فورم باستخدام ديفولبر 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

[developer]

شكرا nonna

[عبداللطيف]

شكراً nonna

[arab20002000]

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