EBS中 EXCEL 格式报表输出的公用API

http://blog.itpub.net/10359218/viewspace-752601/

最近的项目上写了一个公用的API,很久以前就用EXCEL发布过报表，但从没想过写API来简化。。。

 

 

其实方法很简单，就是自已用EXCEL做个模板，然后另存为XML 电子表格，用TEXT工具打开后，看一下XML 代码就明白了。这个程序无非就是用请求的输出来打印这个XML代码而已.

 

主要功能:

1. 支持数据格式包括字符型，数值型，日期型

2. 支持单元格样式（这个写的比较不灵活，如果有新增样式，需要在sheet_start里增加

3. 支持公式及数组公式

4. 支持自动换行(在样式里)

5. 支持单元格合并(左右合并及上下合并)

6. 支持水平方向定位(INDEX)

 

注意:

在注册请求时，输出方式需定义为XML。请求执行完毕后，点输出，然后选择EXCEL打开即可

 

 

CREATE OR REPLACE PACKAGE BODY cux_common_report_util_pkg IS

 

  --*************************************************************************************

  --*              Copyright (c) XXXXXXXX, 2012

  --*                     All Rights Reserved

  --*************************************************************************************

  --** SYSTEM:                   EBS R12

  --** PROGRAM NAME:             cux_common_report_util_pkg.pls

  --** AUTHOR/EMAIL_ID:          Tony Liu

  --** DATE CREATED:             2013-1-13

  --** LATEST DATE MODIFIED:     2013-1-13

  --**

  --** DESCRIPTION:              用于发布输出格式为EXCEL的报表公用工具包

  --**

  --** INPUTS:

  --**

  --** OUTPUTS:                  N/A

  --**

  --** FUNCTION(S) CALLED:       N/A

  --**

  --** CAUTIONS:

  --**

  --**************************************************************************************

  --** Revision History

  --**   Date                   Revision Number        By         Reason/Defect

  --**-----------------------------------------------------------------------------

  --** 2013-1-13               1.0                     Tony Liu      Initial Version

  --**************************************************************************************

 

 

  --******************************************************************************

  -- Procedure: 输出信息到请求输出(OUTPUT)中

  -- 版本: 1.0

  -- Author: 刘峰

  --******************************************************************************

  PROCEDURE line(p_text IN VARCHAR2) IS

  BEGIN

    fnd_file.put_line(fnd_file.output, p_text);

    --dbms_output.put_line(p_text);

  END;

 

 

 

  --******************************************************************************

  -- Procedure: 输出XML文件的头部信息

  -- 版本: 1.0

  -- Author: 刘峰

  -- 说明:  author 传入提交请求的员工全名

  --        creation_date 格式为 to_char(sysdate,'yyyy-mm-ddhh24:mi:ss')

  --        company_name 传入xxxxxxx

  --******************************************************************************

  PROCEDURE sheet_start(p_author        IN VARCHAR2,

                        p_report_name   IN VARCHAR2,

                        p_creation_date IN VARCHAR2 DEFAULT to_char(SYSDATE,

                                                                    'yyyy-mm-dd hh24:mi:ss'),

                        p_company_name  IN VARCHAR2 DEFAULT 'XXXXXX') IS

  

    v_common_info1 VARCHAR2(32767);

    v_common_info2 VARCHAR2(32767);

    v_sheet_name   VARCHAR2(500);

    v_date         VARCHAR2(20);

    v_time         VARCHAR2(20);

    TYPE t_style_tbl IS TABLE OF VARCHAR2(32767) INDEX BY BINARY_INTEGER;

    v_style_tbl t_style_tbl;

  

  BEGIN

  

    v_date := substr(p_creation_date, 1, 10);

    v_time := substr(p_creation_date, 12);

  

    --XML 头信息

    v_common_info1 := '

                     

                      xmlns:o="urn:schemas-microsoft-com:office:office"

                       xmlns:x="urn:schemas-microsoft-com:office:excel"

                       xmlns:ss="urn:schemas-microsoft-com:office:spreadsheet"

                       xmlns:html="http://www.w3.org/TR/REC-html40">

                       

                       ' || p_author ||

                      '

                       ' || p_author ||

                      '

                       ' || v_date || 'T' ||

                      v_time || 'Z

                       ' || p_company_name ||

                      '';

    v_common_info2 := '14.00

                       

                       

                       

                       

                       

                       11250

                       21420

                       120

                       15

                       False

                       False

                       ';

  

    --工作表缺省样式

    v_style_tbl(1) := '

                        //此为模板的默认style

                       

                       

                       

                       

                       

                       

                       

                       

                       

                       

                       

                       

                     ';

    --参数使用的样式

    v_style_tbl(2) := '

                       //此为参数的默认style

                       

                       

                       

                       

                       

                       

                       

                       

                     ';

  

    --报表标题的样式(自动换行)

    v_style_tbl(3) := '

                       //此为报表标题的默认style

                       

                       

                       

                       

                       

                       

                       

                     ';

  

    --列标题的样式(自动换行)

    v_style_tbl(4) := '

                       //此为报表列标题的默认style

                       

                       

                       

                       

                       

                       

                       

                       

                       

                     ';

  

    --普通日期样式

    v_style_tbl(5) := '

                       //此为日期型字段的默认style

                       

                       

                       

                       

                       

                       

                       

                     ';

  

    --高亮日期样式

    v_style_tbl(6) := '

                       //此为日期型字段的带背景色的style(黄色加强显示)

                       

                       

                       

                       

                       

                       

                       

                       

                      ';

  

    --普通会计数值样式

    v_style_tbl(7) := '

                       //此为会计用数值型字段的默认style

                       

                       

                       

                       

                       

                       

                       

                       

                       

                       

                     ';

  

    --高亮会计数值样式

    v_style_tbl(8) := '

                       //此为会计用数值型字段的带背景色的style(黄色加强显示)

                       

                       

                       

                       

                       

                       

                       

                       

                       

                       

                     ';

  

    --常规样式(自动换行)

    v_style_tbl(9) := '

                       //此为普通字段的style

                       

                       

                       

                       

                       

                       

                       

                     ';

  

    --常规高亮样式(自动换行)

    v_style_tbl(10) := '

                         //此为普通字段的的带背景色的style(黄色加强显示)

                         

                           

                           

                           

                           

                           

                           

                           

                         ';

    --会计(4位小数)样式

    v_style_tbl(11) := '

                       //此为会计用数值型字段的默认style(保留4位小数)

                       

                       

                       

                       

                       

                       

                       

                       

                       

                       

                     ';

  

    --会计(4位小数)高亮样式

    v_style_tbl(12) := '

                       //此为会计用数值型字段的带背景色的style(保留4位小数,黄色加强显示)

                       

                       

                       

                       

                       

                       

                       

                       

                       

                       

                     ';

  

  

    --会计样式（两位小数，负数加括号，0显示为'-')

    --样式：999,999,999.00 每三位一个分隔符999,999,999.00，负数用空号包住(123)，如果是零 则是' - '

    v_style_tbl(13) := '                        

                       

                       

                       

                       

                       

                       

                       

                       

                                              

                                               

                        ';

  

    --会计样式（两位小数，负数加括号，0显示为'-', 并用黄色加亮)

    --样式：999,999,999.00 每三位一个分隔符999,999,999.00，负数用空号包住(123)，如果是零 则是' - '

    v_style_tbl(14) := '                        

                       

                       

                       

                       

                       

                       

                       

                       

                       

                                            

                        ';

  

  

    --定义工作表名称

    IF p_report_name IS NULL THEN

      v_sheet_name := '';

    ELSE

      v_sheet_name := '';

    END IF;

  

    --输出XML头

    line(v_common_info1 || v_common_info2);

  

    --输出样式

    FOR i IN 1 .. v_style_tbl.count

    LOOP

      line(v_style_tbl(i));

    END LOOP;

  

    --样式结尾

    line('');

    --工作表名称

    line(v_sheet_name);

  

  

  

  END;

 

  --******************************************************************************

  -- Procedure: 输出XML文件的结尾信息

  -- 版本: 1.0

  -- Author: 刘峰

  --******************************************************************************

  PROCEDURE sheet_end IS

  BEGIN

    line('

             

             

             

             

             

             

             

             

              0

              0

             

             

             

             

              3

              4

             

             

              False

              False

             

           

            ');

  END;

 

 

  --******************************************************************************

  -- Procedure: 表格开始

  -- 版本: 1.0

  -- Author: 刘峰

  --******************************************************************************

  PROCEDURE table_start IS

  BEGIN

    line('');

  END;

 

 

  --******************************************************************************

  -- Procedure: 表格结束

  -- 版本: 1.0

  -- Author: 刘峰

  --******************************************************************************

  PROCEDURE table_end IS

  BEGIN

    line('

');

  END;

 

 

  --******************************************************************************

  -- Procedure: 初始化列宽

  -- 版本: 1.0

  -- Author: 刘峰

  --******************************************************************************

  PROCEDURE define_column(p_width IN NUMBER, p_span IN NUMBER DEFAULT NULL) IS

  BEGIN

    IF p_span IS NULL THEN

      line('');

    ELSE

      line('');

    END IF;

  END;

 

 

  --******************************************************************************

  -- Procedure: 输出报表标题

  -- 版本: 1.0

  -- Author: 刘峰

  -- 说明:   merge: 向右合并 值要比将合并的列小1,比如要合并3列，只需传入2

  --        merge_down: 向下合并

  --******************************************************************************

  PROCEDURE rpt_header(p_text       IN VARCHAR2,

                       p_merge      IN NUMBER DEFAULT NULL,

                       p_merge_down IN NUMBER DEFAULT NULL) IS

    v_merge      VARCHAR2(100);

    v_merge_down VARCHAR2(100);

  BEGIN

    IF p_merge IS NOT NULL

       AND p_merge > 0 THEN

      v_merge := 'ss:MergeAcross="' || p_merge || '"';

    END IF;

    IF p_merge_down IS NOT NULL

       AND p_merge_down > 0 THEN

      v_merge_down := 'ss:MergeDown="' || p_merge_down || '"';

    END IF;

  

    line('

               <cell '="" ||="" v_merge="" v_merge_down="" ||<="" div="">

         'ss:StyleID="s1">' || p_text ||

         '

          ');

  

  

  END;

 

 

  --******************************************************************************

  -- Procedure: 输出报表参数

  -- 版本: 1.0

  -- Author: 刘峰

  -- 说明:   merge：向右合并，值要比将合并的列小1,比如要合并3列，只需传入2

  --        merge_down: 向下合并

  --        index: 单元格的位置(水平第N列)

  --******************************************************************************

  PROCEDURE rpt_parameter(p_text       IN VARCHAR2,

                          p_merge      IN NUMBER DEFAULT NULL,

                          p_merge_down IN NUMBER DEFAULT NULL,

                          p_index      IN NUMBER DEFAULT NULL) IS

  

    v_merge      VARCHAR2(100);

    v_merge_down VARCHAR2(100);

    v_index      VARCHAR2(100);

  

  BEGIN

    IF p_merge IS NOT NULL

       AND p_merge > 0 THEN

      v_merge := 'ss:MergeAcross="' || p_merge || '"';

    END IF;

    IF p_merge_down IS NOT NULL

       AND p_merge_down > 0 THEN

      v_merge_down := 'ss:MergeDown="' || p_merge_down || '"';

    END IF;

    IF p_index IS NOT NULL

       AND p_index > 0 THEN

      v_index := 'ss:Index="' || p_index || '"';

    END IF;

  

    line('<cell '="" ||="" v_index="" v_merge="" v_merge_down="" ||<="" div="">

         'ss:StyleID="m1">' || p_text ||

         '');

  

  END;

 

 

  --******************************************************************************

  -- Procedure: 行开始

  -- 版本: 1.0row_start

  -- Author: 刘峰

  -- 说明：Height : 行高度

  --******************************************************************************

  PROCEDURE row_start(p_height IN NUMBER DEFAULT NULL) IS

    v_height VARCHAR2(100);

  

  BEGIN

    IF p_height IS NOT NULL

       AND p_height > 0 THEN

      v_height := 'ss:Height="' || p_height || '"';

    END IF;

    line('');

  END;

 

 

  --******************************************************************************

  -- Procedure: 行结束

  -- 版本: 1.0

  -- Author: 刘峰

  --******************************************************************************

  PROCEDURE row_end IS

  BEGIN

    line('');

  END;

 

 

  --******************************************************************************

  -- Procedure: 输出列标题

  -- 版本: 1.0

  -- Author: 刘峰

  -- 说明:  merge的值要比将合并的列小1,比如要合并3列，只需传入2

  --        merge_down: 向下合并

  --        index: 单元格的位置(水平第N列)

  --******************************************************************************

  PROCEDURE rpt_title(p_text       IN VARCHAR2,

                      p_merge      IN NUMBER DEFAULT NULL,

                      p_merge_down IN NUMBER DEFAULT NULL,

                      p_index      IN NUMBER DEFAULT NULL) IS

  

    v_merge      VARCHAR2(100);

    v_merge_down VARCHAR2(100);

    v_index      VARCHAR2(100);

    v_wrap       VARCHAR2(100);

  

  BEGIN

  

    IF p_merge IS NOT NULL

       AND p_merge > 0 THEN

      v_merge := 'ss:MergeAcross="' || p_merge || '"';

    END IF;

    IF p_merge_down IS NOT NULL

       AND p_merge_down > 0 THEN

      v_merge_down := 'ss:MergeDown="' || p_merge_down || '"';

    END IF;

    IF p_index IS NOT NULL

       AND p_index > 0 THEN

      v_index := 'ss:Index="' || p_index || '"';

    END IF;

  

    line('<cell '="" ||="" v_index="" v_merge="" v_merge_down="" ||<="" div="">

         'ss:StyleID="s2">' || p_text ||

         '');

  

  END;

 

 

  --******************************************************************************

  -- Procedure: 输出报表明细

  -- 版本: 1.0

  -- Author: 刘峰

  -- 说明: type 包括 String/Number/DateTime, 注意大小写

  --       formula 必须要以=开头

  --       merge的值要比将合并的列小1,比如要合并3列，只需传入2

  --        merge_down: 向下合并

  --        index: 单元格的位置(水平第N列)

  --        array_range: 数组公式

  --******************************************************************************

  PROCEDURE rpt_detail(p_text        IN VARCHAR2 DEFAULT NULL,

                       p_type        IN VARCHAR2 DEFAULT 'String',

                       p_formula     IN VARCHAR2 DEFAULT NULL,

                       p_style.       IN VARCHAR2 DEFAULT NULL,

                       p_merge       IN NUMBER DEFAULT NULL,

                       p_merge_down  IN NUMBER DEFAULT NULL,

                       p_index       IN NUMBER DEFAULT NULL,

                       p_array_range IN BOOLEAN DEFAULT FALSE) IS

  

    v_style.       VARCHAR2(50);

    v_merge       VARCHAR2(50);

    v_type        VARCHAR2(50);

    v_formula     VARCHAR2(30000);

    v_index       VARCHAR2(100);

    v_merge_down  VARCHAR2(100);

    v_array_range VARCHAR2(100);

  

  BEGIN

  

    IF p_type = 'Number' THEN

      v_type := '';

    ELSIF p_type = 'String' THEN

      v_type := '';

    ELSIF p_type = 'DateTime' THEN

      v_type := '';

    END IF;

  

    IF p_formula IS NOT NULL THEN

      v_formula := 'ss:Formula="' || p_formula || '"';

    END IF;

  

    IF p_style. IS NOT NULL THEN

      v_style.:= 'ss:StyleID="' || p_style. '"';

    ELSE

      v_style.:= 'ss:StyleID="s7"'; --常规格式

    END IF;

    IF p_merge IS NOT NULL

       AND p_merge > 0 THEN

      v_merge := 'ss:MergeAcross="' || p_merge || '"';

    END IF;

  

    IF p_merge_down IS NOT NULL

       AND p_merge_down > 0 THEN

      v_merge_down := 'ss:MergeDown="' || p_merge_down || '"';

    END IF;

  

    IF p_index IS NOT NULL

       AND p_index > 0 THEN

      v_index := 'ss:Index="' || p_index || '"';

    END IF;

  

    IF p_array_range THEN

      v_array_range := 'ss:ArrayRange="RC"';

    END IF;

  

    line('<cell '="" ||="" v_index="" v_merge="" v_merge_down="" ||<="" div="">

         v_style. ' ' || v_array_range || ' ' || v_formula || '>' ||

         v_type || p_text || '');

  END;

 

 

 

  --******************************************************************************

  -- Procedure: 示例代码

  -- 版本: 1.0

  -- Author: 刘峰

  --******************************************************************************

  PROCEDURE report_sample(errbuf OUT VARCHAR2, retcode OUT VARCHAR2) IS

  

    g_date_style.     VARCHAR2(10) := 's3'; --普通日期型

    g_date_h_style.   VARCHAR2(10) := 's4'; --高亮日期型

    g_number_style.   VARCHAR2(10) := 's5'; --普通会计数字

    g_number_h_style. VARCHAR2(10) := 's6'; --高亮会计数字

  

    g_normal_h_style. VARCHAR2(10) := 's7'; --通用型

    g_normal_style.   VARCHAR2(10) := 's8'; --高亮通用型

  

    g_number4_style.   VARCHAR2(10) := 's9'; --普通会计数字(保留4位小数)

    g_number4_h_style. VARCHAR2(10) := 's10'; --高亮会计数字(保留4位小数)

  

    v_person VARCHAR2(50);

  BEGIN

  

    --获取提交人名称

    BEGIN

      SELECT t.full_name

        INTO v_person

        FROM per_all_people_f t

       WHERE t.person_id =

             (SELECT fu.employee_id

                FROM fnd_user fu

               WHERE fu.user_id = fnd_global.user_id)

         AND nvl(t.effective_end_date, SYSDATE + 1) > SYSDATE;

    EXCEPTION

      WHEN OTHERS THEN

        SELECT fu.user_name

          INTO v_person

          FROM fnd_user fu

         WHERE fu.user_id = fnd_global.user_id;

    END;

  

    --定义XML头信息

    cux_common_report_util_pkg.sheet_start(p_author        => v_person,

                                           p_creation_date => to_char(SYSDATE,

                                                                      'yyyy-mm-dd hh:mi:ss'),

                                           p_company_name  => 'XXXXXX',

                                           p_report_name   => '测试报表');

  

    --表格开始

    cux_common_report_util_pkg.table_start;

  

    --定义列

    cux_common_report_util_pkg.define_column(150);

    cux_common_report_util_pkg.define_column(150);

    cux_common_report_util_pkg.define_column(150);

    cux_common_report_util_pkg.define_column(150);

    cux_common_report_util_pkg.define_column(150);

    cux_common_report_util_pkg.define_column(150);

    cux_common_report_util_pkg.define_column(150);

    cux_common_report_util_pkg.define_column(150);

    cux_common_report_util_pkg.define_column(150);

    cux_common_report_util_pkg.define_column(150);

  

    --输出报表标题

    cux_common_report_util_pkg.rpt_header('测试报表', 9);

  

    --输出报表参数

    cux_common_report_util_pkg.row_start;

    cux_common_report_util_pkg.rpt_parameter('参数1: WELCOME', 2);

    cux_common_report_util_pkg.rpt_parameter('参数2: HELLO', 2);

    cux_common_report_util_pkg.row_end;

  

    --输出报表列标题

    cux_common_report_util_pkg.row_start;

  

    cux_common_report_util_pkg.rpt_title('普通字符型');

    cux_common_report_util_pkg.rpt_title('高亮字符型');

    cux_common_report_util_pkg.rpt_title('普通数字型');

    cux_common_report_util_pkg.rpt_title('高亮数字型');

    cux_common_report_util_pkg.rpt_title('会计数字型');

    cux_common_report_util_pkg.rpt_title('高亮会计数字型');

    cux_common_report_util_pkg.rpt_title('普通日期型');

    cux_common_report_util_pkg.rpt_title('高亮日期型');

    cux_common_report_util_pkg.rpt_title('普通公式列');

    cux_common_report_util_pkg.rpt_title('高亮公式列');

  

  

    cux_common_report_util_pkg.row_end;

  

    --输出报表明细

    cux_common_report_util_pkg.row_start;

    --字符类型

    cux_common_report_util_pkg.rpt_detail(p_text  => '王小二',

                                          p_type  => 'String',

                                          p_style. => g_normal_style);

    cux_common_report_util_pkg.rpt_detail(p_text  => '男性',

                                          p_type  => 'String',

                                          p_style. => g_normal_h_style);

    --数值类型

    cux_common_report_util_pkg.rpt_detail(p_text  => '1234.345',

                                          p_type  => 'Number',

                                          p_style. => g_normal_style);

    cux_common_report_util_pkg.rpt_detail(p_text  => '345.456',

                                          p_type  => 'Number',

                                          p_style. => g_normal_h_style);

  

    cux_common_report_util_pkg.rpt_detail(p_text  => '34324.345',

                                          p_type  => 'Number',

                                          p_style. => g_number_style);

    cux_common_report_util_pkg.rpt_detail(p_text  => '34324.345',

                                          p_type  => 'Number',

                                          p_style. => g_number_h_style);

    --日期类型

    cux_common_report_util_pkg.rpt_detail(p_text  => to_char(trunc(SYSDATE),

                                                             'yyyy-mm-dd'),

                                          p_type  => 'DateTime',

                                          p_style. => g_date_style);

    cux_common_report_util_pkg.rpt_detail(p_text  => to_char(trunc(SYSDATE),

                                                             'yyyy-mm-dd'),

                                          p_type  => 'DateTime',

                                          p_style. => g_date_h_style);

  

    --公式类型

    cux_common_report_util_pkg.rpt_detail(p_text    => NULL,

                                          p_formula => '=rc[-6]+rc[-5]',

                                          p_type    => 'Number',

                                          p_style.   => g_number_style);

    cux_common_report_util_pkg.rpt_detail(p_text    => NULL,

                                          p_formula => '=rc[-5]+rc[-4]',

                                          p_type    => 'Number',

                                          p_style.   => g_number_h_style);

  

    cux_common_report_util_pkg.row_end;

  

    --表格结束

    cux_common_report_util_pkg.table_end;

  

    --工作表结束

    cux_common_report_util_pkg.sheet_end;

  END;

 

 

 

END cux_common_report_util_pkg;