مساعدة:كود تنفيذ ريبورت في ديفولبر 6I

[عبدالرحمن محجوب]

السلم عليكم ورحمة الله وبركاته ..اخواني مبرمجين اوراكل

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

انا عندي تقرير اسمه(stud_reg)ومحتاج الكود لتنفيذه ولكن من القايمة الرئيسية للبرنامج فورا عند الضغط على الزر يظهر هذا التقرير

قياريت تساعدوني لاني محتاج اليه..

وجزاكم الله خيراً..

[a5hhk]

 declare
 pl_id ParamList; 
BEGIn

 /*IF NOT Id_Null(pl_id) THEN 
   Destroy_Parameter_List( pl_id ); 
 END IF; 
 /* 
 ** Create the 'tmpdata' parameter list afresh. 
 */ 
 pl_id := Create_Parameter_List('tmpdata'); 
 /* 
 */ 
 --Add_Parameter(pl_id,'EMP_QUERY',DATA_PARAMETER,'EMP_RECS'); 
 /*
 **Pass a Parameter into PARAMFORM so that a parameter dialog will not appear
 **for the parameters being passing in.
 */

 Add_Parameter(pl_id, 'PARAMFORM', TEXT_PARAMETER, 'yes');
 /* 
 ** Run the report synchronously, passing the parameter list
 */ 
 Run_Product(REPORTS, 'C:\report path', SYNCHRONOUS, RUNTIME, 
      	FILESYSTEM, pl_id, NULL); 
END; 

[عبدالرحمن محجوب]

declare
pl_id ParamList;
BEGIn

/*IF NOT Id_Null(pl_id) THEN
Destroy_Parameter_List( pl_id );
END IF;
/*
** Create the 'tmpdata' parameter list afresh.
*/
pl_id := Create_Parameter_List('tmpdata');
/*
*/
--Add_Parameter(pl_id,'EMP_QUERY',DATA_PARAMETER,'EMP_RECS');
/*
**Pass a Parameter into PARAMFORM so that a parameter dialog will not appear
**for the parameters being passing in.
*/

Add_Parameter(pl_id, 'PARAMFORM', TEXT_PARAMETER, 'yes');
/*
** Run the report synchronously, passing the parameter list
*/
Run_Product(REPORTS, 'C:\report path', SYNCHRONOUS, RUNTIME,
FILESYSTEM, pl_id, NULL);
END;

مشكور اخي على الكود..ربنا يوفقك ويسدد خطاك