API实现自动处理物料搬运单

目的：模拟EBS Form界面的功能，调用标准的API实现自动处理物料搬运单。

实现思路：

1.  先创建一个客户化的表，这个表中用来保存物料搬运单的一些信息。

2.  调用标准的API：inv_loc_wms_pub.create_locator动态创建货位(根据项目、任务和库存三个段 来创建)。

3.  调用标准的API：inv_quantity_tree_pub.query_quantities检查某一库存组织的某一子库存下某一物料的现用量和可用量。

4.  调用标准的API：inv_mo_line_detail_util.insert_row在MMTT表中插入一条记录。

5.  调用标准的API：INV_Replenish_Detail_PUB.line_details_pub创建物料搬运单的分配行。

6.  调用标准的API:  inv_trolin_util.query_rows得到物料搬运单行的相关信息。

7.  调用标准的API：INV_PICK_WAVE_PICK_CONFIRM_PUB.Pick_Confirm进行自动挑库确认(处理物料搬运单)。

8.  调用标准的API：inv_mo_line_detail_util.delete_row删除MMTT表中的未处理的记录(如果步骤4中的记录没有被处理)。

9.  更新客户化表的处理状态和错误信息。

10. 将处理的结果进行统计，并使用HTML输出。

 

整个程序包如下：

