plsql内嵌html,一周工作总结：PLSQL+HTML+REPORT

create or replace package XXMFG_QA_010_REPORT_PKG is

/*================================================================*

-- Description:

-- 理化检测明细报表

--

-- Reference:

-- 参考文档

-- Modification History:

-- Date Author Description

-- ------------ ----------------- ---------------------------------------

--

-- 2014-06-03 rojian Created

*================================================================*/

/*================================================================*

| Procedure:

| print_report

|

| Description:

| 理化检测明细报表打印程序

|

|

| In Parameters:

| p_org_id 库存组织

| p_start_date 录入日期自

| p_end_date 录入日期至

| History:

| VER DATE AUTHOR MODIFICATION

| --- --------- ------------- -----------------------------------

| 1 2014-06-03 rojian Created

*=================================================================*/

procedure print_report( errbuf out varchar2,

retcode out varchar2,

p_organization_id number, --组织代码

p_date_s varchar2, --开始时间

p_date_e varchar2 --结束时间

);

PROCEDURE print_html(event VARCHAR2); --打印网页标题头信息

PROCEDURE print_header; --打印总标题

PROCEDURE print_header2; --打印表头

PROCEDURE print_data2( v_id VARCHAR2, --序号

v_item_number VARCHAR2, --理化请验单号

v_department VARCHAR2, --请验单位

v_type VARCHAR2, --请验类型

v_segemnt1 VARCHAR2, --物料

v_description VARCHAR2, --物料说明

v_supplier VARCHAR2, --供应商名称

v_batch VARCHAR2, --批次

v_material VARCHAR2, --材料

v_cllh VARCHAR2 --材料炉号

); --打印理化单信息

PROCEDURE print_material_header(c_ITEM_NUMBER VARCHAR2); --打印材料分析表头

PROCEDURE print_material_data(c_ITEM_NUMBER VARCHAR2); --打印材料分析信息

PROCEDURE print_texture_header(c_ITEM_NUMBER VARCHAR2); --打印金相组织分析表头

PROCEDURE print_texture_data(c_ITEM_NUMBER VARCHAR2); --打印金相组织分析信息

PROCEDURE print_mechanics_header(c_ITEM_NUMBER VARCHAR2); --打印力学性能分析表头

PROCEDURE print_mechanics_data(c_ITEM_NUMBER VARCHAR2); --打印力学性能分析信息

PROCEDURE print_physics_header(c_ITEM_NUMBER VARCHAR2); --打印物理检测分析表头

PROCEDURE print_physics_data(c_ITEM_NUMBER VARCHAR2); --打印物理检测分析信息

PROCEDURE print_clean_header(c_ITEM_NUMBER VARCHAR2); --打印清洁度分析表头

PROCEDURE print_clean_data(c_ITEM_NUMBER VARCHAR2); --打印清洁度分析信息

PROCEDURE print_oil_header(c_ITEM_NUMBER VARCHAR2); --打印油品分析表头

PROCEDURE print_oil_data(c_ITEM_NUMBER VARCHAR2); --打印油品分析信息

PROCEDURE print_trail(v_work_name VARCHAR2); --打印表尾信息

PROCEDURE print_last(v_work_name VARCHAR2); --打印最后一页信息

END;

/

CREATE OR REPLACE PACKAGE BODY XXMFG_QA_010_REPORT_PKG IS

/*================================================================*

-- Description:

-- 理化检测明细报表

--

-- Reference:

-- 参考文档

-- Modification History:

-- Date Author Description

-- ------------ ----------------- ---------------------------------------

--

-- 2014-06-03 rojian Created

*================================================================*/

/*================================================================*

| Procedure:

| print_report

|

| Description:

| 理化检测明细报表打印程序

|

|

| In Parameters:

| p_org_id 库存组织

| p_start_date 录入日期自

| p_end_date 录入日期至

| History:

| VER DATE AUTHOR MODIFICATION

| --- --------- ------------- -----------------------------------

| 1 2014-06-03 rojian Created

*=================================================================*/

--v_row NUMBER := -1;

--v_row_num NUMBER := 0;

--v_je_rows NUMBER := 0; ---总行数

--v_page_rows NUMBER := 10; ---定义每张报表的line数量

--v_page_count NUMBER := 0;

--v_page_width NUMBER := 780; ---745

--v_font_size NUMBER := 3;

--v_font_size1 NUMBER := 6;

--v_font_size0 NUMBER := 2; ---用于内容输出

--v_page NUMBER := 0;

v_print_date VARCHAR2(20); ---打印日期

v_date_s DATE; ---开始日期

v_date_e DATE; ---结束日期

v_page_count NUMBER:=0; --总页数

v_total_rows NUMBER; ---定义报表总的line数量

v_page NUMBER:=1; --当前页

----用于打印网页标题头信息

PROCEDURE print_html(event VARCHAR2) IS

BEGIN

IF event = 'start' THEN

xxfin_xml_print_pub.print_head;

fnd_file.put_line(FND_FILE.OUTPUT,'');

fnd_file.put_line(FND_FILE.OUTPUT,'');

fnd_file.put_line(FND_FILE.OUTPUT,'理化检测明细表');--输入网页标题头信息

fnd_file.put_line(FND_FILE.OUTPUT,'');

fnd_file.put_line(FND_FILE.OUTPUT,'');

fnd_file.put_line(FND_FILE.OUTPUT,'');

END IF;

IF event = 'end' THEN

fnd_file.put_line(FND_FILE.OUTPUT,'

');

fnd_file.put_line(FND_FILE.OUTPUT,'');

END IF;

END;

----用于打印头表信息

PROCEDURE print_header IS--------打印汇总表头信息

BEGIN

-------------打印整个表的标题

FND_FILE.put_line(FND_FILE.OUTPUT,'');

FND_FILE.put_line(FND_FILE.OUTPUT,'

');

FND_FILE.put_line(FND_FILE.OUTPUT,''||to_char(v_date_s,'yyyy')||'年'||to_char(V_DATE_S,'mm')||'月'||to_char(v_date_s,'dd')||'日-'||to_char(v_date_e,'yyyy')||'年'

||to_char(v_date_e,'MM')||'月'||to_char(v_date_e,'DD')||'日理化检测明细表');

FND_FILE.put_line(FND_FILE.OUTPUT,'');

FND_FILE.put_line(FND_FILE.OUTPUT,'');

-------------打印表左上角和右上角的信息

FND_FILE.put_line(FND_FILE.OUTPUT,');

FND_FILE.put_line(FND_FILE.OUTPUT,'

');

FND_FILE.put_line(FND_FILE.OUTPUT,'单位:品质部');---打印制表日期(即表左上角的信息)

FND_FILE.put_line(FND_FILE.OUTPUT,'制表日期:'||V_PRINT_DATE||'');---表头的相关信息(即表右上角的信息)

FND_FILE.put_line(FND_FILE.OUTPUT,'');

FND_FILE.put_line(FND_FILE.OUTPUT,'');

END;

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