أخواني الاعزاء


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


أريد كود أستطيع من خلاله مناادة تقرير من خلال شاشات مصممة بـ 10g

تفضل اخي الكريم

web.show_document('http://127.0.0.1:8889/reports/rwservlet?
report=c:\darwish\first.jsp&destype=cache&desformat=htmlcss&userid=scott/tiger@orcl&emp_id='||:x1);

أخي العزيز

السلام عليكم


لم تنفع هذه الطريقة
ارجو التوضيح
او اعطائي طريقة أخرى

شكرا

تفضل اخي الكريم

web.show_document('http://127.0.0.1:8889/reports/rwservlet?
report=c:\darwish\first.jsp&destype=cache&desformat=htmlcss&userid=scott/tiger@orcl&emp_id='||:x1);

السلام علسيكم ورحمة الله وبركاته
اخي فالله
بعد التحيه
عليك استبدال كلا من
127.0.0.1 بي رقم ip الخاص بجهازك او اسم الجهاز او localhost او تركها كما هي اذا لم تغير ملف hosts فال pc بتاعك
c:\darwish\ بي اسم المجلد الذ يحتوي على التقرير
first.jsp بي اسم التقرير اللى انت عامله
jsp بي rdf مثلا حسب الامتداد اللى انت مستخدمه
&userid=scott/tiger@orcl بي المستخدم وكلمة السر والقاعده الخاصين بيك
وهكذا ياريس
زاخر شئ بارمتر emp_id لو انت مش مستخدمه تشيله طبعا

أخواني الأعزاء

هذا ما قمت بعمله و هذا الكود الذي كتبه و مع ذلك لم يشتغل
شكرا اخي على التوضيح و لكن هذه الامور واضحة
لكن الا يوجد طريقة أخرى ؟؟؟

DECLARE
 pl  paramlist;
BEGIN pl := CREATE_PARAMETER_LIST ('tmp');
        ADD_PARAMETER (pl, 'COUNTRY', text_parameter, :COUNTRY);
        ADD_PARAMETER (pl, 'DAT_FRM', text_parameter, :DAT_FRM);
        ADD_PARAMETER (pl, 'DAT_TO', text_parameter, :DAT_TO);
        ADD_PARAMETER (pl, 'paramform', text_parameter, 'NO');
        --RUN_PRODUCT (reports,'D:\Accounting System\10g New\English\Reports\detiled_reconcilation',asynchronous,runtime,filesystem,pl,NULL);
        
        
       web.show_document('http://localhost:8889/reports/rwservlet?
       report=D:\Accounting System\10g New\English\Reports\detiled_reconcilation.rdf&destype=cache&desformat=htmlcss&userid=oracle/oracle@orcl'); 
         DESTROY_PARAMETER_LIST (pl);
END;

بنفس طريق Forms Run_Product من خلال rp2rro.pll
مثال

Declare
  P_list   ParamList;
Begin P_list := Get_Parameter_List ('rep_param');
   If Not Id_Null (p_list) Then
     Destroy_Parameter_List (p_list);
   End If;
   
   P_list := Create_Parameter_List ('rep_param');
   
   Add_Parameter (p_list, 'p_Cmp_No', TEXT_PARAMETER, :Global.cmp_no);
   Add_Parameter (p_list, 'P_User_Name', TEXT_PARAMETER, :Global.User_Name);
   Add_Parameter (p_list, 'p_Loc_Id', TEXT_PARAMETER, :Global.Loc_Id);
   Add_Parameter (p_list, 'p_Year_No', TEXT_PARAMETER,:Global.Year_No);
   Add_Parameter (p_list, 'p_From_Date', TEXT_PARAMETER ,To_Char(:Blk_1.P_From_Date,'DD-MM-YYYY'));
   Add_Parameter (p_list, 'p_To_Date', TEXT_PARAMETER,To_Char(:Blk_1.P_To_Date,'DD-MM-YYYY'));
   Add_Parameter (p_list, 'p_From_Type', TEXT_PARAMETER, :Blk_1.From_type);
   Add_Parameter (p_list, 'p_To_Type', TEXT_PARAMETER, :Blk_1.To_Type);
   Add_Parameter (p_list, 'p_From_No', TEXT_PARAMETER, to_char(:Blk_1.From_no));
   Add_Parameter (p_list, 'p_To_No', TEXT_PARAMETER, to_char(:Blk_1.To_no));
   Add_Parameter (p_list, 'p_Vouch', TEXT_PARAMETER, to_char(:Blk_1.Vouch_Status));
   rp2rro.setdesformat(:Rep_Format); 
    rp2rro.rp2rro_run_product (REPORTS, 'GLR2040', SYNCHRONOUS, RUNTIME, FILESYSTEM, p_list, Null); 
End;

أخواني الاعزاء

لم تنجح اي طريقة حتى الآن




شكرا

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

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

اضغط هنا