新增和更新价目表行 --目的：在已有的价目表头基础上，增加行信息 --限制：该api有些问题，如果强制增加头信息，会有很多问题，所以该例子只是在已有头信息基础上，增加行信息 --需要手动传参的部分：见注释 --注意事项：无需模拟登陆 DECLARE p_list_header_
新增和更新价目表行
--目的：在已有的价目表头基础上，增加行信息 --限制：该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;
