在菜单中调用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_idREPORT参数名DATA_PARAMETER:FORM项名); Add_Parameter(pl_idREPORT参数名TEXT_PARAMETER :FORM项名); … … Run_Product(REPORTS 报表程序名REP SYNCHRONOUS RUNTIME FILESYSTEM pl_id NULL); END; |