偶的PL/SQL报表程序格式

纵横四海

在ERP的报表开发中，可以用PL/SQL和Report开发，我在公司做过N个报表，90％的报表都是用PL/SQL开发的，PL/SQL功能强大，灵活处理。经过一段时间的总结我总结可用PL/SQL开发报表的一些经验，现在分享给大家。

1.一个报表一个PL/SQL包，包名的命名规范为 cux_ar01_report(其中cux为客户化开发，ar01为AR模块中的第一个报表，Report代表第一个报表）
2.在print函数中进行输出。
3.cursor的定义放在包体的最前面。
4.do函数为该函数的入口地址
5.屏蔽不在包体外调用的函数声明。
6.入口函数的特点为：前两个的定义必须为errbuf OUT VARCHAR2, retcode OUT NUMBER，否则报错。

procedure do(errbuf OUT VARCHAR2, retcode OUT NUMBER);
create or replace package cux_other01_report is
  -- Author  : Wanjun Hu
  -- Created : 2004-7-9 下午 01:44:57
  -- Purpose : other01 用户，职责表
  procedure do(errbuf OUT VARCHAR2, retcode OUT NUMBER);
end cux_other01_report;
create or replace package body cux_other01_report is
  cursor cursor_user_role is
    select c.user_name           as login_name,
           d.full_name           as employee_name,
           f.name                as department_name,
           a.user_id             as user_id,
           a.responsibility_id   as responsibility_id,
           b.RESPONSIBILITY_NAME as RESPONSIBILITY_NAME
      from FND_USER_RESP_GROUPS         a,
           FND_RESPONSIBILITY_VL        b,
           fnd_user                     c,
           hr_employees                 d,
           per_assignments_f            e,
           hr_all_organization_units_tl f
     where a.user_id = c.user_id
       and c.employee_id = d.employee_id
       and c.employee_id = e.PERSON_ID
       and e.ORGANIZATION_ID = f.organization_id
       and a.responsibility_id = b.RESPONSIBILITY_ID
       and sysdate > e.EFFECTIVE_START_DATE
       and sysdate < e.EFFECTIVE_END_DATE
     order by c.description, c.user_name, a.responsibility_id
   
    ;
  -- Author  : Wanjun Hu
  -- Created : 2004-8-24 下午 01:47:23
  -- Purpose : 在控制台输出和在报表中输出
  procedure print(content varchar2) is
  begin
    dbms_output.put_line(content);
    fnd_file.put_line(fnd_file.output, content);
  end print;
  procedure do(errbuf OUT VARCHAR2, retcode OUT NUMBER) is
    p_row_cursor_user_role cursor_user_role%rowtype;
  begin
  
    open cursor_user_role;
    loop
      --循环
      fetch cursor_user_role
        into p_row_cursor_user_role;
      EXIT WHEN cursor_user_role%NOTFOUND OR cursor_user_role%NOTFOUND IS NULL;
      print(p_row_cursor_user_role.login_name || ',' ||
            replace(p_row_cursor_user_role.employee_name, ',', '') || ',' ||
            p_row_cursor_user_role.department_name || ',' ||
            p_row_cursor_user_role.user_id || ',' ||
            p_row_cursor_user_role.responsibility_id || ',' ||
            p_row_cursor_user_role.RESPONSIBILITY_NAME);
   
    end loop;
  
    close cursor_user_role;
  
  end do;
end cux_other01_report;


[upload=pck]viewFile.asp?ID=4[/upload]

zhouwg

我也是用pl/sql开发报表，很少用report

luocaiquan

有些复杂的东东，还是得用report

lidl

学习一下，难怪那些顾问都没有写report了，明白一些了。

szleejun

顶一下，想问一下，我用以上的方式可以输入HTML格式和文本格式的报表，在owa_util.mime_header('application/vnd.ms-excel',true)，输入EXCEL报表时出错，不知道是什么原因？

szleejun

有谁知道解决办法吗？自己顶一下！

纵横四海

以下是引用szleejun在2005-6-30 14:07:59的发言：

顶一下，想问一下，我用以上的方式可以输入HTML格式和文本格式的报表，在owa_util.mime_header('application/vnd.ms-excel',true)，输入EXCEL报表时出错，不知道是什么原因？

输出以逗号分割的csv文件就能用excel打开阿。

szleejun

以下是引用纵横四海在2005-7-2 11:29:07的发言：
输出以逗号分割的csv文件就能用excel打开阿。
&gt;

没错这样可以，但是用户在使用的时候必须先保存成TXT文件，然后在用EXCEL打开。我想在报表输入的时候，真接用EXCEL打开。（如ERP中的导出功能，导出TSV文件时，可直接供用户保存，或打开那样的效果）

[此贴子已经被作者于2005-7-2 18:15:10编辑过]

foxmile

1# 纵横四海
熟悉一下

sharpidd

我都是不用report开发的,都是用PL/SQL做成HTML格式输出!这样的报表灵活性大,report太死板了,很多报表没法做到!

印度阿三

我也是用pl/sql开发报表，很少用report
================================
很显然你开发的报表电子档的居多套表的很少

yzmlovexm

report学习中

xinsnowq

我想问一下，erp forms是用pkg建立的，现在想在forms上加一个打印按钮，点击之后将数据输出到report报表上，可pkg里的sql语句是包含变量的，不能用来建report吧？
那我怎么用forms里的数据建report，？
公司要求，可以帮忙吗？

julie2010

..................

kelvenjp

都报表啊.我这咋只做CSV呢.

jcg1984

很好，很实用

qinghai_527

在学习 pl/sql来开发报表
刚刚开始。。。。。

smallcat

谢谢谢谢享

pb04

来看看，复习复习！！！

huangxiaopeng8

很好，很实用