2004-11-5 10:31
Arraytedagov
ÔÚform6iÖÐÓÃformµ÷ÓÃreport,²¢ÇÒÏòreport´«µÝÒ»¸ö²ÎÊý£¬×ÜÊdzöÏÖ²ÎÊý¶Ô»°¿ò£¬ÈçºÎÈ¥µ
¶àлÁË
2004-11-8 16:07
shirleyzhw
ADD_PARAMETER(T_PARAM,'PARAMFORM',TEXT_PARAMETER,'NO');
2004-11-8 17:51
luna_xx
PROCEDURE Run_Emp_Report IS
pl_id ParamList;
BEGIN
/*
** Check to see if the 'tmpdata' parameter list exists.
*/
pl_id := Get_Parameter_List('tmpdata');
/*
** If it does, then delete it before we create it again in
** case it contains parameters that are not useful for our
** purposes here.
*/
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 a data parameter to this parameter list that will
** establish the relationship between the named query
** 'EMP_QUERY' in the report, and the record group named
** 'EMP_RECS' in the form.
*/
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, 'NO');
/*
** Run the report synchronously, passing the parameter list
*/
Run_Product(REPORTS, 'empreport', SYNCHRONOUS, RUNTIME,
FILESYSTEM, pl_id, NULL);
END;
²Î¿¼Ò»Ï£¬ÆäʵÄã¿ÉÒÔÔÚdpµÄ°ïÖúÖмä²érun_product»òÕßRUN_REPORT_OBJECT