EBS-新增和更新价目表行

新增和更新价目表行

--目的：在已有的价目表头基础上，添加行信息

--限制：该api有些问题。假设强制添加头信息。会有非常多问题，所以该样例仅仅是在已有头信息基础上，添加行信息

--须要手动传參的部分：见凝视

--注意事项：无需模拟登陆

DECLARE

p_list_header_id NUMBER(10 );

p_inventory_item_id NUMBER(10 );

p_product_uom_code VARCHAR2(50 );

p_primary_uom_flag VARCHAR2(50 );

p_operand NUMBER(10 );

p_start_active_date DATE;

p_end_active_date DATE;

x_return_status VARCHAR2(10 );

x_msg_count NUMBER(10 );

x_msg_data VARCHAR2(2000 );

l_price_list_rec qp_price_list_pub.price_list_rec_type;

l_price_list_line_tbl qp_price_list_pub.price_list_line_tbl_type;

l_pricing_attr_tbl qp_price_list_pub.pricing_attr_tbl_type;

x_price_list_rec qp_price_list_pub.price_list_rec_type;

x_price_list_val_rec qp_price_list_pub.price_list_val_rec_type;

x_price_list_line_tbl qp_price_list_pub.price_list_line_tbl_type;

x_price_list_line_val_tbl qp_price_list_pub.price_list_line_val_tbl_type;

x_qualifiers_tbl qp_qualifier_rules_pub.qualifiers_tbl_type;

x_qualifiers_val_tbl qp_qualifier_rules_pub.qualifiers_val_tbl_type;

x_pricing_attr_tbl qp_price_list_pub.pricing_attr_tbl_type;

x_pricing_attr_val_tbl qp_price_list_pub.pricing_attr_val_tbl_type;

BEGIN

l_price_list_rec.list_header_id := p_list_header_id; -- 业务实体 + 价目表名称确定

l_price_list_rec.list_type_code := 'PRL'; --
固定

l_price_list_rec.operation := qp_globals.g_opr_update; --固定

l_price_list_line_tbl( 1).list_header_id
:= p_list_header_id; -- 业务实体 + 价目表名称确定

l_price_list_line_tbl( 1).list_line_id
:= fnd_api.g_miss_num;

l_price_list_line_tbl( 1).list_line_type_code
:= 'PLL' ; -- 固定

l_price_list_line_tbl( 1).operation
:= qp_globals.g_opr_create; -- 固定

l_price_list_line_tbl( 1).operand
:= p_operand; -- 值

l_price_list_line_tbl( 1).arithmetic_operator
:= 'UNIT_PRICE' ; -- 固定

l_price_list_line_tbl( 1).start_date_active
:= p_start_active_date; -- 直接传入起始日期

l_price_list_line_tbl( 1).end_date_active
:= p_end_active_date; -- 直接传入截止日期

l_price_list_line_tbl( 1).organization_id
:= NULL ; -- 直接传空

l_price_list_line_tbl( 1).primary_uom_flag
:= p_primary_uom_flag; --------依据主要单位直接传入

/* l_price_list_line_tbl(1).end_date_active := '24-12-2013'; --直接传入varchar 截止日期

l_pricing_attr_tbl( 1).pricing_attribute_id
:= fnd_api.g_miss_num;

l_pricing_attr_tbl( 1).list_line_id
:= fnd_api.g_miss_num;

l_pricing_attr_tbl( 1).product_attribute_context
:= 'ITEM' ; -- 固定

l_pricing_attr_tbl( 1).product_attribute
:= 'PRICING_ATTRIBUTE1' ; --固定

l_pricing_attr_tbl( 1).product_attr_value
:= p_inventory_item_id; -- 传入 inventory_item_id

l_pricing_attr_tbl( 1).product_uom_code
:= p_product_uom_code; --直接传入单位

l_pricing_attr_tbl( 1).excluder_flag
:= 'N' ; -- ？临时固定

l_pricing_attr_tbl( 1).attribute_grouping_no
:= 1 ; --固定

l_pricing_attr_tbl( 1).price_list_line_index
:= 1 ; --固定

l_pricing_attr_tbl( 1).operation
:= qp_globals.g_opr_create; -- 固定

qp_price_list_pub.process_price_list(p_api_version_number => 1,

p_init_msg_list => fnd_api.g_true,

p_return_values => fnd_api.g_false,

p_commit => fnd_api.g_false,

x_return_status => x_return_status,

x_msg_count => x_msg_count,

x_msg_data => x_msg_data,

p_price_list_rec => l_price_list_rec,

p_price_list_line_tbl => l_price_list_line_tbl,

p_pricing_attr_tbl => l_pricing_attr_tbl,

x_price_list_rec => x_price_list_rec,

x_price_list_val_rec => x_price_list_val_rec,

x_price_list_line_tbl => x_price_list_line_tbl,

x_qualifiers_tbl => x_qualifiers_tbl,

x_qualifiers_val_tbl => x_qualifiers_val_tbl,

x_pricing_attr_tbl => x_pricing_attr_tbl,

x_pricing_attr_val_tbl => x_pricing_attr_val_tbl,

x_price_list_line_val_tbl => x_price_list_line_val_tbl);

IF x_return_status = fnd_api.g_ret_sts_success THEN

dbms_output.put_line( 'x_return_status:' ||
x_return_status);

dbms_output.put_line( '新增成功');

ELSE

dbms_output.put_line( 'x_return_status:' ||
x_return_status);

dbms_output.put_line( '新增出错');

END IF;

END;

巴特西

EBS-新增和更新价目表行

最新文章

热门文章