数据以报表形式展现的实现方法研究
背景：系统的信息业务数据往往我们需要将其显示出来，通常我们用的方式是利用报表的形式将数据打印出来，这样的好处是可以生成形式多样的格式例如pdf,html等等，但是我们也可以使用htp的形式将数据打印出来，而不用提交一个Request，下面将对两种方式分别进行说明
一.Request形式
1..用report生成xml数据源,或者用plsql输出，看个人喜好，都可以实现
例如生成的TRNORD5632.xml
<?xml version="1.0" encoding="GBK"?>
<!-- Generated by Oracle Reports version 10.1.2.0.2 -->
<TRNORD5632>
<LIST_G_HEAD_DES>
<G_HEAD_DES>
<ORDER_NUMBER>2</ORDER_NUMBER>
<ORDER_DATE>10-SEP-13</ORDER_DATE>
<VENDOR_NUMBER>V00001</VENDOR_NUMBER>
<VENDOR_NAME>HAND Corporation</VENDOR_NAME>
<CONTACT_NAME>Scott</CONTACT_NAME>
<TELEPHONE>021-38953345</TELEPHONE>
<HEAD_DES>2</HEAD_DES>
<LIST_G_ITEM_NUMBER>
<G_ITEM_NUMBER>
<LINE_NUMBER>2</LINE_NUMBER>
<ITEM_NUMBER>01002001</ITEM_NUMBER>
<ITEM_NAME>Mouse</ITEM_NAME>
<QUANTITY>1</QUANTITY>
<UNIT_PRICE>200</UNIT_PRICE>
<AMOUNT>200</AMOUNT>
<ACCOUNT_ID>01-000-2990-0000-000</ACCOUNT_ID>
<ACCOUNT_DES>Operations-No Department-Suspense-No Sub Account-No Product</ACCOUNT_DES>
<LINE_DES>2</LINE_DES>
</G_ITEM_NUMBER>
</LIST_G_ITEM_NUMBER>
<PRINT_DATE>10-SEP-13</PRINT_DATE>
<SUM_AMOUNT>200</SUM_AMOUNT>
</G_HEAD_DES>
</LIST_G_HEAD_DES>
</TRNORD5632>
2利用“1”中生成的数据源开发rtf模板，具体开发语法方法可以参考我的博客 BI Publisher（rtf）模板开发语法大全 。http://blog.csdn.net/cai_xingyun/article/details/17094863
3.修改report程序
（1）必须有参数：P_CONC_REQUEST_ID
（2）必须在before report 中调用：SRW.USER_EXIT('FND SRWINIT');
（3）必须在after report中调用：SRW.USER_EXIT('FND SRWEXIT');
修改后直接保存成rdf文件就行（不用编译；也编译不过）
4.上传rdf文件到对应的服务器例如$CUX_TOP/reports/ZHS
5.定义可执行：APPLICATION DEVELOPER：--》并发—》可执行
6.定义并发程序：APPLICATION DEVELOPER：--》并发—》程序
如果report有参数则点击：参数Parameters
主要选项
参数界面内容设置
注意：
7.把报表分配给请求组
1）先查找我们要挂报表的职责，并记住该职责的请求组 系统管理员->安全性—责任à定义;查找出需要的责任;记住请求组
(2)分配给请求组
系统管理员->安全性—责任à请求 查找出上一步记住的请求组名;把前面定义好的并发程序挂在请求组下
8.注册数据和模板
声明注意
（1）. 切换责任到：XML Publisher Administrator
（2）. 定义数据: XML Publisher Administratorà主页à数据定义;点创建数据定义
（3）. 定义模板XML Publisher Administratorà主页à模板;点创建模板
9.切换到相应责任下提交请求,输入请求参数等就可以查看输出
二，在FORM中调用请求输出数据
程序单元
procedure print_report(p_ord_num in NUMBER,p_date_end in date,p_date_start in date) is
L_REQUEST_ID NUMBER;
L_BL_RESULT BOOLEAN;
v_layout BOOLEAN;
X_PHASE VARCHAR2(100);
X_STATUS VARCHAR2(100);
X_DEV_PHASE VARCHAR2(100);
X_DEV_STATUS VARCHAR2(100);
X_MESSAGE VARCHAR2(100);
BEGIN
/*
--
-- Name
-- add_layout
-- Purpose
-- Called before submission to add layout options for request output.
--
-- Arguments
-- Template_APPL_Name - Template Application Short name.
-- Template_code - Template code
-- Template_Language - Template File language (iso value)
-- Template_Territory - Template File Territory (iso value)
-- Output Format - Output Format
--添加输出模板，FND_REQUEST.add_layout (template_appl_name in varchar2,
template_code in varchar2,
template_language in varchar2,
template_territory in varchar2,
output_format in varchar2) return boolean
*/
v_layout:=FND_REQUEST.ADD_LAYOUT('PO','TRNORD5632_4',Null, Null,'PDF');
/*
--
-- Name
-- submit_request
-- Purpose
-- Submits concurrent request to be processed by a concurrent manager
--
-- Arguments
-- application - Short name of application under which the program
-- - is registered
-- program - concurrent program name for which the request has
-- - to be submitted
-- description - Optional. Will be displayed along with user
-- - concurrent program name
-- start_time - Optional. Time at which the request has to start
-- - running
-- sub_request - Optional. Set to TRUE if the request is submitted
-- - from another running request and has to be treated
-- - as a sub request. Default is FALSE
-- argument1..100 - Optional. Arguments for the concurrent request
-- 提交并发请求
--FND_REQUEST.SUBMIT_REQUEST(application IN varchar2 default NULL,
program IN varchar2 default NULL,
description IN varchar2 default NULL,
start_time IN varchar2 default NULL,
sub_request IN boolean default FALSE
argument1,
argument2, ..., argument99,
argument100) return number;
*/
L_REQUEST_ID := FND_REQUEST.SUBMIT_REQUEST('PO',
'TRNORD5632_4',
'',
'',
FALSE,
P_DATE_END,
P_DATE_START,
P_ORD_NUM,
CHR(0),'','','','','','',
'','','','','','','','','','',
'','','','','','','','','','',
'','','','','','','','','','',
'','','','','','','','','','',
'','','','','','','','','','',
'','','','','','','','','','',
'','','','','','','','','','',
'','','','','','','','','','',
'','','','','','','','','','');
FND_MESSAGE.DEBUG('L_REQUEST_ID '|| L_REQUEST_ID);
COMMIT;
IF L_REQUEST_ID IS NULL OR L_REQUEST_ID = 0 THEN
RETURN;
END IF;
/*
--
-- Name
-- WAIT_FOR_REQUEST
-- Purpose
-- Waits for the request completion, returns phase/status and
-- completion text to the caller. Calls sleep between db checks.
-- Arguments (input)
-- request_id - Request ID to wait on
-- interval - time b/w checks. Number of seconds to sleep
-- - (default 60 seconds)
-- max_wait - Max amount of time to wait (in seconds)
-- - for request's completion
-- Arguments (output)
-- User version of phase and status
-- Developer version of phase and status
-- Completion text if any
-- phase - Request phase ( from meaning in fnd_lookups )
-- status - Request status( for display purposes )
-- dev_phase - Request phase as a constant string so that it
-- - can be used for comparisons )
-- dev_status - Request status as a constatnt string
-- message - Completion message if request has completed
--
--等待并发请求完成，并返回分析/状态和完成信息，FND_CONCURRENT.WAIT_FOR_REQUEST(request_id IN number default NULL,
interval IN number default 60,
max_wait IN number default 0,
phase OUT varchar2,
status OUT varchar2,
dev_phase OUT varchar2,
dev_status OUT varchar2,
message OUT varchar2) return boolean;
*/
L_BL_RESULT := FND_CONCURRENT.WAIT_FOR_REQUEST(L_REQUEST_ID,1,0,X_PHASE, X_STATUS,X_DEV_PHASE,X_DEV_STATUS,X_MESSAGE);
IF X_DEV_PHASE = 'COMPLETE' AND X_DEV_STATUS = 'NORMAL' THEN
editor_pkg.report(L_REQUEST_ID,'Y'); --使输出的报表pdf文件在浏览器中显示。
ELSE
fnd_file.put_line(1,RPAD('x_phase',20,' ') || '=' || X_PHASE);
fnd_file.put_line(1,RPAD('x_status=',20,' ') || '=' || X_STATUS);
fnd_file.put_line(1,RPAD('x_dev_phase=', 20, ' ') || '=' || X_DEV_PHASE);
fnd_file.put_line(1,RPAD('x_dev_status=',20,' ') || '=' || X_DEV_STATUS);
fnd_file.put_line(1,RPAD('x_message=',20,' ') || '=' || X_MESSAGE);
fnd_file.put_line(1,'Warning : Starting journal print report failure! It did not running in 120 seconds, its request_id is ' ||
TO_CHAR(L_REQUEST_ID) || ' please check it.');
END IF;
end print_report;
在触发器中调用即可
三.HTP形式展现数据，直接输出在浏览器中
1.开发程序包
CREATE OR REPLACE PACKAGE TEST_PKG IS
PROCEDURE POIMP_PRN (p_IMPORT_REQUEST_ID number);
PROCEDURE PRIMP_PRN (p_IMPORT_REQUEST_ID number);
End TEST_PKG;
/
CREATE OR REPLACE PACKAGE BODY TEST_PKG IS
PROCEDURE POIMP_PRN (p_IMPORT_REQUEST_ID number) is
V_Page_Width NUMBER := 1500 ;
V_Font_Size NUMBER := 2 ;
V_Title_Size NUMBER := 3;
v_name varchar2(100) ;
v_org_id number;
v_internal_address_line varchar2(100);
v_count number;
v_err varchar2(10000);
v_ITEM_CHECK varchar2(30);
Logo_Url Constant Varchar2(100) := 'http://host:port/OA_HTML/cmlogo.gif';
Begin
Htp.Tableopen(Cattributes => 'cellspacing=0 cellpadding=3 border=0 width=' ||
V_Page_Width || ' bgcolor="#000000"',
Calign => 'center');
Htp.Tablerowopen(Cattributes => 'bgcolor="#ffffff"');
Htp.Tabledata(Cvalue => '<img src=" ' || Logo_Url || '">',
Cattributes => 'width="20%"',
Calign => 'left');
Htp.Tabledata(Cvalue => '<font size="' || V_Title_Size || '"> <b>' ||
'采购订单导入-采购清单' || '</b>',
Cattributes => 'width="60%"',
Calign => 'center');
Htp.Tablerowclose;
Htp.Tableclose;
Htp.p('<p>');
Htp.Htmlopen;
Htp.Title(' 采购订单导入-物料采购清单');
Htp.p('<head>');
Htp.p('<META. http-equiv=Content-Type content="text/html; charset=gb2312" >');
Htp.p('<STYLE>');
Htp.p('</STYLE>');
Htp.p('</head>');
Htp.Bodyopen;
---------------------
fnd_client_info.set_org_context (v_org_id);
Htp.Tableopen(Cattributes => 'cellspacing=0 cellpadding=3 border=1 width=' ||
V_Page_Width || ' bgcolor="#ffffff"',
Calign => 'center');
Htp.Tablerowopen(Cattributes => 'bgcolor="#ffffff"');
For c_header in Cur_header Loop
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' || '合同名称',
Cattributes => 'width="4%"',
Calign => 'center');
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' || c_header.CONTRACT_NAME ||
Chr(38) || 'nbsp',
Cattributes => 'width="4%"',
Calign => 'center');
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' || '合同总金额',
Cattributes => 'width="4%"',
Calign => 'center');
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' || c_header.CONTRACT_AMOUNT ||
Chr(38) || 'nbsp',
Cattributes => 'width="4%"',
Calign => 'center');
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' || '合同编号',
Cattributes => 'width="4%"',
Calign => 'center');
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' || c_header.CONTRACT_NUMBER ||
Chr(38) || 'nbsp',
Cattributes => 'width="4%"',
Calign => 'center');
Htp.Tablerowclose;
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' || 'xx公司名称',
Cattributes => 'width="4%"',
Calign => 'center');
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' || v_name ||
Chr(38) || 'nbsp',
Cattributes => 'width="4%"',
Calign => 'center');
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' || 'xx公司代码',
Cattributes => 'width="4%"',
Calign => 'center');
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' || v_internal_address_line ||
Chr(38) || 'nbsp',
Cattributes => 'width="4%"',
Calign => 'center');
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' || '合同日期',
Cattributes => 'width="4%"',
Calign => 'center');
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' || c_header.CONTRACT_date ||
Chr(38) || 'nbsp',
Cattributes => 'width="4%"',
Calign => 'center');
Htp.Tablerowclose;
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' || '供应商名称',
Cattributes => 'width="4%"',
Calign => 'center');
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' || c_header.vendor_name ||
Chr(38) || 'nbsp',
Cattributes => 'width="4%"',
Calign => 'center');
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' || '供应商编码',
Cattributes => 'width="4%"',
Calign => 'center');
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' || c_header.vendor_code ||
Chr(38) || 'nbsp',
Cattributes => 'width="4%"',
Calign => 'center');
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' || '供应商地点',
Cattributes => 'width="4%"',
Calign => 'center');
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' || c_header.vendor_site_code ||
Chr(38) || 'nbsp',
Cattributes => 'width="4%"',
Calign => 'center');
Htp.Tablerowclose;
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' || '收货地点',
Cattributes => 'width="4%"',
Calign => 'center');
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' || c_header.SHIP_TO_LOCATION ||
Chr(38) || 'nbsp',
Cattributes => 'width="4%"',
Calign => 'center');
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' || '收单地点',
Cattributes => 'width="4%"',
Calign => 'center');
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' || c_header.BILL_TO_LOCATION ||
Chr(38) || 'nbsp',
Cattributes => 'width="4%"',
Calign => 'center');
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' || '币种',
Cattributes => 'width="4%"',
Calign => 'center');
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' || c_header.CURRENCY_CODE ||
Chr(38) || 'nbsp',
Cattributes => 'width="4%"',
Calign => 'center');
Htp.Tablerowclose;
End Loop;
Htp.Tableclose;
------------
---------------------
Htp.Tableopen(Cattributes => 'cellspacing=0 cellpadding=3 border=1 width=' ||
V_Page_Width || ' bgcolor="#ffffff"',
Calign => 'center');
Htp.Tablerowopen(Cattributes => 'bgcolor="#ffffff"');
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' || '行号',
Cattributes => 'width="1%"',
Calign => 'center');
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' || '站号',
Cattributes => 'width="1%"',
Calign => 'center');
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' || '物料编码',
Cattributes => 'width="1%"',
Calign => 'center');
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' || '物料描述',
Cattributes => 'width="1%"',
Calign => 'center');
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' || '物料分类',
Cattributes => 'width="1%"',
Calign => 'center');
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' || '单位',
Cattributes => 'width="1%"',
Calign => 'center');
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' || '数量',
Cattributes => 'width="1%"',
Calign => 'center');
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' || '目录单价',
Cattributes => 'width="1%"',
Calign => 'center');
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' || '合同单价',
Cattributes => 'width="1%"',
Calign => 'center');
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' || '库存组织',
Cattributes => 'width="1%"',
Calign => 'center');
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' || '需求日期',
Cattributes => 'width="1%"',
Calign => 'center');
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' || '接收地点',
Cattributes => 'width="1%"',
Calign => 'center');
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' || '项目编码',
Cattributes => 'width="1%"',
Calign => 'center');
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' || '任务编码',
Cattributes => 'width="1%"',
Calign => 'center');
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' || '行类型',
Cattributes => 'width="1%"',
Calign => 'center');
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' || '支出类型',
Cattributes => 'width="1%"',
Calign => 'center');
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' || '支出组织',
Cattributes => 'width="1%"',
Calign => 'center');
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' || '支出日期',
Cattributes => 'width="1%"',
Calign => 'center');
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' || '错误信息或提示',
Cattributes => 'width="1%"',
Calign => 'center');
------------
Htp.Tableopen(Cattributes => 'cellspacing=0 cellpadding=3 border=1 width=' ||
V_Page_Width || ' bgcolor="#ffffff"',
Calign => 'center');
For C_LINE in Cur_line Loop
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' ||
C_LINE.LINE_NUMBER || Chr(38) ||
'nbsp',
Cattributes => 'width="1%"',
Calign => 'left');
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' ||
C_LINE.SITE_NUMBER || Chr(38) ||
'nbsp',
Cattributes => 'width="1%"',
Calign => 'left');
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' ||
C_LINE.ITEM_NUM || Chr(38) ||
'nbsp',
Cattributes => 'width="1%"',
Calign => 'left');
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' ||
C_LINE.ITEM_DESCRIPTION || Chr(38) ||
'nbsp',
Cattributes => 'width="1%"',
Calign => 'left');
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' ||
C_LINE.ITEM_ATTRIBUTE || Chr(38) ||
'nbsp',
Cattributes => 'width="1%"',
Calign => 'left');
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' ||
C_LINE.UNIT_OF_MEASURE || Chr(38) ||
'nbsp',
Cattributes => 'width="1%"',
Calign => 'left');
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' ||
C_LINE.QUANTITY || Chr(38) ||
'nbsp',
Cattributes => 'width="1%"',
Calign => 'left');
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' ||
C_LINE.LIST_PRICE_PER_UNIT || Chr(38) ||
'nbsp',
Cattributes => 'width="1%"',
Calign => 'left');
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' ||
C_LINE.UNIT_PRICE || Chr(38) ||
'nbsp',
Cattributes => 'width="1%"',
Calign => 'left');
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' ||
C_LINE.ORGANIZATION_CODE || Chr(38) ||
'nbsp',
Cattributes => 'width="1%"',
Calign => 'left');
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' ||
C_LINE.NEED_BY_DATE || Chr(38) ||
'nbsp',
Cattributes => 'width="1%"',
Calign => 'left');
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' ||
C_LINE.DELIVER_TO_LOCATION || Chr(38) ||
'nbsp',
Cattributes => 'width="1%"',
Calign => 'left');
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' ||
C_LINE.PROJECT_NUMBER || Chr(38) ||
'nbsp',
Cattributes => 'width="1%"',
Calign => 'left');
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' ||
C_LINE.TASK_NUMBER || Chr(38) ||
'nbsp',
Cattributes => 'width="1%"',
Calign => 'left');
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' ||
C_LINE.LINE_TYPE || Chr(38) ||
'nbsp',
Cattributes => 'width="1%"',
Calign => 'left');
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' ||
C_LINE.EXPENDITURE_TYPE || Chr(38) ||
'nbsp',
Cattributes => 'width="1%"',
Calign => 'left');
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' ||
C_LINE.EXPENDITURE_ORGANIZATION || Chr(38) ||
'nbsp',
Cattributes => 'width="1%"',
Calign => 'left');
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' ||
C_LINE.EXPENDITURE_ITEM_DATE || Chr(38) ||
'nbsp',
Cattributes => 'width="1%"',
Calign => 'left');
--Error code
v_err := null;
For C_err in Cur_err Loop
if C_err.line_number = C_line.line_number then
v_err := C_err.error_message || ';' || v_err ;
end if;
End loop;
If ITEM_CHECK = 'Y' then
If c_line.item_num is not null then
select count(*) into v_count
from mtl_system_items_b
where organization_id = c_line.organization_id
and segment1 = c_line.item_num;
End if;
If v_count > 0 then
select count(*) into v_count
from mtl_system_items_b
where organization_id = c_line.organization_id
and segment1 = c_line.item_num
and description = c_line.item_description
;
If v_count = 0 then
v_err := '物料描述不一致' || ';' || v_err ;
End if;
End if;
End if;
Htp.Tabledata(Cvalue => '<font size="' || V_Font_Size || '"> ' ||
v_err || Chr(38) ||
'nbsp',
Cattributes => 'width="1%"',
Calign => 'left');
Htp.Tablerowclose;
End loop;
Htp.Tableclose;
Htp.Tablerowclose;
Htp.Tableclose;
----------------------
Htp.Bodyclose;
Htp.Htmlclose;
End POIMP_PRN;
End TEST_PKG;
2.在System administrator职责 ->Security->Web PL/SQL界面注册Package
3.Form中调用
DECLARE
v_command VARCHAR2 (2000);
BEGIN
v_command := fnd_profile.VALUE ('APPS_WEB_AGENT');
v_command := v_command || '/TEST_PKG.POIMP_PRN?p_IMPORT_REQUEST_ID=' || :Test.Import_id;
/*
--v_command := v_command || '&p_Doc_Comb =' || v_doc_comb;
v_command := v_command || '&p_Doc_id =' || :HEADER.REQUEST_HEADER_ID;
v_command := v_command || '&p_Doc_type =' || :HEADER.DOC_TYPE_NAME;
v_command := v_command || '&p_Date_From =' || Null;
v_command := v_command || '&p_Date_To =' || Null;
v_command := v_command || '&p_Create_By =' || :REQ_HEADER.CREATED_BY;
v_command := v_command || '&p_Print_Person =' || V_PRN_PERSON;
*/
web.show_document (v_command, '_blank');
-- FND_MESSAGE.SET_STRING('O');
-- FND_MESSAGE.HINT;
END;
