在菜单中调用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;
|