在菜单中调用REPORT程序(不传参数,传参数可用下面的程序段)
Run_ProdUCt(REPORTS, '报表程序名.REP', SYNCHRONOUS, RUNTIME, FILESYSTEM, '', NULL);
在FORM中调用REPORT程序(可传参数)
DECLARE
pl_id ParamList;
BEGIN
pl_id := Get_Parameter_List('参数列表名');
IF NOT Id_Null(pl_id) THEN
Destroy_Parameter_List( pl_id );
END IF;
pl_id := Create_Parameter_List('参数列表名');
Add_Parameter(pl_id,'REPORT参数名1',DATA_PARAMETER,':FORM项名1');
Add_Parameter(pl_id,'REPORT参数名2',TEXT_PARAMETER, :FORM项名2);
… …
Run_Product(REPORTS, '报表程序名.REP', SYNCHRONOUS, RUNTIME, FILESYSTEM, pl_id,
NULL);
END;