EBS价目表设置导入功能（2）-价目表行

来源：互联网发布：mac 实用软件编辑：程序博客网时间：2024/05/16 00:43

2.价目表行（qp_interface_list_lines）

2.1查询价目表行信息

Sql代码

--2.2.查询价目信息
begin
select qlh.list_header_id, qll.list_line_id
into lt_lines.list_header_id, lt_lines.list_line_id
from mtl_system_items_b msi, qp_pricing_attributes qpa, qp_list_lines qll, qp_list_headers qlh
where msi.organization_id = 102
and msi.inventory_item_id = qpa.product_attr_value
and qpa.pricing_phase_id = 1
and qpa.qualification_ind = 4
and qpa.product_attribute_context = 'ITEM'
and qpa.list_line_id = qll.list_line_id
and qpa.list_header_id = qll.list_header_id
and qll.list_line_type_code = 'PLL'
and qll.list_header_id = qlh.list_header_id
and qlh.active_flag = 'Y'
and qlh.list_type_code = 'PRL'
and qlh.end_date_active is null
and qlh.name like '%外贸%'
and qlh.currency_code = c_wm_lines.transactional_curr_code
and upper(msi.segment1) = upper(c_wm_lines.segment1)
and rownum < 2;
lt_lines.interface_action_code := g_update; --更新
exception
when no_data_found then
lt_lines.interface_action_code := g_insert; --创建
when others then
raise e_exception;
end;
lt_lines.orig_sys_line_ref := 'L_M_' || to_char(c_wm_lines.moss_price_id);
lt_lines.orig_sys_header_ref := prm_header.orig_sys_header_ref;
lt_lines.list_line_type_code := 'PLL';
--lt_lines.start_date_active := c_wm_lines.start_date_active;
lt_lines.start_date_active := l_current_date;
lt_lines.arithmetic_operator := 'UNIT_PRICE';
lt_lines.operand := c_wm_lines.invoice_price;
lt_lines.primary_uom_flag := 'Y';
lt_lines.product_precedence := 220;
lt_lines.process_flag := 'Y';
lt_lines.process_status_flag := 'P';

2.2插入价目表行

Sql代码