当前位置: 数据库>oracle
Oracle Report中加入下载超链接操作方法
来源: 互联网 发布时间:2014-09-07
本文导语: 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.l...
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;
右键用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;
您可能感兴趣的文章:
本站(WWW.)旨在分享和传播互联网科技相关的资讯和技术,将尽最大努力为读者提供更好的信息聚合和浏览方式。
本站(WWW.)站内文章除注明原创外,均为转载、整理或搜集自网络。欢迎任何形式的转载,转载请注明出处。
本站(WWW.)站内文章除注明原创外,均为转载、整理或搜集自网络。欢迎任何形式的转载,转载请注明出处。