السلام عليكم
في عندي مشكله في استدعاء الريبورت ممكن مساعده
انا مش عارف شو المشكله هل هي بالانشاء او بالاستدعاء
ممكن مثال
او طريقه عمل ريبورت
او اي شي
شكرا لكم

ما هو الكود الذي تكتبه ؟

ما هو الكود الذي تكتبه ؟

موجود بالمرفقات

CODE.txt

CODE.txt

هذا الكود منقول من منتدانا هذا ويمكن استخدامه

DECLARE 
repid REPORT_OBJECT ;
v_rep varchar2(100);
rep_status varchar2(20);

BEGIN repid := find_report_object('emp_rep'); -- report object name in form builder 

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_desformat,'htmlcss');
SET_REPORT_OBJECT_PROPERTY (repid,report_server,'rep10g'); -- rep10g (Report Server Name)
SET_REPORT_OBJECT_PROPERTY (repid,report_other,'paramform=no');

----
SET_APPLICATION_PROPERTY(CURSOR_STYLE,'BUSY');
----
v_rep := RUN_REPORT_OBJECT(repid);
rep_status := REPORT_OBJECT_STATUS(v_rep);
WHILE rep_status in ('RUNNING','OPENING_REPORT','ENQUEUED') LOOP
rep_status := report_object_status(v_rep);
END LOOP;
IF rep_status = 'FINISHED' THEN
/*Display report in the browser*/
WEB.SHOW_DOCUMENT('http://127.0.0.1:8889/reports/rwservlet/getjobid'|| substr(v_rep,instr(v_rep,'_',-1)+1)||'?'||'server=rep10g', '_blank'); 
ELSE
message(' Error when running report ');
END IF;
----
SET_APPLICATION_PROPERTY(CURSOR_STYLE,'DEFAULT'); 
----

END;

لعمل Report Server
اذهب إلى
start -- > reum
وأكتب التالي
rwserver server=10g autostart=yes

تم تعديل 10 مايو 200917 سنة بواسطة mustafagamiel

مشكور في مجال ترفقه في ملف لاني مش فاهم شي

مشكور بس الكود بكتبه في trigger لل للكبسه و لا على report الي في الform
ارجو التوضيح و شكرا
,

عزيزي ...

الملف المرفق عبارة عن Folder به الفورمه والريبورت الخاصة بعرض بيانات الجدول Emp
أرجو بعد فك الضغط ... نقله إلى الـ C ثم تشغيل الملف الخاص بالفورم

Ehab.rar

مشكور جدا بس انت شو اdev الي بتستخدمه
لانو ما اشتغل
بحكي encoding format