السلام عليكم ...

بعد مناداة تقرير من الشاشة بهذا الكود

مع العلم انا بستخدم بارامتر في مناداة التقرير

DECLARE
    REP_ID REPORT_OBJECT ;
    VAR_REP VARCHAR2(100) ;
    VAR_STATUS VARCHAR2(100) ;
BEGIN
  REP_ID := FIND_REPORT_OBJECT ('REP_NAME') ;
 
  SET_REPORT_OBJECT_PROPERTY (REP_ID , REPORT_EXECUTION_MODE , BATCH) ;
  SET_REPORT_OBJECT_PROPERTY (REP_ID , REPORT_COMM_MODE , SYNCHRONOUS) ;
  SET_REPORT_OBJECT_PROPERTY (REP_ID , REPORT_DESTYPE ,  CACHE) ;
  SET_REPORT_OBJECT_PROPERTY (REP_ID , REPORT_DESFORMAT , 'PDF') ;
  SET_REPORT_OBJECT_PROPERTY (REP_ID , REPORT_SERVER , 'SERVER_NAME') ;
 
  SET_REPORT_OBJECT_PROPERTY (REP_ID , REPORT_OTHER , 'PARAMFORM=NO') ;
  SET_REPORT_OBJECT_PROPERTY (REP_ID , REPORT_OTHER , 'P_USER_ID='|| :USERS.USER_ID) ;
 
  VAR_REP := RUN_REPORT_OBJECT (REP_ID) ;
  VAR_STATUS := REPORT_OBJECT_STATUS(VAR_REP) ;
 
  WHILE VAR_STATUS IN ('RUNNING' , 'OPENING_REPORT' , 'ENQUEUED')
  LOOP
      VAR_STATUS := REPORT_OBJECT_STATUS (VAR_REP) ;
  END LOOP ;
 
  IF VAR_STATUS = 'FINISHED' THEN
          WEB.SHOW_DOCUMENT
            ('http://COMPUTER_NAME:8889/reports/rwservlet?
            report=D:\HR\REPORTS\REPORT_NAME.RDF
            &destype=cache
            &desformat=PDF
            &userid=USER_NAME/PASSWORD@HOST_STRING');
  ELSE
      MESSAGE ('ERROR IN REPORT') ;
  END IF ;
 
END;

 

لا يتم اظهار الداتا من الداتابيز

من فضلكم اريد حلا

ولو كود خطأ يتم تصحيحة

ولكم جزيل الشكر ....

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

انا مش شغال علي 10g , بس انت اصلا مش باعت باراميتر ولا حاجة , هو كان تقريبا بيتبعت في الـ run_report_object  , علي أد منا فاكر ,

ثانيا : عشان تشوف الباراميتر بيتبعت صح ولا لا , ولا مبيتبعتش اصلا , شيل السطر ده

  SET_REPORT_OBJECT_PROPERTY (REP_ID , REPORT_OTHER , 'PARAMFORM=NO') ;

او خلي القيمة بـ YES , عشان تشوف الباراميتر .