Calling Report From Form 10g

بتاريخ: 18 نوفمبر 200817 سنة

web.show_document('http://fs01-21.hct.org:8889/reports/rwservlet?report=C:\Documents and Settings\Administrator\Desktop\application_leave_report.rdf&destype =cache&desformat=htmlcss&userid=HRMS/NNAHRMS@hctorcl&P_ST_ID='||:NON_DATA_BLOCK.N_ST_ID);

حاولت اكتب هذا الكود في when_button_press
لاستدعاء التقرير

لاكن الكود مايشتغل يعطيني ارر مسج

REP-56092: No class defined for destination type

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

اقتباس

تقديم بلاغ

بتاريخ: 18 نوفمبر 200817 سنة

--put the rep file in \Devsuithome\report\
--and try this

web.show_document('http://fs01-21.hct.org:8889/reports/rwservlet?module=application_leave_report.rep&destype =cache&desformat=htmlcss&userid=HRMS/NNAHRMS@hctorcl&P_ST_ID='||:NON_DATA_BLOCK.N_ST_ID,'_blank');

اقتباس

تقديم بلاغ

بتاريخ: 22 نوفمبر 200817 سنة

كاتب الموضوع

شكرا على ردك اخي
بس شو قصدك ب Devsuithome\report
؟؟؟

اقتباس

تقديم بلاغ

بتاريخ: 22 نوفمبر 200817 سنة

هذا المسار اللي لازم يكون ملف rep فيه. وهو المسار اللي منزل عليه الأوراكل.

اقتباس

تقديم بلاغ

بتاريخ: 22 نوفمبر 200817 سنة

السلام عليكم
ده مثال لتشغيل تقرير من
10g

DECLARE
 pl_id   ParamList; 
x varchar2(150);
y number;
path varchar2(200);
report_service_name varchar2(200);
BEGIN pl_id := Get_Parameter_List('tmpdata'); 
 IF NOT Id_Null(pl_id) THEN 
   Destroy_Parameter_List( pl_id ); 
 END IF; 
 pl_id := Create_Parameter_List('tmpdata'); 
 Add_Parameter(pl_id,'p_from_entry ',TEXT_PARAMETER,:ENTRY_YEAR);
 Add_Parameter(pl_id,'p_to_entry ',TEXT_PARAMETER,:to_year);
 Add_Parameter(pl_id,'P_ACCOUNT_NUMBER',TEXT_PARAMETER,:ACCOUNT_NUMBER);
 Add_Parameter(pl_id,'V_USER_CODE',TEXT_PARAMETER,:GLOBAL.USER_CODE);
 Add_Parameter(pl_id,'V_COMPANY_CODE',TEXT_PARAMETER,:GLOBAL.COMPANY_CODE);
 --Add_Parameter(pl_id,'P_EXPENSE',TEXT_PARAMETER,NVL(:CHECK_EXPENSE,0));
 --Add_Parameter(pl_id,'P_ASSET',TEXT_PARAMETER,NVL(:CHECK_ASSET,0));
select report_service_name into report_service_name from system_path;
y:=length(report_service_name)+2;
if :global.lang ='A' THEN
   path :=get_path()||'\Accounting\Reports\AC_ESTIMATE_YEAR_inc';
ELSE
	path :=get_path()||'\Accounting\Reports\AC_ESTIMATE_YEAR_inc_E';
END IF;
if :entry_year is null then
--	msg('íÌÈ ÇÏÎÇá ÇáÚÇã ÇáãÇáì','entry year must be entered',1);
 display_message('15',63,1);
end if;

SET_REPORT_OBJECT_PROPERTY('AC_REQUEST',REPORT_FILENAME, path);
SET_REPORT_OBJECT_PROPERTY('AC_REQUEST',REPORT_SERVER, report_service_name);
if nvl(:excel_check,0)=1 then
SET_REPORT_OBJECT_PROPERTY('AC_REQUEST',REPORT_DESFORMAT, 'spreadsheet');
else
SET_REPORT_OBJECT_PROPERTY('AC_REQUEST',REPORT_DESFORMAT, 'pdf');
end if;
x := run_report_object('AC_REQUEST',pl_id); 
web.show_document('/reports/rwservlet/getjobid'||substr(x,y)||'?server='||report_service_name);
end;

اقتباس

تقديم بلاغ

بتاريخ: 23 نوفمبر 200817 سنة

كاتب الموضوع

اخي الكريم شكرا على ردك بس هذا الكود شكلة معقد كثير

ياريت لو تشرحلي اياه

او انك تضبطة حسب الكود اللي انا كتبتة سابقا لان انا عندي باراميتير واحد بس

web.show_document('http://fs01-21.hct.org:8889/reports/rwservlet?module=application_leave_report.rep&destype =cache&desformat=htmlcss&userid=HRMS/NNAHRMS@hctorcl&P_ST_ID='||:NON_DATA_BLOCK.N_ST_ID,'_blank');