CREATE OR REPLACE PACKAGE BODY CUX_EDIINT_ITEM_MOVE_IN_PKG IS --自定义预置文件CUX_MO_DEBUG_FLAG：用来判断是否输出调试信息 --fnd_profile.VALUE('CUX_MO_DEBUG_FLAG')为NULL,不输出调试信息,输出错误信息 --fnd_profile.VALUE('CUX_MO_DEBUG_FLAG')为'N',不输出调试信息,输出错误信息 --fnd_profile.VALUE('CUX_MO_DEBUG_FLAG')为'Y', 输出调试信息,输出错误信息 l_mo_debug_falg VARCHAR2(1) := NVL(fnd_profile.VALUE('CUX_MO_DEBUG_FLAG'), 'N'); --日志 PROCEDURE put_log(p_msg IN VARCHAR2) IS BEGIN fnd_file.put_line(fnd_file.log, p_msg); END put_log; --输出 PROCEDURE put_file(p_msg IN VARCHAR2) IS BEGIN fnd_file.put_line(fnd_file.OUTPUT, p_msg); END put_file; /*======================================================= * FUNCTION / PROCEDURE * get_org_count * DESCRIPTION: * 得到本次请求处理(成功或者失败)的物料搬运单的所有OU 数量,0表示不存在，1表示存在。 * ARGUMENT: * p_org_id :OU id * p_process_id :物料搬运单处理状态 * RETURN: * N/A * HISTORY: * 1.00 27/10/2010 cxy =========================================================*/ FUNCTION get_org_count(p_org_id NUMBER, p_process_id NUMBER) RETURN NUMBER IS l_org_count NUMBER; BEGIN SELECT COUNT(1) INTO l_org_count FROM cux_ediint_item_move_in ceimi WHERE ceimi.ou_org_id = p_org_id AND ceimi.process_id = p_process_id AND ceimi.request_id = fnd_global.conc_request_id AND ROWNUM = 1; RETURN l_org_count; EXCEPTION WHEN OTHERS THEN put_log('得到OU关联的处理条数时候出现错误:' || SQLERRM); RETURN NULL; END get_org_count; /*======================================================= * FUNCTION / PROCEDURE * output_move_order_info * DESCRIPTION: * 输出处理信息 * ARGUMENT: * p_line_count ：本次请求处理的记录总数量 * p_line_seccess_count : 本次请求处理成功的记录数量 * RETURN: * N/A * HISTORY: * 1.00 27/10/2010 cxy =========================================================*/ PROCEDURE output_move_order_info(p_line_count IN NUMBER, p_line_success_count IN NUMBER) IS --取出物料搬运单客户化表中的业务实体的信息,不取重复的记录 CURSOR cur_org_info IS SELECT DISTINCT hou.organization_id org_id, --库存组织id hou.name org_name --库存组织名称 FROM cux_ediint_item_move_in ceimi, mtl_txn_request_lines mtrl, mtl_txn_request_headers mtrh, org_organization_definitions ood, hr_operating_units hou WHERE ceimi.line_id = mtrl.line_id AND mtrl.header_id = mtrh.header_id AND ood.organization_id = mtrl.organization_id AND ood.operating_unit = hou.organization_id AND ceimi.request_id = fnd_global.conc_request_id; --处理成功的物料搬运单行信息 CURSOR cur_move_order_success(p_org_id NUMBER) IS SELECT hou.name org_name, --OU名称 ceimi.header_id header_id, --物料搬运单头id mtrh.request_number request_number, --物料搬运单编号 ml.meaning move_order_type_meaning, --物料搬运单类型 ceimi.line_id line_id, --物料搬运单行id mtrl.line_number line_number, --行编号 msib.segment1 item_code, --物料编码 ceimi.transaction_quantity transaction_quantity, --事务处理数量 ood.organization_code organization_code, --库存组织代码 ood.organization_name organization_name, --库存组织名称 mtrl.from_subinventory_code from_subinventory_code, --来源子库存 mtrl.to_subinventory_code to_subinventory_code --目标子库存 FROM cux_ediint_item_move_in ceimi, mtl_txn_request_lines mtrl, mtl_txn_request_headers mtrh, org_organization_definitions ood, hr_operating_units hou, mfg_lookups ml, mtl_system_items_b msib WHERE ceimi.line_id = mtrl.line_id AND mtrl.header_id = mtrh.header_id AND ood.organization_id = mtrl.organization_id AND ood.operating_unit = hou.organization_id AND mtrh.move_order_type = ml.lookup_code AND ml.lookup_type = 'MOVE_ORDER_TYPE' AND msib.organization_id = mtrl.organization_id AND msib.inventory_item_id = mtrl.inventory_item_id AND ceimi.process_id = 4 --处理成功的记录 AND ceimi.request_id = fnd_global.conc_request_id AND hou.organization_id = p_org_id; --出错的物料搬运单行信息 CURSOR cur_move_order_error(p_org_id NUMBER) IS SELECT hou.name org_name, --OU名称 ceimi.header_id header_id, --物料搬运单头id mtrh.request_number request_number, --物料搬运单编号 ml.meaning move_order_type_meaning,--物料搬运单类型 ceimi.line_id line_id, --物料搬运单行id mtrl.line_number line_number, --行编号 msib.segment1 item_code, --物料编码 ceimi.transaction_quantity transaction_quantity, --事务处理数量 ood.organization_code organization_code, --库存组织代码 ood.organization_name organization_name, --库存组织名称 mtrl.from_subinventory_code from_subinventory_code,--来源子库存 mtrl.to_subinventory_code to_subinventory_code, --目标子库存 ceimi.error_message error_message --错误信息 FROM cux_ediint_item_move_in ceimi, mtl_txn_request_lines mtrl, mtl_txn_request_headers mtrh, org_organization_definitions ood, hr_operating_units hou, mfg_lookups ml, mtl_system_items_b msib WHERE ceimi.line_id = mtrl.line_id AND mtrl.header_id = mtrh.header_id AND ood.organization_id = mtrl.organization_id AND ood.operating_unit = hou.organization_id AND mtrh.move_order_type = ml.lookup_code AND ml.lookup_type = 'MOVE_ORDER_TYPE' AND msib.organization_id = mtrl.organization_id AND msib.inventory_item_id = mtrl.inventory_item_id AND ceimi.process_id = 3 --处理失败的记录 AND ceimi.request_id = fnd_global.conc_request_id AND hou.organization_id = p_org_id; l_user_name VARCHAR2(100); --用户名 l_success_index NUMBER; --循环标志 l_error_index NUMBER; --循环标志 l_count NUMBER; --循环标志 l_org_count NUMBER; --循环标志 BEGIN SELECT fu.user_name INTO l_user_name FROM fnd_user fu WHERE fu.user_id = NVL(fnd_global.user_id, -1); put_file(chr(13) || chr(10)); put_file('提交人:' || rpad(l_user_name, 20, ' ')); put_file('报表日期:' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH24:MI:SS')); put_file(chr(13) || chr(10)); put_file('本次处理的总的记录条数为: ' || to_char(p_line_count) || ' 条'); put_file('处理成功的记录条数为: ' || to_char(p_line_success_count) || ' 条'); IF (p_line_count > p_line_success_count) THEN put_file('处理出错的记录条数为: ' || to_char(p_line_count - p_line_success_count) || ' 条'); END IF; put_file(chr(13) || chr(10)); IF p_line_success_count <> 0 THEN put_file('处理成功的物料搬运单'); put_file(lpad('-', 190, '-')); --输出处理成功的物料搬运单的信息 FOR rec_org_info IN cur_org_info LOOP l_org_count := get_org_count(rec_org_info.org_id, 4); IF l_org_count <> 0 THEN put_file('业务实体:' || rec_org_info.org_name); put_file(rpad('-', 190, '-')); put_file(rpad('物料搬运单编号', 30, ' ') || rpad('类型', 20, ' ') || rpad('行号', 20, ' ') || rpad('物料', 40, ' ') || rpad('来源子库存', 20, ' ') || rpad('目标子库存', 20, ' ') || rpad('事务处理数量', 40, ' ')); put_file(chr(13) || chr(10)); END IF; FOR rec_move_order_succes IN cur_move_order_success(rec_org_info.org_id) LOOP put_file(rpad(rec_move_order_succes.request_number, 30, ' ') || rpad(rec_move_order_succes.move_order_type_meaning, 20, ' ') || rpad(rec_move_order_succes.line_number, 20, ' ') || rpad(rec_move_order_succes.item_code, 40, ' ') || rpad(rec_move_order_succes.from_subinventory_code, 20, ' ') || rpad(rec_move_order_succes.to_subinventory_code, 20, ' ') || rpad(rec_move_order_succes.transaction_quantity, 40, ' ')); put_file(chr(13) || chr(10)); END LOOP; --FOR rec_hold_order_info IN cur_hold_order_info LOOP put_file(chr(13) || chr(10)); END LOOP; --FOR rec_org_info IN cur_org_info LOOP put_file(lpad('-', 95, '-') || rpad('-', 95, '-')); END IF; put_file(chr(13) || chr(10)); --输出处理失败的物料搬运单 IF p_line_count - p_line_success_count > 0 THEN put_file('处理出错的物料搬运单'); put_file(lpad('处理出错的', 145, '-') || rpad('物料搬运单', 145, '-')); IF (p_line_count >= p_line_success_count) THEN --如果存在错误的记录 --输出处理成功的物料搬运单的信息 FOR rec_org_info IN cur_org_info LOOP l_org_count := get_org_count(rec_org_info.org_id, 3); IF l_org_count <> 0 THEN put_file('业务实体:' || rec_org_info.org_name); put_file(rpad('-', 290, '-')); put_file(rpad('物料搬运单编号', 30, ' ') || rpad('类型', 20, ' ') || rpad('行号', 20, ' ') || rpad('物料', 40, ' ') || rpad('来源子库存', 20, ' ') || rpad('目标子库存', 20, ' ') || rpad('事务处理数量', 40, ' ') || rpad('错误信息', 100, ' ')); put_file(chr(13) || chr(10)); END IF; FOR rec_move_order_error IN cur_move_order_error(rec_org_info.org_id) LOOP put_file(rpad(rec_move_order_error.request_number, 30, ' ') || rpad(rec_move_order_error.move_order_type_meaning, 20, ' ') || rpad(rec_move_order_error.line_number, 20, ' ') || rpad(rec_move_order_error.item_code, 40, ' ') || rpad(rec_move_order_error.from_subinventory_code, 20, ' ') || rpad(rec_move_order_error.to_subinventory_code, 20, ' ') || rpad(rec_move_order_error.transaction_quantity, 40, ' ') || rpad(rec_move_order_error.error_message, 100, ' ')); put_file(chr(13) || chr(10)); END LOOP; --FOR rec_hold_order_info IN cur_hold_order_info LOOP END LOOP; --FOR rec_org_info IN cur_org_info LOOP END IF; IF p_line_count - p_line_success_count > 0 THEN put_file(lpad('-', 145, '-') || rpad('-', 145, '-')); END IF; END IF; END output_move_order_info; /*======================================================= * FUNCTION / PROCEDURE * get_move_order * DESCRIPTION: * 得到物料搬运单的一条记录(一个物料搬运单头和对应的所有的物表搬运单的行) * ARGUMENT: * x_return_status :状态 * x_msg_count :错误信息数量 * x_msg_data :错误信息 * x_trohdr_rec :物料搬运单头的一行记录 * x_trohdr_val_rec :物料搬运单头的一行记录对应的值 * x_trolin_tbl :一个物料搬运单头对应的所有物料搬运单行 * x_trolin_val_tbl :一个物料搬运单头对应的所有物料搬运单行的值 * p_header_id :物料搬运单头id * RETURN: * N/A * HISTORY: * 1.00 27/10/2010 cxy =========================================================*/ PROCEDURE get_move_order(x_return_status OUT NOCOPY VARCHAR2, x_msg_count OUT NOCOPY NUMBER, x_msg_data OUT NOCOPY VARCHAR2, x_trohdr_rec OUT NOCOPY INV_MOVE_ORDER_PUB.Trohdr_Rec_Type, x_trohdr_val_rec OUT NOCOPY INV_MOVE_ORDER_PUB.Trohdr_Val_Rec_Type, x_trolin_tbl OUT NOCOPY INV_MOVE_ORDER_PUB.Trolin_Tbl_Type, x_trolin_val_tbl OUT NOCOPY INV_MOVE_ORDER_PUB.Trolin_Val_Tbl_Type, p_header_id IN NUMBER) IS BEGIN --调用系统标准的API得到物料搬运单的相关信息 INV_Move_Order_PUB.Get_Move_Order(p_api_version_number => 1.0, p_init_msg_list => fnd_api.G_FALSE, p_return_values => fnd_api.G_FALSE, x_return_status => x_return_status, x_msg_count => x_msg_count, x_msg_data => x_msg_data, p_header_id => p_header_id, p_header => fnd_api.G_MISS_CHAR, x_trohdr_rec => x_trohdr_rec, x_trohdr_val_rec => x_trohdr_val_rec, x_trolin_tbl => x_trolin_tbl, x_trolin_val_tbl => x_trolin_val_tbl); EXCEPTION WHEN OTHERS THEN put_log('得到物料搬运单时出现异常:' || SQLERRM); END get_move_order; /*======================================================= * FUNCTION / PROCEDURE * get_locator_type * DESCRIPTION: * 得到货位控制类型 * ARGUMENT: * p_organization_id :库存组织id * p_secondary_inventory_code:子库存代码 * RETURN: * 货位控制类型 * HISTORY: * 1.00 27/10/2010 cxy =========================================================*/ FUNCTION get_locator_type(p_organization_id IN NUMBER, p_secondary_inventory_code IN VARCHAR2) RETURN NUMBER IS l_locator_type_id NUMBER; --货位控制类型 BEGIN SELECT msi.locator_type INTO l_locator_type_id FROM mtl_secondary_inventories msi WHERE msi.organization_id = p_organization_id AND msi.secondary_inventory_name = p_secondary_inventory_code