خطوة بخطوة لاستدعاء التقارير من الفورم 10 جي

[mustafagamiel]

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

REPORTS.rar

[Ahmad.Hasan]

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

[mer123]

salamou 3alikome thanks a lot for your article

[ahmed _m]

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

[RASHAD SAEED]

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

[PANCHI]

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

[@nana@]

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

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


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

nana.rar

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

[جندي الله]

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

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

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

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

[malik alwadi]

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

[mansoor_sql]

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

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

[a_oracle_a]

شكرا جزيلا

[aswar_alquds]

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

[tamer farouk]

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

[قلقيلي]

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

[RASHAD SAEED]

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

[امير101]

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

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

 
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]

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

[mustafagamiel]

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

[امير101]

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

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

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

[mustafagamiel]

السلام عليكم
أخي أمير انت شغال على فيرجن اه 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;

موفق

[امير101]

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

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

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

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

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

[mustafagamiel]

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

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

موفق

[ama000]

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

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

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

[msiddiq]

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

[الأيهم]

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