1、在报表页面布局相应的位置加入文本框，一般为Download

右键用PL/SQL编辑器编写成超链接，加入以下内容：

复制代码 代码如下:

function B_13FormatTrigger return boolean is

begin

IF upper(:P_ACTION) != 'DOWNLOAD' THEN

return (FALSE);

ELSE

srw.set_hyperlink(EXP_FILE.linkto);

return (TRUE);

END IF;

end;

2、建立程序单元EXP_FILE和EXP_FILE，加入link_to函数，内容如下：

复制代码 代码如下:

FUNCTION linkto RETURN VARCHAR2

IS

BEGIN

RETURN (:P_URL||filename);

END linkto;

3、编写触发器BEFORE_REPORT，把要下载内容追加到下载页面中，内容如下：

复制代码 代码如下:

function BeforeReport return boolean is

begin

If upper(:P_ACTION) = 'DOWNLOAD' then

:P_SESSION := USERENV('SESSIONID');

:P_TEST := EXP_FILE.make('Vendor_Item_Reference_Enquiry_'||to_char(sysdate,'yyyymmddhh24miss'),:P_USERID,'csv',false);

EXP_FILE.append('|'||'|'||'|'||'|'||'Vendor Item Reference Enquiry'||'|'||'|'||'|'||'|'||'|'||'|'||'|'||'|'||'|'||'|'||'|'||'|');

EXP_FILE.append('|'||'|'||'|'||'|'||'|'||'|'||'|'||'|'||'|'||'|'||'|'||'|'||'|'||'|'||'|'||'|'||'|'||'|'||'|'||'|'||'|');

EXP_FILE.append('Selection criteria'||'|'||'CCN:'||'|'||:P_CCN||'|'||'|'||'Mas Loc:'||'|'||:P_MASLOC||'|'||'|'||'|'||'|'||'|'||'|'||'|'||'|'||'|'||'|'||'|'||'|');

EXP_FILE.append('|'||'Division:'||'|'||:P_FR_DIV||'|'||'|'||'To:'||'|'||:P_TO_DIV||'|'||'|'||'|'||'|'||'|'||'|'||'|'||'|'||'|'||'|'||'|'||'|'||'|');

EXP_FILE.append('|'||'|'||'Vendor:'||'|'||:P_FR_VENDOR||'|'||'|'||'To:'||'|'||:P_TO_VENDOR||'|'||'|'||'|'||'|'||'|'||'|'||'|'||'|'||'|'||'|');

EXP_FILE.append('|'||'|'||'Item:'||'|'||:P_FR_ITEM||'|'||'|'||'To:'||'|'||:P_TO_ITEM||'|'||'|'||'|'||'|'||'|'||'|'||'|'||'|'||'|'||'|'||'|'||'|'||'|'||'|'||'|');

EXP_FILE.append('Dept*'|| '|' ||'Vendor'||'|'||'Pur Loc '||'|'||'Item'||'|'||'Make'||'|'||'Description'||'|'||'Env. Std.'||'|'||'Env. Status ');

return(true);

else

return(true);

end if;

end;