اقتباس

تقديم بلاغ

بتاريخ: 23 نوفمبر 200817 سنة

web.show_document('http://fs01-21.hct.org:8889/reports/rwservlet?module=application_leave_report.rep&destype =cache&desformat=htmlcss&userid=HRMS/NNAHRMS@hctorcl&P_ST_ID='||:NON_DATA_BLOCK.N_ST_ID,'_blank');

your code is ok :-

اقتباس

تقديم بلاغ

بتاريخ: 24 نوفمبر 200817 سنة

السلام عليكم
ده الكود المعدل ولا تنسى تكوين REPORT OBJECT IN YOUR FORM
AND PUT UR REPORT_SERVER NAME

DECLARE
pl_id ParamList; 
x varchar2(150);
y number;
BEGIN pl_id := Get_Parameter_List('tmpdata'); 
IF NOT Id_Null(pl_id) THEN 
Destroy_Parameter_List( pl_id ); 
END IF; 
pl_id := Create_Parameter_List('tmpdata'); 
Add_Parameter(pl_id,'P_ST_ID',TEXT_PARAMETER,:NON_DATA_BLOCK.N_ST_ID);

y:=length(report_service_name)+2;
SET_REPORT_OBJECT_PROPERTY('REP_OBJECT_IN_FORM_NAME',REPORT_FILENAME, ACTUAL_REP_path);
SET_REPORT_OBJECT_PROPERTY('REP_OBJECT_IN_FORM_NAME',REPORT_SERVER, report_service_name);
SET_REPORT_OBJECT_PROPERTY('REP_OBJECT_IN_FORM_NAME',REPORT_DESFORMAT, 'htmlcss');

x := run_report_object('REP_OBJECT_IN_FORM_NAME',pl_id); 
web.show_document('/reports/rwservlet/getjobid'||substr(x,y)||'?server='||report_service_name);
end;

اقتباس

تقديم بلاغ

بتاريخ: 24 نوفمبر 200817 سنة

الأخ / msayed.evara

شكرا لك على المثال الاول
ولكن احتاج لمزيد من الايضاح عنه

هل لا احتاج الى كتابة أو تثبيت مكان وجود برنامج التقرير ( drive c - drive e ) عندما يتم نقل برامج النظام من جهاز الى جهاز جديد
لانك تستخدم دالة get_path

اين هى دالة get_path();

- سيتم اخفاء اسم المستخدم وكلمة السر من شريط ال URL عند تشغيل التقرير

بمعنى اخر ماهى المتغيرات المطلوبه لتنفيذ هذا الprocedure
وكيف التعامل مع هذا الجدول system_path هل هو من صلاحية dba only
ولماذا تم اضافة رقم 2 على الطول

select report_service_name into report_service_name from system_path;
y:=length(report_service_name)+2;

- هل يجب ان اذكر الconnect name اسم المستخدم- كلمة السر
او كيف سيتعرف عليها عند استخدام الامر

رجاء المزيد من الايضاح
وشكرا لك مقدما

تم تعديل 24 نوفمبر 200817 سنة بواسطة Ahmed_oracle

اقتباس

تقديم بلاغ

بتاريخ: 25 نوفمبر 200817 سنة

الأخ / msayed.evara

شكرا لك على المثال الاول
ولكن احتاج لمزيد من الايضاح عنه

هل لا احتاج الى كتابة أو تثبيت مكان وجود برنامج التقرير ( drive c - drive e ) عندما يتم نقل برامج النظام من جهاز الى جهاز جديد
لانك تستخدم دالة get_path

اين هى دالة get_path();

- سيتم اخفاء اسم المستخدم وكلمة السر من شريط ال URL عند تشغيل التقرير

بمعنى اخر ماهى المتغيرات المطلوبه لتنفيذ هذا الprocedure
وكيف التعامل مع هذا الجدول system_path هل هو من صلاحية dba only
ولماذا تم اضافة رقم 2 على الطول
select report_service_name into report_service_name from system_path;
y:=length(report_service_name)+2;
- هل يجب ان اذكر الconnect name اسم المستخدم- كلمة السر
او كيف سيتعرف عليها عند استخدام الامر

رجاء المزيد من الايضاح
وشكرا لك مقدما

السلام عليكم اخى
نعم ان المسار يمكنك ان تحدده اوتوماتيكيا من جدول مثل system_path
تنشئه عندك فى your own user
like this one

CREATE TABLE SYSTEM_PATH
(
 SYSTEM_PATH          VARCHAR2(100 BYTE),
 REPORT_SERVICE_NAME  VARCHAR2(200 BYTE))

ويمكنك استدعائه بمثل الدالة get_path

CREATE OR REPLACE FUNCTION EVARA.get_path
  RETURN VARCHAR2
IS
  sys_path   VARCHAR2 (100);

