الأخوة الأحباب أصحاب الخبرة :

انا اشتغل على برنامج أوراكل 10g والفورم كما هو معروف على الويب أبليكيشن ..

قمت بعمل تقرير يعرض النتائج حسب 2 باراميتر الأول الرقم والثاني الإسم، وعند عمل تست من نفس برنامج الريبورت يعطيني النتائج دون أية مشكلة إطلاقا.

عند الذهاب الى الفورم ومناداة التقرير .. يعطيني النتائج فقط حسب الرقم أما اي بحث عن طريق باراميتر الإسم فلا يعطيني اية نتيجة .. مع العلم ان كود مناداة التقرير مع الباراميتر هو :

web.show_document('http://127.0.0.1:****/reports/rwservlet?report
=prof-det.html&destype=cache&desformat=htmlcss&
userid=******&IDP='||:SRC.IDP
||'&NEM='||:SRC.PNM);

ماهي المشكلة .. ولماذا لا يتم عرض النتائج اذا كانت بصيغة تكست وتكون فقط رقم هل هناك طريقة أخرى لإرسال قيمة نصية غير ذلك .. أرجوكم ساعدوني .. وشكرا.

السلام عليكم
جرب استخدام الكود التالي:

Procedure Pu_Print_Tech_Support_Count Is
V_Rep_Id        Report_Object;
V_Repjob        Varchar2(100);
V_Job_Id        Varchar2(100);
V_Rep_Status    Varchar2(100);    
V_Reportsrvr    Varchar2(50) := 'rep_server';
V_Runformat     Varchar2(50) := 'pdf';
Pl_Id           Paramlist;
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_User_Id'            , Text_parameter, :Global.User);
Add_parameter(Pl_Id, 'P_Emp_Code'           , Text_parameter, :Blk_1.Emp_Code);
Add_parameter(Pl_Id, 'P_Tech_Type'          , Text_parameter, :Blk_1.Tech_Type);
Add_parameter(Pl_Id, 'P_Tech_Subject'       , Text_parameter, :Blk_1.Tech_Subject);
Add_parameter(Pl_Id, 'P_Region_Code'        , Text_parameter, :Blk_1.Region_Code);
Add_parameter(Pl_Id, 'P_Dept_Code'          , Text_parameter, :Blk_1.Dept_Code);
Add_parameter(Pl_Id, 'P_Gen_Dept'           , Text_parameter, :Blk_1.Gen_Dept);
Add_parameter(Pl_Id, 'P_Section_Code'       , Text_parameter, :Blk_1.Section_Code);
Add_parameter(Pl_Id, 'P_Ticket_Status'      , Text_parameter, :Blk_1.Ticket_Status);
Add_parameter(Pl_Id, 'P_Branch_Code'        , Text_parameter, :Blk_1.Branch_Code);
Add_parameter(Pl_Id, 'P_Date_From'          , Text_parameter, :Blk_1.From_Date);
Add_parameter(Pl_Id, 'P_Date_To'            , Text_parameter, :Blk_1.To_Date);
Add_parameter(Pl_Id, 'P_Send_Email'         , Text_parameter, :Blk_1.Send_Email);
Add_parameter(Pl_Id, 'P_User_No'            , Text_parameter, :Blk_1.User_No);
Add_parameter(Pl_Id, 'P_Recieving_Way'      , Text_parameter, :Blk_1.Recieving_Way);    
Add_parameter(Pl_Id, 'Paramform', Text_parameter, 'Yes');    
    
V_Rep_Id := Find_Report_Object('TECHSREP');
Set_Report_Object_Property(V_Rep_Id, Report_Comm_Mode, Synchronous);
Set_Report_Object_Property(V_Rep_Id, Report_Destype, Cache);
   
Set_Report_Object_Property(V_Rep_Id, Report_Server, V_Reportsrvr);
Set_Report_Object_Property(V_Rep_Id, Report_Desformat, V_Runformat);    
 
Set_Report_Object_Property(V_Rep_Id, Report_Other, 'paramform=no');    

Set_Report_Object_Property(V_Rep_Id, Report_Filename, 'TECHSREP.rdf');  
V_Repjob := Run_Report_Object(V_Rep_Id, Pl_Id);
V_Job_Id := Substr(V_Repjob, Length(V_Reportsrvr) + 2, Length(V_Repjob) );
V_Rep_Status := Report_Object_Status(V_Repjob);

 If V_Rep_Status = 'FINISHED' Then
  Web.Show_Document('/reports/rwservlet/getjobid' || V_Job_Id ||'?server=' || V_Reportsrvr || '', '_blank');
 Else
  Message('Report failed with error message ');
 End If;
End;

الله يبارك فيك على الرد السريع أخي الحبيب ..

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

وينكم يا جماعة ضروري جدا .. ساعدوني

الأخ الحبيب .. لقد حاولت مرارا بالكود الذي أعطيتني اياه .. مشكورا

ولكن لم أستطع التوصل الى اسم السيرفر ويضع لي رسالة لا يمكن الوصول الى خادم التقارير