Oracle EBS更新销售订单行信息API
2015-02-13 00:23
423 查看
更新销售订单行信息
[align=left]DECLARE[/align]
[align=left] l_header_rec oe_order_pub.header_rec_type;[/align]
[align=left] l_line_tbl oe_order_pub.line_tbl_type;[/align]
[align=left] l_line_tb2 oe_order_pub.line_tbl_type;[/align]
[align=left] l_action_request_tbl oe_order_pub.request_tbl_type;[/align]
[align=left] l_return_status VARCHAR2(1000 );[/align]
[align=left] l_msg_count NUMBER;[/align]
[align=left] l_msg_data VARCHAR2(1000 );[/align]
[align=left] v_line_number VARCHAR2(1000 );[/align]
[align=left] l_index VARCHAR2(1000 );[/align]
[align=left] x_header_val_rec oe_order_pub.header_val_rec_type;[/align]
[align=left] x_header_adj_tbl oe_order_pub.header_adj_tbl_type;[/align]
[align=left] x_header_adj_val_tbl oe_order_pub.header_adj_val_tbl_type;[/align]
[align=left] x_header_price_att_tbl oe_order_pub.header_price_att_tbl_type;[/align]
[align=left] x_header_adj_att_tbl oe_order_pub.header_adj_att_tbl_type;[/align]
[align=left] x_header_adj_assoc_tbl oe_order_pub.header_adj_assoc_tbl_type;[/align]
[align=left] x_header_scredit_tbl oe_order_pub.header_scredit_tbl_type;[/align]
[align=left] x_header_scredit_val_tbl oe_order_pub.header_scredit_val_tbl_type;[/align]
[align=left] x_line_val_tbl oe_order_pub.line_val_tbl_type;[/align]
[align=left] x_line_adj_tbl oe_order_pub.line_adj_tbl_type;[/align]
[align=left] x_line_adj_val_tbl oe_order_pub.line_adj_val_tbl_type;[/align]
[align=left] x_line_price_att_tbl oe_order_pub.line_price_att_tbl_type;[/align]
[align=left] x_line_adj_att_tbl oe_order_pub.line_adj_att_tbl_type;[/align]
[align=left] x_line_adj_assoc_tbl oe_order_pub.line_adj_assoc_tbl_type;[/align]
[align=left] x_line_scredit_tbl oe_order_pub.line_scredit_tbl_type;[/align]
[align=left] x_line_scredit_val_tbl oe_order_pub.line_scredit_val_tbl_type;[/align]
[align=left] x_lot_serial_tbl oe_order_pub.lot_serial_tbl_type;[/align]
[align=left] x_lot_serial_val_tbl oe_order_pub.lot_serial_val_tbl_type;[/align]
[align=left]BEGIN[/align]
[align=left] fnd_global.apps_initialize(user_id => 1190,[/align]
[align=left] resp_id => 50786,[/align]
[align=left] resp_appl_id => 20003);[/align]
[align=left] mo_global.init( 'ONT'); --r12的安全机制,必须初始化否则报错[/align]
[align=left] oe_msg_pub.initialize;[/align]
[align=left] oe_debug_pub.initialize;[/align]
[align=left] oe_debug_pub.debug_on;[/align]
[align=left] oe_debug_pub.setdebuglevel( 5);[/align]
--mo_global.set_policy_context('S',
1497); --貌似也不需要
[align=left] l_header_rec := oe_order_pub.g_miss_header_rec;[/align]
[align=left] --不需要[/align]
[align=left] l_header_rec.header_id := 101449; --501010000051[/align]
[align=left] l_header_rec.operation := oe_globals.g_opr_update;[/align]
l_line_tbl(1)
:= oe_order_pub.g_miss_line_rec;
l_line_tbl(1).line_id
:= 112362;
l_line_tbl(1).operation
:= oe_globals.g_opr_update;
l_line_tbl(1).ship_tolerance_below
:= 0;
--dbms_output.put_line('l_line_tbl:'
|| l_line_tbl(1).open_flag);
[align=left] oe_order_pub.process_order(p_api_version_number => 1.0,[/align]
[align=left] p_init_msg_list => fnd_api.g_false,[/align]
[align=left] p_return_values => fnd_api.g_false,[/align]
[align=left] p_action_commit => fnd_api.g_false,[/align]
[align=left] x_return_status => l_return_status,[/align]
[align=left] x_msg_count => l_msg_count,[/align]
[align=left] x_msg_data => l_msg_data,[/align]
[align=left] p_header_rec => l_header_rec,[/align]
[align=left] p_line_tbl => l_line_tbl, --就是这里[/align]
[align=left] p_action_request_tbl => l_action_request_tbl,[/align]
[align=left] x_header_rec => l_header_rec,[/align]
[align=left] x_header_val_rec => x_header_val_rec,[/align]
[align=left] x_header_adj_tbl => x_header_adj_tbl,[/align]
[align=left] x_header_adj_val_tbl => x_header_adj_val_tbl,[/align]
[align=left] x_header_price_att_tbl => x_header_price_att_tbl,[/align]
[align=left] x_header_adj_att_tbl => x_header_adj_att_tbl,[/align]
[align=left] x_header_adj_assoc_tbl => x_header_adj_assoc_tbl,[/align]
[align=left] x_header_scredit_tbl => x_header_scredit_tbl,[/align]
[align=left] x_header_scredit_val_tbl => x_header_scredit_val_tbl,[/align]
[align=left] x_line_tbl => l_line_tb2, --r11中这里跟p_line_tbl是一样的[/align]
[align=left] x_line_val_tbl => x_line_val_tbl,[/align]
[align=left] x_line_adj_tbl => x_line_adj_tbl,[/align]
[align=left] x_line_adj_val_tbl => x_line_adj_val_tbl,[/align]
[align=left] x_line_price_att_tbl => x_line_price_att_tbl,[/align]
[align=left] x_line_adj_att_tbl => x_line_adj_att_tbl,[/align]
[align=left] x_line_adj_assoc_tbl => x_line_adj_assoc_tbl,[/align]
[align=left] x_line_scredit_tbl => x_line_scredit_tbl,[/align]
[align=left] x_line_scredit_val_tbl => x_line_scredit_val_tbl,[/align]
[align=left] x_lot_serial_tbl => x_lot_serial_tbl,[/align]
[align=left] x_lot_serial_val_tbl => x_lot_serial_val_tbl,[/align]
[align=left] x_action_request_tbl => l_action_request_tbl);[/align]
dbms_output.put_line( 'l_index:' ||
l_index || 'l_msg_data1:' ||
[align=left] l_msg_data);[/align]
IF l_msg_count
> 0 THEN
FOR l_index IN 1 ..
l_msg_count LOOP
[align=left] l_msg_data := oe_msg_pub.get(p_msg_index => l_index, p_encoded => 'F');[/align]
[align=left] END LOOP ;[/align]
[align=left] END IF;[/align]
dbms_output.put_line( 'l_index:' ||
l_index || 'l_msg_data:' ||
[align=left] l_msg_data);[/align]
IF l_return_status
= fnd_api.g_ret_sts_success THEN
[align=left] dbms_output.put_line( 'OK');[/align]
[align=left] --COMMIT;[/align]
[align=left] ELSE[/align]
[align=left] dbms_output.put_line( 'Failed');[/align]
[align=left] ROLLBACK;[/align]
[align=left] END IF;[/align]
[align=left] --COMMIT;[/align]
[align=left]
[/align]
[align=left]END;[/align]
更新销售订单行信息
[align=left]DECLARE[/align]
[align=left] l_header_rec oe_order_pub.header_rec_type;[/align]
[align=left] l_line_tbl oe_order_pub.line_tbl_type;[/align]
[align=left] l_line_tb2 oe_order_pub.line_tbl_type;[/align]
[align=left] l_action_request_tbl oe_order_pub.request_tbl_type;[/align]
[align=left] l_return_status VARCHAR2(1000 );[/align]
[align=left] l_msg_count NUMBER;[/align]
[align=left] l_msg_data VARCHAR2(1000 );[/align]
[align=left] v_line_number VARCHAR2(1000 );[/align]
[align=left] l_index VARCHAR2(1000 );[/align]
[align=left] x_header_val_rec oe_order_pub.header_val_rec_type;[/align]
[align=left] x_header_adj_tbl oe_order_pub.header_adj_tbl_type;[/align]
[align=left] x_header_adj_val_tbl oe_order_pub.header_adj_val_tbl_type;[/align]
[align=left] x_header_price_att_tbl oe_order_pub.header_price_att_tbl_type;[/align]
[align=left] x_header_adj_att_tbl oe_order_pub.header_adj_att_tbl_type;[/align]
[align=left] x_header_adj_assoc_tbl oe_order_pub.header_adj_assoc_tbl_type;[/align]
[align=left] x_header_scredit_tbl oe_order_pub.header_scredit_tbl_type;[/align]
[align=left] x_header_scredit_val_tbl oe_order_pub.header_scredit_val_tbl_type;[/align]
[align=left] x_line_val_tbl oe_order_pub.line_val_tbl_type;[/align]
[align=left] x_line_adj_tbl oe_order_pub.line_adj_tbl_type;[/align]
[align=left] x_line_adj_val_tbl oe_order_pub.line_adj_val_tbl_type;[/align]
[align=left] x_line_price_att_tbl oe_order_pub.line_price_att_tbl_type;[/align]
[align=left] x_line_adj_att_tbl oe_order_pub.line_adj_att_tbl_type;[/align]
[align=left] x_line_adj_assoc_tbl oe_order_pub.line_adj_assoc_tbl_type;[/align]
[align=left] x_line_scredit_tbl oe_order_pub.line_scredit_tbl_type;[/align]
[align=left] x_line_scredit_val_tbl oe_order_pub.line_scredit_val_tbl_type;[/align]
[align=left] x_lot_serial_tbl oe_order_pub.lot_serial_tbl_type;[/align]
[align=left] x_lot_serial_val_tbl oe_order_pub.lot_serial_val_tbl_type;[/align]
[align=left]BEGIN[/align]
[align=left] fnd_global.apps_initialize(user_id => 1190,[/align]
[align=left] resp_id => 50786,[/align]
[align=left] resp_appl_id => 20003);[/align]
[align=left] mo_global.init( 'ONT'); --r12的安全机制,必须初始化否则报错[/align]
[align=left] oe_msg_pub.initialize;[/align]
[align=left] oe_debug_pub.initialize;[/align]
[align=left] oe_debug_pub.debug_on;[/align]
[align=left] oe_debug_pub.setdebuglevel( 5);[/align]
--mo_global.set_policy_context('S',
1497); --貌似也不需要
[align=left] l_header_rec := oe_order_pub.g_miss_header_rec;[/align]
[align=left] --不需要[/align]
[align=left] l_header_rec.header_id := 101449; --501010000051[/align]
[align=left] l_header_rec.operation := oe_globals.g_opr_update;[/align]
l_line_tbl(1)
:= oe_order_pub.g_miss_line_rec;
l_line_tbl(1).line_id
:= 112362;
l_line_tbl(1).operation
:= oe_globals.g_opr_update;
l_line_tbl(1).ship_tolerance_below
:= 0;
--dbms_output.put_line('l_line_tbl:'
|| l_line_tbl(1).open_flag);
[align=left] oe_order_pub.process_order(p_api_version_number => 1.0,[/align]
[align=left] p_init_msg_list => fnd_api.g_false,[/align]
[align=left] p_return_values => fnd_api.g_false,[/align]
[align=left] p_action_commit => fnd_api.g_false,[/align]
[align=left] x_return_status => l_return_status,[/align]
[align=left] x_msg_count => l_msg_count,[/align]
[align=left] x_msg_data => l_msg_data,[/align]
[align=left] p_header_rec => l_header_rec,[/align]
[align=left] p_line_tbl => l_line_tbl, --就是这里[/align]
[align=left] p_action_request_tbl => l_action_request_tbl,[/align]
[align=left] x_header_rec => l_header_rec,[/align]
[align=left] x_header_val_rec => x_header_val_rec,[/align]
[align=left] x_header_adj_tbl => x_header_adj_tbl,[/align]
[align=left] x_header_adj_val_tbl => x_header_adj_val_tbl,[/align]
[align=left] x_header_price_att_tbl => x_header_price_att_tbl,[/align]
[align=left] x_header_adj_att_tbl => x_header_adj_att_tbl,[/align]
[align=left] x_header_adj_assoc_tbl => x_header_adj_assoc_tbl,[/align]
[align=left] x_header_scredit_tbl => x_header_scredit_tbl,[/align]
[align=left] x_header_scredit_val_tbl => x_header_scredit_val_tbl,[/align]
[align=left] x_line_tbl => l_line_tb2, --r11中这里跟p_line_tbl是一样的[/align]
[align=left] x_line_val_tbl => x_line_val_tbl,[/align]
[align=left] x_line_adj_tbl => x_line_adj_tbl,[/align]
[align=left] x_line_adj_val_tbl => x_line_adj_val_tbl,[/align]
[align=left] x_line_price_att_tbl => x_line_price_att_tbl,[/align]
[align=left] x_line_adj_att_tbl => x_line_adj_att_tbl,[/align]
[align=left] x_line_adj_assoc_tbl => x_line_adj_assoc_tbl,[/align]
[align=left] x_line_scredit_tbl => x_line_scredit_tbl,[/align]
[align=left] x_line_scredit_val_tbl => x_line_scredit_val_tbl,[/align]
[align=left] x_lot_serial_tbl => x_lot_serial_tbl,[/align]
[align=left] x_lot_serial_val_tbl => x_lot_serial_val_tbl,[/align]
[align=left] x_action_request_tbl => l_action_request_tbl);[/align]
dbms_output.put_line( 'l_index:' ||
l_index || 'l_msg_data1:' ||
[align=left] l_msg_data);[/align]
IF l_msg_count
> 0 THEN
FOR l_index IN 1 ..
l_msg_count LOOP
[align=left] l_msg_data := oe_msg_pub.get(p_msg_index => l_index, p_encoded => 'F');[/align]
[align=left] END LOOP ;[/align]
[align=left] END IF;[/align]
dbms_output.put_line( 'l_index:' ||
l_index || 'l_msg_data:' ||
[align=left] l_msg_data);[/align]
IF l_return_status
= fnd_api.g_ret_sts_success THEN
[align=left] dbms_output.put_line( 'OK');[/align]
[align=left] --COMMIT;[/align]
[align=left] ELSE[/align]
[align=left] dbms_output.put_line( 'Failed');[/align]
[align=left] ROLLBACK;[/align]
[align=left] END IF;[/align]
[align=left] --COMMIT;[/align]
[align=left]
[/align]
[align=left]END;[/align]
相关文章推荐
- Oracle EBS Interface/API(2)--销售订单释放暂挂(Sales Order Release Holds)
- API更新销售订单行Demo
- ORACLE EBS 销售订单(RMA) 开发接口案例
- Oracle EBS Interface/API(3)--采购订单审批
- Oracle EBS-SQL (MRP-3):检查例外信息查询_建议取消_采购订单.sql
- Oracle EBS PO API po_change_api1_s.update_po修改PO行信息
- Oracle EBS 销售订单导出到Excel问题
- ORACLE EBS Sales Order销售订单【Open Interface、Open API】
- Oracle - EBS: API@Interface
- Oracle 2张表关联更新表信息的四个SQL
- ebs 11i 订单相关表结构学习及销售到出仓所经历的表
- 有關更新Java 至UPDATE 45 後出現沒法進入ORACLE EBS
- oracle 更新统计信息
- oracle重建、更新索引、索引统计信息命令
- EBS销售订单挑库发放处理程序
- oracle重建、更新索引、索引统计信息命令
- oracle ebs r12 合同模块取销售人员信息
- Oracle 2张表关联更新表信息的四个SQL
- Oracle EBS订单的流程(Order->AR)
- EBS销售订单挑库发放处理程序