EBS价目表设置导入功能（1）-价目表题头

zhaolu

　　使用ORACLE EBS请求API开发价目表的导入功能：
　　1.价目表列表（qp_interface_list_headers）
　　1.1查询价目表题头信息：

--2.1.查询价目表题头信息
lt_headers                     := null;
lt_headers.list_type_code      := 'PRL';
lt_headers.active_flag         := 'Y';
lt_headers.rounding_factor     := -2;
lt_headers.source_lang         := 'ZHS';
lt_headers.language            := 'ZHS';
lt_headers.process_flag        := 'Y';
lt_headers.process_status_flag := 'P';
begin
select qlh.list_header_id,
qlh.name,
qlh.description,
qlh.currency_code,
to_char(qlh.start_date_active, 'YYYY-MM-DD'),
to_char(qlh.end_date_active, 'YYYY-MM-DD'),
qlh.version_no,
qlh.orig_system_header_ref
into lt_headers.list_header_id,
lt_headers.name,
lt_headers.description,
lt_headers.currency_code,
lt_headers.start_date_active,
lt_headers.end_date_active,
lt_headers.version_no,
lt_headers.orig_sys_header_ref
from qp_list_headers qlh
where 1 = 1
and qlh.list_type_code = 'PRL'
and qlh.name like '%外贸%'
and qlh.end_date_active is null
and qlh.active_flag = 'Y'
and qlh.currency_code = c_wm_header.transactional_curr_code
and rownum < 2;
lt_headers.interface_action_code := g_update; --更新
exception
when no_data_found then
lt_headers.interface_action_code := g_insert; --新建
when others then
raise e_exception;
end;
 　　1.2插入价目表题头信息：

insert into qp_interface_list_headers
(orig_sys_header_ref, --1.原始价目表ID
list_type_code, --2.价目表类型
name, --3.价目表名称
description, --4.价目表说明
active_flag, --5.是否启用
currency_code, --6.币种
currency_header, --7.
rounding_factor, --8.舍入位数
source_lang, --9.语言环境
language, --10.语言
start_date_active, --11.有效日期起始
end_date_active, --12.有效日期截止
interface_action_code, --13.操作方式
process_flag, --14.处理标志
process_status_flag, --15.处理状态
list_header_id,
version_no)
values
(prm_header.orig_sys_header_ref, --1.原始价目表ID
prm_header.list_type_code, --2.价目表类型
prm_header.name, --3.价目表名称
prm_header.description, --4.价目表说明
prm_header.active_flag, --5.是否启用
prm_header.currency_code, --6.币种
prm_header.currency_header, --7.
prm_header.rounding_factor, --8.舍入位数
prm_header.source_lang, --9.语言环境
prm_header.language, --10.语言
prm_header.start_date_active, --11.有效日期起始
prm_header.end_date_active, --12.有效日期截止
prm_header.interface_action_code, --13.操作方式
prm_header.process_flag, --14.处理标志
prm_header.process_status_flag, --15.处理状态
prm_header.list_header_id,
to_char(to_number(nvl(prm_header.version_no, 0)) + 1));