新增和更新价目表行
--目的：在已有的价目表头基础上，增加行信息--限制：该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;