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

    使用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));