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;