تشغيل تقاريرمن الفورم 10g

[mahmoudab]

 

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

 

انا جربت كل الاكواد المستخدمة فى كيفية ان انا اعمل رن للتقرير من الفورم فى runtime 

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

 

كنت استخدم 6i  وكنت شغال الحمد الله تمام

ولما قررت اشتغل 10 جي اتقفلت لاني جربت كل الاكواد الموجودة تقريبا بكل المواقع تقريبا 

 

فارجو مساعدتي وكتابة كود من الاخر 

 

[Faisal Matari]

فيما يلي كود تشغيل تقرير من الفورم

BEGIN

DECLARE

  PLID PARAMLIST;

  THE_PARAM  VARCHAR2(20):='TMPDATA';

 BEGIN

  PLID :=GET_PARAMETER_LIST(THE_PARAM);

  IF NOT ID_NULL(PLID) THEN

     DESTROY_PARAMETER_LIST(PLID);

  END IF; 

 

  PLID := CREATE_PARAMETER_LIST(THE_PARAM);

 

  ADD_PARAMETER(PLID,'GRP1',TEXT_PARAMETER,'ANY TEXT');

  ADD_PARAMETER(PLID,'FISC_P',TEXT_PARAMETER,TO_CHAR(sysdate,'DD-MM-YYYY'));

  

  

  ADD_PARAMETER(PLID,'PARAMFORM',TEXT_PARAMETER,'NO');

  ADD_PARAMETER(PLID,'MAXIMIZE',TEXT_PARAMETER,'YES');

 

  RUN_PRODUCT(REPORTS,:global.App_Forms_PathAPRep || 'ReportFile',SYNCHRONOUS,RUNTIME,FILESYSTEM,PLID);

END;

 

END ;

 

 

شرح الكود 

  PLID PARAMLIST; تعريف متغير التقرير

  THE_PARAM  VARCHAR2(20):='TMPDATA'; تعريف جدول بيانات مؤقت

 

  PLID :=GET_PARAMETER_LIST(THE_PARAM); احضار جميع البارامترات من التقرير

 

  PLID := CREATE_PARAMETER_LIST(THE_PARAM);  لوضع بيانات المتغيرات وقيمها

 

  ADD_PARAMETER(PLID,'GRP1',TEXT_PARAMETER,'ANY TEXT'); هنا وضع قيمة للمتغير GRP1 وهي من نوع نص

  ADD_PARAMETER(PLID,'FISC_P',TEXT_PARAMETER,TO_CHAR(sysdate,'DD-MM-YYYY')); وهنا متغير من نوع (تاريخ) نضع له أي قيمة 

  

  

  ADD_PARAMETER(PLID,'PARAMFORM',TEXT_PARAMETER,'NO'); لتشغيل خاصية الطباعة

  ADD_PARAMETER(PLID,'MAXIMIZE',TEXT_PARAMETER,'YES'); لوضع خصائص التقرير ملى الشاشة 

 

وهنا لتشغييل التقرير من مسار معين 

  RUN_PRODUCT(REPORTS,'FullPath|\ReportFile',SYNCHRONOUS,RUNTIME,FILESYSTEM,PLID);

 

اذا كان التقرير لا يحتاج أي متغيرات فيمكن الاستعاضة عن الكود السابق بما يلي

DECLARE

PLID PARAMLIST;

BEGIN

RUN_PRODUCT(REPORTS,'Fullpath\ReportFile',SYNCHRONOUS,RUNTIME,FILESYSTEM,PLID);

END;

 

 

 

وبالله التوفيق

[mahmoudab]

 

شكرا جزيلا 

ولكن هذا الكود لم يعد مدعوماً فى اوراكل 10 جي

 

[ميسم الكرام]

 

ذكرت هذا الشيء وشرحت الإيعاز بمشاركة سابقة على الرابط التالي 

 

http://www.araboug.o...topic=54694&hl=