EBS 采购订单入库
1. 采购订单入库表
1.1. 表
| 表名 |
说明 |
| rcv_headers_interface |
接收单头表 |
| rcv_transactions_interface |
接收行表、接收事务、库存事务 |
| mtl_transaction_lots_interface |
批次信息 |
| mtl_serial_numbers_interface |
序列信息 |
| mtl_supply |
包括了所有可以接收入库的记录 |
| rcv_transaction |
已经接收入库的事物处理记 |
| rcv_shipment_headers |
发运头表 |
| rcv_shipment_lines |
发运行表 |
| po_interface_errors |
错误信息表 |
1.2. 关联关系
rcv_headers_interface.header_interface_id :=rcv_transactions_interface.header_interface_id
rcv_transactions_interface. interface_transaction_id
= mtl_transaction_lots_interface interface_transaction_id rcv_transactions_interface. interface_transaction_id = mtl_serial_numbers_interface. interface_transaction_idrcv_transactions_interface. interface_transaction_id = po_interface_errors. interface_transaction_id 2. 采购订单入库
2.1 脚本
（该脚本12.2.6亲测可用）
| DECLARE g_group_id NUMBER :=rcv_interface_groups_s.nextval; g_creation_date DATE:=SYSDATE; g_created_by NUMBER:= fnd_global.user_id; g_last_updated_by NUMBER:= fnd_global.user_id; g_last_update_date DATE:=SYSDATE; g_last_update_login NUMBER:= fnd_global.login_id;
l_request_id NUMBER; l_request_flag BOOLEAN; l_phase VARCHAR2(30); l_dev_status VARCHAR2(30); l_status VARCHAR2(20); l_dev_phase VARCHAR2(200); l_message VARCHAR2(2000);
l_header_iface rcv_headers_interface%ROWTYPE; l_trx_iface rcv_transactions_interface%ROWTYPE; l_rcv_lots_interface mtl_transaction_lots_interface%ROWTYPE; BEGIN fnd_global.apps_initialize(user_id =>1170,--fnd_global.user_id, resp_id =>50838,--fnd_global.resp_id, resp_appl_id =>20004);--fnd_global.resp_appl_id); mo_global.init('PO'); mo_global.set_policy_context('S',101);
l_header_iface.last_update_date := g_last_update_date; l_header_iface.last_updated_by := g_last_updated_by; l_header_iface.last_update_login := g_last_update_login; l_header_iface.creation_date := g_creation_date; l_header_iface.created_by := g_created_by;
l_trx_iface.last_update_date := g_last_update_date; l_trx_iface.last_updated_by := g_last_updated_by; l_trx_iface.creation_date := g_creation_date; l_trx_iface.created_by := g_created_by; l_trx_iface.last_update_login := g_last_update_login;
l_rcv_lots_interface.last_update_date := g_last_update_date; l_rcv_lots_interface.last_updated_by := g_last_updated_by; l_rcv_lots_interface.creation_date := g_creation_date; l_rcv_lots_interface.created_by := g_created_by; l_rcv_lots_interface.last_update_login := g_last_update_login;
--FOR c_header IN cur_header LOOP SELECT po.rcv_headers_interface_s.nextval INTO l_header_iface.header_interface_id FROM dual; l_header_iface.processing_status_code :='PENDING'; l_header_iface.receipt_source_code :='VENDOR'; l_header_iface.transaction_type :='NEW'; l_header_iface.auto_transact_code :='RECEIVE'; l_header_iface.receipt_num :=NULL;--接收编号,可自动生成 l_header_iface.shipment_num :='10120170424004';--发运编号 l_header_iface.vendor_id := 1;--供应商 l_header_iface.vendor_site_id :=5001; -- 供应商地点 l_header_iface.org_id :=101; --业务实体 l_header_iface.comments :='菱商发运采购订单入库('||10120170424004||')';--备注，会写到发运行 l_header_iface.expected_receipt_date :=SYSDATE; --接收日期 l_header_iface.validation_flag :='Y'; l_header_iface.group_id := g_group_id;--组编号 l_header_iface.ship_to_organization_id :=123; /* SELECT l.ship_to_organization_id INTO l_header_iface.ship_to_organization_id FROM po_line_locations_all l WHERE l.po_header_id = c_header.po_header_id AND rownum = 1;*/
INSERTINTO rcv_headers_interface VALUES l_header_iface;
-- FOR c_line IN cur_line(c_header.po_num) LOOP SELECT rcv_transactions_interface_s.nextval INTO l_trx_iface.interface_transaction_id FROM dual; --直接入库 l_trx_iface.transaction_type :='RECEIVE'; l_trx_iface.auto_transact_code :='DELIVER'; l_trx_iface.destination_type_code :='INVENTORY';
l_trx_iface.processing_status_code :='PENDING'; l_trx_iface.processing_mode_code :='BATCH'; l_trx_iface.transaction_status_code :='PENDING'; l_trx_iface.receipt_source_code :='VENDOR'; l_trx_iface.validation_flag :='Y';
l_trx_iface.header_interface_id := l_header_iface.header_interface_id; l_trx_iface.vendor_id :=1;--供应商 l_trx_iface.vendor_site_id :=5001;--供应商地点 l_trx_iface.source_document_code :='PO';--来源 l_trx_iface.po_header_id :=4105;--采购订单头表ID l_trx_iface.po_line_id :=6105;--采购订单行表ID l_trx_iface.po_line_location_id :=5124;--定位表ID l_trx_iface.po_distribution_id :=5078;--分配表ID l_trx_iface.po_release_id :=NULL;-- l_trx_iface.category_id :=5125;--物料类型 l_trx_iface.item_id :=7001; --物料ID l_trx_iface.item_description := '低值医疗耗材测试';--物料描述 l_trx_iface.group_id := g_group_id; --组编号 l_trx_iface.transaction_date :=SYSDATE; --接收日期 l_trx_iface.expected_receipt_date :=SYSDATE;--需要日期
l_trx_iface.unit_of_measure :='盒';--单位（注意不是code） l_trx_iface.use_mtl_lot :=2;--物料如果按批次，必须赋值2 l_trx_iface.quantity := 0; --数量 l_trx_iface.primary_quantity := 0;--主数量 l_trx_iface.to_organization_id :=123; -- 接收组织ID l_trx_iface.ship_to_location_id := 142;--接收地址ID l_trx_iface.interface_source_code :='RCV';--来源 l_trx_iface.comments :='PO 菱商发运接收'; --会写到发运行表 l_trx_iface.subinventory :='JIH_test01';--子库存 l_trx_iface.inspection_status_code :='NOT INSPECTED'; --不检查 --批 -- FOR c_lot IN cur_lot(c_header.po_num,c_line.po_line_num) LOOP SELECT mtl_material_transactions_s.nextval INTO l_rcv_lots_interface.transaction_interface_id FROM dual; l_rcv_lots_interface.product_code :='RCV'; l_rcv_lots_interface.product_transaction_id := l_trx_iface.interface_transaction_id; l_rcv_lots_interface.lot_number :='2017042405';--批次号 l_rcv_lots_interface.transaction_quantity :=100; --数量 l_rcv_lots_interface.primary_quantity :=100; --主数量 l_trx_iface.quantity := 100; l_trx_iface.primary_quantity := 100; INSERTINTO mtl_transaction_lots_interface VALUES l_rcv_lots_interface; -- END LOOP; INSERTINTO rcv_transactions_interface VALUES l_trx_iface; -- END LOOP; --END LOOP; dbms_output.put_line('g_group_id :='||g_group_id); l_request_id := fnd_request.submit_request(application =>'PO', program =>'RVCTP', sub_request =>FALSE, argument1 =>'BATCH', argument2 => g_group_id); IF l_request_id >0THEN dbms_output.put_line('l_request_id :='||l_request_id); COMMIT; l_request_flag := fnd_concurrent.wait_for_request(request_id => l_request_id, INTERVAL =>5, phase => l_phase, status => l_status, dev_phase => l_dev_phase, dev_status => l_dev_status, message => l_message); IF l_request_flag THEN IF l_dev_status ='NORMAL'THEN --对于未成功的，回写错误消息 FOR error_rec IN(SELECT poe.error_message, rti.po_header_id, rti.po_line_id FROM po_interface_errors poe, rcv_transactions_interface rti WHERE poe.interface_line_id = rti.interface_transaction_id AND rti.group_id = g_group_id) LOOP dbms_output.put_line('错误消息 :='|| error_rec.error_message); ENDLOOP; ELSE dbms_output.put_line('Exceptions happen during execution of the request(request id:'|| l_request_id ||').'); ENDIF; ELSE dbms_output.put_line('The request has not been finished yet and the result is unknown.'); ENDIF; ELSE dbms_output.put_line('Fail to submit request to process data in interface.'); ENDIF; END; |
脚本运行结果：
2.2 入库注意事项
2.2.1 入库方式
Oracle提供了三种可选的入库方式(在PO订单分配行界面维护)：
1． 直接入库：接收后自动入库；
2． 标准入库：接收后，进行入库动作，才完成最终入库；
3． 要求检验的入库：接收后，进行检验，打印检验通过标记后，才能进行入库动作。
对于这三种接收入库，接口表通过不同的控制字段来完成期望的接收入库动作：
a) 对于直接入库的接收，插接收事务处理的接口行表(rcv_transactions_interface)时的几个关键的状态字段：
rcv_transactions_interface.transaction_type := 'RECEIVE';
rcv_transactions_interface.auto_transact_code := 'DELIVER';
rcv_transactions_interface.destination_type_code := 'INVENTORY';
b) 对于标准以及需检验的入库的接收，插接收事务处理的接口行表(rcv_transactions_interface)时的几个关键的状态字段：
rcv_transactions_interface.transaction_type := 'RECEIVE';
rcv_transactions_interface.auto_transact_code := NULL;
rcv_transactions_interface.destination_type_code := ' RECEIVING ';
c) 对于接收甚至检验后的数据做入库时，插接收事务处理的接口行表(rcv_transactions_interface)时的几个关键的状态字段：
rcv_transactions_interface.transaction_type := 'DELIVER';
rcv_transactions_interface.auto_transact_code := NULL;
rcv_transactions_interface.destination_type_code := 'INVENTORY';
2.2.2 序列
上脚本根据开发需要只到批次号，到序列脚本入下
|
rcv_transactions_interface.use_mtl_serial :=2; --如果有序列号，必须为2 mtl_serial_numbers_interface.last_update_date := g_last_update_date; mtl_serial_numbers_interface.last_updated_by := g_last_updated_by; mtl_serial_numbers_interface.creation_date := g_creation_date; mtl_serial_numbers_interface.created_by := g_last_updated_by; mtl_serial_numbers_interface.last_update_login := g_last_update_login; mtl_serial_numbers_interface.product_code :='RCV'; mtl_serial_numbers_interface.fm_serial_number :=serial_number; mtl_serial_numbers_interface.to_serial_number :=serial_number; mtl_serial_numbers_interface.process_flag :=1; mtl_serial_numbers_interface.product_transaction_id := l_iface_rcv_rec.interface_transaction_id; SELECT mtl_material_transactions_s.nextval INTO mtl_serial_numbers_interface.transaction_interface_id FROM dual;
INSERTINTO mtl_serial_numbers_interface VALUES mtl_serial_numbers_interface; |
2.2.3 数量
要注意数量的，如果有批次号，行接口表的主数量必定要是序列行主数量的总和，数量必须要是批次行的数据综合，否则会报错：
主数量和数量之间的区别：对于一个物料A，如果他的主要单位是‘个’（mtl_system_items_b表中primary_unit_of_measure），现在发运了10盒，1盒相当于12个(单位的换算关系请见mtl_uom_class_conversions)，那么数量是10，主数量是120。