عملت تقرير وعملت زر للضغط عليه يفتح التقرير

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

 

 

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;

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

تم تعديل 19 أبريل 201510 سنة بواسطة ميسم الكرام

 

عملت تقرير وعملت زر للضغط عليه يفتح التقرير

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

 

 

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;

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

 

يا ريت حد يفيدني بالله عليكم

التقرير بيرن من البيلدر عادي ؟

- جرب شيل السطر بتاع الباراميتر من الكود كده , وشيل الباراميتر نفسه من الريبورت ووافينا بالاخبار .