BEGIN SELECT system_path
    INTO sys_path FROM system_path;

  RETURN (sys_path);
EXCEPTION
  WHEN OTHERS
  THEN
     RETURN (NULL);
END get_path;

اقتباس

تقديم بلاغ

بتاريخ: 25 نوفمبر 200817 سنة

السلام عليكم
بالنسبة للمستخدم فانه ياخذ المستخدم الموجود حاليا على الفورم

اقتباس

تقديم بلاغ

بتاريخ: 29 نوفمبر 200817 سنة

كاتب الموضوع

اخي الكريم شو قصدك ب report_service_name

انا عدلت الكود بهذا الشكل

DECLARE

pl_id ParamList; 
x varchar2(150);
y number;

BEGIN pl_id := Get_Parameter_List('tmpdata'); 

IF NOT Id_Null(pl_id) THEN 

Destroy_Parameter_List( pl_id ); 

END IF; 

pl_id := Create_Parameter_List('tmpdata'); 

Add_Parameter(pl_id,'P_ST_ID',TEXT_PARAMETER,:NON_DATA_BLOCK.N_ST_ID);

y :=length('repserver10')+2;

SET_REPORT_OBJECT_PROPERTY('REPORT68',REPORT_FILENAME,'http://fs01-21.hct.org:8889/reports/rwservlet?report=C:\Documents and Settings\Administrator\Desktop\application_leave_report.rep');
SET_REPORT_OBJECT_PROPERTY('REPORT68',REPORT_SERVER, report_service_name);
SET_REPORT_OBJECT_PROPERTY('REPORT68',REPORT_DESFORMAT, 'htmlcss');

x := run_report_object('REPORT68',pl_id); 

web.show_document('/reports/rwservlet/getjobid'||substr(x,y)||'repserver10='||report_service_name);

end;

شو الخطاء فية لانة يعطيني error

اقتباس

تقديم بلاغ

بتاريخ: 29 نوفمبر 200817 سنة

السلام عليكم

DECLARE

pl_id ParamList; 
x varchar2(150);
y number;

BEGIN pl_id := Get_Parameter_List('tmpdata'); 

IF NOT Id_Null(pl_id) THEN 

Destroy_Parameter_List( pl_id ); 

END IF; 

pl_id := Create_Parameter_List('tmpdata'); 

Add_Parameter(pl_id,'P_ST_ID',TEXT_PARAMETER,:NON_DATA_BLOCK.N_ST_ID);

y :=length('repserver10')+2;

SET_REPORT_OBJECT_PROPERTy('REPORT68',REPORT_FILENAME,'C:\application_leave_report.rdf');
SET_REPORT_OBJECT_PROPERTY('REPORT68',REPORT_SERVER, 'repserver10');
SET_REPORT_OBJECT_PROPERTY('REPORT68',REPORT_DESFORMAT, 'htmlcss');

x := run_report_object('REPORT68',pl_id); 

web.show_document('/reports/rwservlet/getjobid'||substr(x,y)||'?server='||'repserver10');

end;

اقتباس

تقديم بلاغ

بتاريخ: 1 ديسمبر 200817 سنة

كاتب الموضوع

مرحبا اخي msayed.evara
انا نقلت الكود اللي انتة عدلت علية وحطيتة في الفورم تبعي بس لما اجرب اعمل رن للربورت من الفورم يعطيني هذا الخطا
REP-52251: Cannot get output of job ID 94 you requested on Mon Dec 01 12:16:27 GST 2008.<P>REP-51026: No output for job 94

هل تعرف شو معنى هالخطاء وليش يظهر وكيف اصلحة

اقتباس

تقديم بلاغ

بتاريخ: 1 ديسمبر 200817 سنة

السلام عليكم
هل الريبورت سيرفر شغلتيه

اقتباس

تقديم بلاغ

بتاريخ: 1 ديسمبر 200817 سنة

السلام عليكم
انت شغالة local
or on application server

if application server
see this patch

http://www.oracle.com/technology/deploy/se...cpuapr2008.html

اقتباس

تقديم بلاغ

بتاريخ: 3 ديسمبر 200817 سنة

كاتب الموضوع

لا انا شغالة lOCAL
مش ع application server

اقتباس

تقديم بلاغ

بتاريخ: 30 أبريل 200916 سنة

السلام عليكم ورحمه الله وبركاته
يوجد مثال على هذا الرابط يوضح كيفيه مناداه ربيورت من خلال الفورمز
اضغط هنا

اقتباس

تقديم بلاغ

تسجيل دخول

Calling Report From Form 10g

Featured Replies

انضم إلى المناقشة

برجاء الإنتباه

Account

Navigation

البحث

إعداد إشعارات المتصفح الفورية

Chrome (Android)

Chrome (Desktop)

Safari (iOS 16.4+)

Safari (macOS)

Edge (Android)

Edge (Desktop)

Firefox (Android)

Firefox (Desktop)