--自定义对象
CREATE OR REPLACE TYPE Fas_checksheetinfo_line_obj AS OBJECT
(
CSID_ID
VARCHAR2(32),--报账单明细ID
CSI_ID
VARCHAR2(32),--报账单ID
CSID_GENERATEDATE
DATE, --费用发生日期
CSID_TYPE
VARCHAR2(32),--费用类型
CSID_SUMMARY
VARCHAR2(256),--费用摘要
CSID_CURRENCY
VARCHAR2(32),--币种
CSID_VALUE
NUMBER, --费用发生金额
CREATEDBY
VARCHAR2(32),--生成人
CREATEDDATE
DATE, --生成日期
LASTUPDATEDBY VARCHAR2(32),--最后更改人
LASTUPDATEDDATE DATE,
--最后更改日期
FLAG
VARCHAR2(32),--删除标识
CSID_SEQ
NUMBER --序号
)
自定义 table object
CREATE OR REPLACE TYPE Fas_checksheetinfo_line_tab AS TABLE OF Fas_checksheetinfo_line_obj;
pck
PROCEDURE
checksheet_import(P_CSI_ID
IN VARCHAR2,
--报账单ID
P_CSI_CODE
IN VARCHAR2,
--报账单编号
P_RI_ID
IN VARCHAR2,
--凭证ID
P_CSI_VALUE
IN NUMBER,
--报账单金额
P_CSI_ORG
IN VARCHAR2,
--报账单位
P_CREATEDBY
IN VARCHAR2,
--生成人
P_CREATEDDATE
IN DATE,
--生成日期
P_LASTUPDATEDBY IN
VARCHAR2,
--最后更改人
P_LASTUPDATEDDATE IN
DATE,
--最后更改日期
P_FLAG2
IN VARCHAR2,
--删除标识
P_CSI_TYPE
IN VARCHAR2,
--报账单类型
P_CSI_DEST
IN VARCHAR2,
--目的地
P_CSI_GENERATEDATE IN
DATE,
--费用发生年月
P_CSI_COSTCENTER IN
VARCHAR2,
--成本中心
P_CSI_SUMMARY
IN VARCHAR2,
--摘要
P_CSI_PDFDIR
IN VARCHAR2,
--pdf地址
P_GI_PDFDIR
IN VARCHAR2,
--影像列表pdf地址
p_checksheetinfo_line_tab IN Fas_checksheetinfo_line_tab,
--行信息，嵌套表
----------------输出结果---------------------------
p_flag OUT
NUMBER,
p_msg OUT VARCHAR2) is
v_cheksheet
ei_checksheetinfo%ROWTYPE;
v_cheksheet_line
ei_checksheetinfo_detail%ROWTYPE;
v_line_count number;
begin
null;
p_flag :=
0;
p_msg := ‘success‘;
--插入报账单头信息表
insert into
ei_checksheetinfo
(CSI_ID,
CSI_CODE,
RI_ID,
CSI_VALUE,
CSI_ORG,
CREATEDBY,
CREATEDDATE,
LASTUPDATEDBY,
LASTUPDATEDDATE,
FLAG,
CSI_TYPE,
CSI_DEST,
CSI_GENERATEDATE,
CSI_COSTCENTER,
CSI_SUMMARY,
CSI_PDFDIR,
GI_PDFDIR)
values
(P_CSI_ID,
P_CSI_CODE,
P_RI_ID,
P_CSI_VALUE,
P_CSI_ORG,
P_CREATEDBY,
P_CREATEDDATE,
P_LASTUPDATEDBY,
P_LASTUPDATEDDATE,
P_FLAG,
P_CSI_TYPE,
P_CSI_DEST,
P_CSI_GENERATEDATE,
P_CSI_COSTCENTER,
P_CSI_SUMMARY,
P_CSI_PDFDIR,
P_GI_PDFDIR);
--插入行信息数据
v_line_count := p_checksheetinfo_line_tab.COUNT;
FOR i IN
1 .. v_line_count LOOP
--p_line_errmsg(i).line_number :=
v_invoice_line_info_arr(i).line_number;
insert
into EI_CHECKSHEETINFO_DETAIL
(CSID_ID,
CSI_ID,
CSID_GENERATEDATE,
CSID_TYPE,
CSID_SUMMARY,
CSID_CURRENCY,
CSID_VALUE,
CREATEDBY,
CREATEDDATE,
LASTUPDATEDBY,
LASTUPDATEDDATE,
FLAG,
CSID_SEQ)
values
(p_checksheetinfo_line_tab(i).CSID_ID,
p_checksheetinfo_line_tab(i).CSI_ID,
p_checksheetinfo_line_tab(i).CSID_GENERATEDATE,
p_checksheetinfo_line_tab(i).CSID_TYPE,
p_checksheetinfo_line_tab(i).CSID_SUMMARY,
p_checksheetinfo_line_tab(i).CSID_CURRENCY,
p_checksheetinfo_line_tab(i).CSID_VALUE,
p_checksheetinfo_line_tab(i).CREATEDBY,
p_checksheetinfo_line_tab(i).CREATEDDATE,
p_checksheetinfo_line_tab(i).LASTUPDATEDBY,
p_checksheetinfo_line_tab(i).LASTUPDATEDDATE,
p_checksheetinfo_line_tab(i).FLAG,
p_checksheetinfo_line_tab(i).CSID_SEQ);
END
LOOP;
commit;
EXCEPTION
WHEN OTHERS THEN
p_flag :=
101;
p_msg := SQLERRM;
end
checksheet_import;
测试脚本
declare
checksheetinfo_line_tab
Fas_checksheetinfo_line_tab;
p_flag
number;
p_msg
varchar2(200);
begin
--插入主表
--插入行表
checksheetinfo_line_tab :=
Fas_checksheetinfo_line_tab();
checksheetinfo_line_tab.extend;
checksheetinfo_line_tab(1) :=
Fas_checksheetinfo_line_obj(CSID_ID
=>
11,
CSI_ID =>
1,
CSID_GENERATEDATE =>
sysdate,
CSID_TYPE =>
11,
CSID_SUMMARY =>
11,
CSID_CURRENCY =>
11,
CSID_VALUE =>
11,
CREATEDBY =>
11,
CREATEDDATE =>
sysdate,
LASTUPDATEDBY =>
11,
LASTUPDATEDDATE =>
sysdate,
FLAG
=>
11,
CSID_SEQ =>
11);
--调用过程
fas_checksheet_pkg.checksheet_import(1,
1,
1,
1,
1,
1,
sysdate,
1,
sysdate,
1,
1,
1,
sysdate,
1,
1,
1,
1,
checksheetinfo_line_tab,
p_flag,
p_msg);
--打印调用结果
dbms_output.put_line(‘p_flag:‘
|| p_flag || ‘,p_msg:‘ || p_msg);
end;