انا اعمل على فورمز 10g , عملت تقرير وعملت زر للضغط عليه يفتح التقرير

اول مرة اشتغل تمام وبعد ذلك ظهر الخطا التالي

 

  

REP-52251: لا يمكن الحصول على المخرجات من معرف الوظيفة 8 التي قمت بطلبها على Sun Apr 19 14:34:21 GMT 2015.<P>REP-51026: لا توجد مخرجات للدالة 8

والكود اللي انا كتبته هو

 declare
    RO_Report_ID          REPORT_OBJECT;
    Str_Report_Server_Job VARCHAR2(100);
    Str_Job_ID            VARCHAR2(100);
    Str_URL               VARCHAR2(100);
    PL_ID                 PARAMLIST ;
BEGIN
    PL_ID := GET_PARAMETER_LIST('TEMPDATA');
    IF NOT ID_NULL(PL_ID) THEN
        DESTROY_PARAMETER_LIST(PL_ID);
    END IF;
     PL_ID := CREATE_PARAMETER_LIST('TEMPDATA');
    RO_Report_ID := FIND_REPORT_OBJECT('REP1');
    ADD_PARAMETER(PL_ID, 'P1',TEXT_PARAMETER, :device_detail.detail_id);


    SET_REPORT_OBJECT_PROPERTY(RO_Report_ID, REPORT_FILENAME, 'd:\devsuite1\forms\REP1.rdf');
    SET_REPORT_OBJECT_PROPERTY(RO_Report_ID, REPORT_COMM_MODE, SYNCHRONOUS);
    SET_REPORT_OBJECT_PROPERTY(RO_Report_ID, REPORT_EXECUTION_MODE, BATCH);


    SET_REPORT_OBJECT_PROPERTY(RO_Report_ID, REPORT_DESTYPE, FILE);
    SET_REPORT_OBJECT_PROPERTY(RO_Report_ID, REPORT_DESFORMAT, 'PDF');
    SET_REPORT_OBJECT_PROPERTY(RO_Report_ID, REPORT_SERVER, 'repserv');


    Str_Report_Server_Job := RUN_REPORT_OBJECT(RO_Report_ID, PL_ID);
    Str_Job_ID := SUBSTR(Str_Report_Server_Job, LENGTH('repserv') + 2, LENGTH(Str_Report_Server_Job));
    Str_URL      := '/reports/rwservlet/getjobid' || Str_Job_ID || '?server=repserv';
    WEB.SHOW_DOCUMENT(Str_URL, '_SELF');
    DESTROY_PARAMETER_LIST(PL_ID);
END;

 

وانا دورت في المنتدى ولم اجد حلا مش عارف ايه المشكلة .. حد يرد علي لو سمحتم 

 

انا اعمل على فورمز 10g , عملت تقرير وعملت زر للضغط عليه يفتح التقرير

اول مرة اشتغل تمام وبعد ذلك ظهر الخطا التالي

 

  

REP-52251: لا يمكن الحصول على المخرجات من معرف الوظيفة 8 التي قمت بطلبها على Sun Apr 19 14:34:21 GMT 2015.<P>REP-51026: لا توجد مخرجات للدالة 8

والكود اللي انا كتبته هو

 declare

    RO_Report_ID          REPORT_OBJECT;

    Str_Report_Server_Job VARCHAR2(100);

    Str_Job_ID            VARCHAR2(100);

    Str_URL               VARCHAR2(100);

    PL_ID                 PARAMLIST ;

BEGIN

    PL_ID := GET_PARAMETER_LIST('TEMPDATA');

    IF NOT ID_NULL(PL_ID) THEN

        DESTROY_PARAMETER_LIST(PL_ID);

    END IF;

     PL_ID := CREATE_PARAMETER_LIST('TEMPDATA');

    RO_Report_ID := FIND_REPORT_OBJECT('REP1');

    ADD_PARAMETER(PL_ID, 'P1',TEXT_PARAMETER, :device_detail.detail_id);

 

 

    SET_REPORT_OBJECT_PROPERTY(RO_Report_ID, REPORT_FILENAME, 'd:\devsuite1\forms\REP1.rdf');

    SET_REPORT_OBJECT_PROPERTY(RO_Report_ID, REPORT_COMM_MODE, SYNCHRONOUS);

    SET_REPORT_OBJECT_PROPERTY(RO_Report_ID, REPORT_EXECUTION_MODE, BATCH);

 

 

    SET_REPORT_OBJECT_PROPERTY(RO_Report_ID, REPORT_DESTYPE, FILE);

    SET_REPORT_OBJECT_PROPERTY(RO_Report_ID, REPORT_DESFORMAT, 'PDF');

    SET_REPORT_OBJECT_PROPERTY(RO_Report_ID, REPORT_SERVER, 'repserv');

 

 

    Str_Report_Server_Job := RUN_REPORT_OBJECT(RO_Report_ID, PL_ID);

    Str_Job_ID := SUBSTR(Str_Report_Server_Job, LENGTH('repserv') + 2, LENGTH(Str_Report_Server_Job));

    Str_URL      := '/reports/rwservlet/getjobid' || Str_Job_ID || '?server=repserv';

    WEB.SHOW_DOCUMENT(Str_URL, '_SELF');

    DESTROY_PARAMETER_LIST(PL_ID);

END;

 

وانا دورت في المنتدى ولم اجد حلا مش عارف ايه المشكلة .. حد يرد علي لو سمحتم 

 

يا جماعة حد يرد عليا