السلام عليكم ورحمة وبركاته
اقدم أليكم مرة أخرى مثال لاستدعاء التقرير من الفورم بالطريقتين المباشرة وطريقة النود مع كيفية ارسال بارميتر وجعل الريبورت maxmize
خطوة بخطوة بالصور ضع مجلد ال reports في قرص ال c
نظرا لانه هذا الموضوع اتحذف بسبب مشكلة المنتدى وطلب مني الاخوة وضعه مرة أخرى
اتمنى الاستفادة للجميع
والسلام عليكم ورحمة وبركاته

REPORTS.rar

بارك الله فيك اخي مصطفى على المجهود...
وإلى الأمام...

salamou 3alikome thanks a lot for your article

مشكور اخي م/mustafagamiel
الله يجزيك خير على الجهد المبذول لنفع المتعلم ..
ربنا يكثر من امثالك

مشكور أخي العزيز على هذا العمل المميز http://almokbily.maktoobblog.com

احلى شكر للمبدع دائما مصطفى جميل

شكراا ياباشمهندس mustafagamiel ع الشرح الجميل

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


مش عارفة فين المشكلة بجد

nana.rar

تم تعديل 11 يوليو 200916 سنة بواسطة @nana@

السلام عليكم ورحمة الله وبركاته

ياجماعة هل الربورت سيرفر مبيشتغلش على الإصدار الثاني من الفورمس

لأني حاولت أشغلة مش بينفع مع العلم أني لما أشغلة مع الأصدرا الأول بيشتغل على طول

ياريت الأهتمام بارك الله فيكم

مجهود رائع, بارك الله فيك

مشكور اخي على الملف جاري التجربه

جزاك الله الف خير ووسع لك في رزقك

شكرا جزيلا

مشكور وجزاك الله كل خير. في ميزان حسناتك

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

بارك الله فيك اخي الكريم

تشكر على المجهود الرائع

اريد منكم ان اسوي باراميتر على هذا الكود لتحديد رقم الادارة مثلاً

للكود اين اضعه

 
declare
repid report_object;
v_rep varchar2(100);
rep_status varchar2(20);
begin
repid := find_report_object('REPORT9');
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,'html');
set_report_object_property(repid,report_server,'rep10g');

set_report_object_property(repid,report_other,'paramform=no');

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.1.1.1:8889/reports/rwservlet/getjobid'||substr(v_rep,instr(v_rep,'_',-1)+1)||'?'||'server=rep10g','_blank');
ELSE
message('Error when running report ASHRAF');
END IF;
END;

مرفق لكم الكود مع التقرير ارجوا افادتي بارك الله فيكم

test.rar

وين الشباب هل سؤالي واضح

السلام عليكم
أخي العزيز أمير101
في المثال المرفق في الموضوع
ماتسأل أرجوا ان تشوفه اولا
موفق

شكرا ليك اخ مصطفى
بس انا
سويت كل شئ عل الطريقة الثانية النود والسرفر والتقرير يطلع معاي بس اريد امرر باراميتر من الفورم الى التقرير اين اضيف الكود وما هو

والملف المرفوع مؤخرا لم يفتح وتظهر لي هذا الرسالة

تم تعديل 29 سبتمبر 200916 سنة بواسطة امير101

السلام عليكم
أخي أمير انت شغال على فيرجن اه 9أي
طيب ده الكود وبه ارسال الباراميتر

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

BEGIN repid := find_report_object('emprep');  
pl:=get_parameter_list('paraformlist');
if not id_null(pl) then
	destroy_parameter_list(pl);
	end if;

-- Adjust form report obeject 
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'); 
pl:=create_parameter_list('paraformlist');
add_parameter(pl,'paramform',text_parameter,'no');
add_parameter(pl,'dept',text_parameter,:dept); -- this the first parameter
                     add_parameter(pl,'ss',text_parameter,:ss);-- second
   SET_APPLICATION_PROPERTY(CURSOR_STYLE,'BUSY');
 ----
v_rep := RUN_REPORT_OBJECT(repid,pl);
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 ');
	message(' Error when running report ');
END IF;

 ----change cursor 
 SET_APPLICATION_PROPERTY(CURSOR_STYLE,'DEFAULT'); 
 ----

END;

موفق

بارك الله فيك اخي مصطفى

هل تسمح لي ان استغل تجاوبك معي ...لأسالك
واسال هل الموضوع مؤثر علي لان عندي برنامج سويته على 6i
واريد ان انفذه على شبكة محلية من خمسة اجهزة و وpc server

هل الغي 9i واحمل 10g

كذلك ويش نصيحتكم هل احمل على pc server ويندوز سرفر 2003 ام xp

بارك الله فيك اخي مصطفى ونور عليك في الدنيا والاخرة

السلام عليكم
يمكنك ان تظل على 6أي كما هو
وبالنسبة للاختلاف بين 9أي و10 جي لايوجد اختلاف يذكر كتير
لكن فقط 10جي يمكنك فتح اي فورمة كي لاتحدث المشكلة الاي حدثت معك ولاتستطيع فتح بعض الفورم في المنتدى
خليك على 10 جي

وبالنسبة ويندوز سيرفر 2003 كويس جدا لكن لو الشغل عادي وبسيط يمكنك الابقاء على اكس بي
وجزاك الله خيرا على دعواتك

موفق

معلش يا جماعة انا الكود مش بيظهر عندي(الصيغة غير معرفة) مع اني اشتغل على 10g مش عارف ليه

ممكن حد يرسل الاكواد في كل زر اللي في الفورمة على المنتدى

جزاكم الله خيرا

بارك الله لك وزادك من العلم لتنتفع به وتنفع به غيرك

مشـــكـــــــــــــــــوووور