目的：模拟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;
- RETURN l_locator_type_id;
- EXCEPTION
- WHEN NO_DATA_FOUND THEN
- RETURN NULL;
- WHEN TOO_MANY_ROWS THEN
- put_log('得到货位控制类型时返回的多个行!');
- WHEN OTHERS THEN
- put_log('得到货位控制类型时出现异常:' || SQLERRM);
- END get_locator_type;
- /*=======================================================
- * FUNCTION / PROCEDURE
- * create_locator
- * DESCRIPTION:
- * 自动创建货位
- * ARGUMENT:
- * x_return_status :状态
- * x_msg_count :错误信息数量
- * x_msg_data :错误信息
- * x_locator_id :货位id
- * x_locator_exists :是否存在货位
- * p_organization_id :库存组织id
- * p_subinventory_code :子库存代码
- * p_project_id :项目id
- * p_task_id :任务id
- * p_locator_type :货位类型
- * RETURN:
- * N/A
- * HISTORY:
- * 1.00 27/10/2010 cxy
- =========================================================*/
- PROCEDURE create_locator(x_return_status OUT NOCOPY VARCHAR2,
- x_msg_count OUT NOCOPY NUMBER,
- x_msg_data OUT NOCOPY VARCHAR2,
- x_locator_id OUT NUMBER,
- x_locator_exists OUT VARCHAR2,
- p_organization_id IN NUMBER,
- p_subinventory_code IN VARCHAR2,
- p_project_id IN NUMBER,
- p_task_id IN NUMBER,
- p_locator_type IN NUMBER) IS
- l_segment_delimiter VARCHAR2(1); --键弹性域段分隔符
- l_concatenated_segments VARCHAR2(100); --库存货位组合
- l_project_number VARCHAR2(25); --项目编号
- l_task_number VARCHAR2(25); --任务编号
- l_user_id NUMBER; --登录的用户
- l_resp_id NUMBER; --职位id
- l_resp_appl_id NUMBER; --职责应用id
- BEGIN
- --设置MFG_ORGANIZATION_ID预置文件的值
- fnd_profile.put('MFG_ORGANIZATION_ID', p_organization_id);
- --得到段分隔符
- SELECT fifs.concatenated_segment_delimiter
- INTO l_segment_delimiter
- FROM fnd_id_flex_structures fifs
- WHERE fifs.id_flex_structure_code = 'STOCK_LOCATORS';
- --得到项目编号
- SELECT ppa.segment1
- INTO l_project_number
- FROM pa_projects_all ppa
- WHERE ppa.project_id = p_project_id;
- --得到任务编号
- SELECT pt.task_number
- INTO l_task_number
- FROM pa_tasks pt
- WHERE pt.task_id = p_task_id;
- --拼接子库存货位组合
- IF l_mo_debug_falg = 'Y' THEN
- --输出调试信息
- put_log('库存组织id:' || p_organization_id);
- put_log('货位类型:' || p_locator_type);
- put_log('子库存:' || p_subinventory_code);
- END IF;
- l_concatenated_segments := p_subinventory_code || l_segment_delimiter ||
- l_project_number || l_segment_delimiter ||
- l_task_number;
- IF l_mo_debug_falg = 'Y' THEN--输出调试信息
- put_log('弹性域组合:' || l_concatenated_segments);
- END IF;
- --调用API自动创建货位
- inv_loc_wms_pub.create_locator(x_return_status => x_return_status,
- x_msg_count => x_msg_count,
- x_msg_data => x_msg_data,
- x_inventory_location_id => x_locator_id,
- x_locator_exists => x_locator_exists,
- p_organization_id => p_organization_id,
- p_organization_code => NULL,
- p_concatenated_segments => l_concatenated_segments,
- p_description => NULL,
- p_inventory_location_type => p_locator_type,
- p_picking_order => NULL,
- p_location_maximum_units => NULL,
- p_subinventory_code => p_subinventory_code,
- p_location_weight_uom_code => NULL,
- p_max_weight => NULL,
- p_volume_uom_code => NULL,
- p_max_cubic_area => NULL,
- p_x_coordinate => NULL,
- p_y_coordinate => NULL,
- p_z_coordinate => NULL,
- p_physical_location_id => NULL,
- p_pick_uom_code => NULL,
- p_dimension_uom_code => NULL,
- p_length => NULL,
- p_width => NULL,
- p_height => NULL,
- p_status_id => NULL,
- p_dropping_order => NULL);
- IF l_mo_debug_falg = 'Y' THEN--输出调试信息
- put_log('自动生成的货位返回状态:' || x_return_status);
- put_log('自动生成的货位错误条数:' || x_msg_count);
- put_log('自动生成的货位错误信息:' || x_msg_data);
- put_log('自动生成的货位id为:' || x_locator_id);
- END IF;
- IF x_locator_id IS NULL THEN
- put_log('自动创建货位时出错:' || x_msg_data);
- END IF;
- EXCEPTION
- WHEN OTHERS THEN
- put_log('自动创建货位时出现异常:' || SQLERRM);
- END create_locator;
- /*=======================================================
- * FUNCTION / PROCEDURE
- * check_and_create_locator
- * DESCRIPTION:
- * 检查和生成货位
- * ARGUMENT:
- * x_return_status :状态
- * x_msg_count :错误信息数量
- * x_msg_data :错误信息
- * x_locator_type :货位类型
- * x_from_locator_id :来源货位id
- * x_to_locator_id :目标货位id
- * p_trolin_rec :物料搬运单行的一行记录
- * RETURN:
- * N/A
- * HISTORY:
- * 1.00 27/10/2010 cxy
- =========================================================*/
- PROCEDURE check_and_create_locator(x_return_status OUT VARCHAR2,
- x_msg_data OUT VARCHAR2,
- x_locator_type OUT VARCHAR2,
- x_from_locator_id OUT NUMBER,
- x_to_locator_id OUT NUMBER,
- p_trolin_rec IN INV_MOVE_ORDER_PUB.Trolin_Rec_Type) IS
- l_from_inv_locator_type NUMBER; --源子库存的货位控制类型
- l_to_inv_locator_type NUMBER; --目标子库存的货位控制类型
- x_msg_count NUMBER; --错误信息数
- x_locator_id NUMBER; --货位id
- x_locator_exists VARCHAR2(1); --货位是否存在标志
- BEGIN
- --来源子库存的货位控制类型
- l_from_inv_locator_type := get_locator_type(p_trolin_rec.organization_id,
- p_trolin_rec.from_subinventory_code);
- --目标子库存的货位控制类型
- l_to_inv_locator_type := get_locator_type(p_trolin_rec.organization_id,
- p_trolin_rec.to_subinventory_code);
- IF l_mo_debug_falg = 'Y' THEN--输出调试信息
- put_log(p_trolin_rec.from_subinventory_code || '的来源字库货位类型为:' ||
- l_from_inv_locator_type);
- put_log(p_trolin_rec.to_subinventory_code || '的来源字库货位类型为:' ||
- l_to_inv_locator_type);
- END IF;
- IF l_from_inv_locator_type = l_to_inv_locator_type THEN
- IF l_from_inv_locator_type <> 0 THEN--启用了货位控制
- x_locator_type := l_from_inv_locator_type;
- IF p_trolin_rec.from_locator_id IS NOT NULL THEN --货位不为空
- x_return_status := fnd_api.G_RET_STS_SUCCESS;
- x_from_locator_id := p_trolin_rec.from_locator_id;
- ELSE--货位为空
- --自动创建货位(源库存货位)
- create_locator(x_return_status => x_return_status,
- x_msg_count => x_msg_count,
- x_msg_data => x_msg_data,
- x_locator_id => x_from_locator_id,
- x_locator_exists => x_locator_exists,
- p_organization_id => p_trolin_rec.organization_id,
- p_subinventory_code => p_trolin_rec.from_subinventory_code,
- p_project_id => p_trolin_rec.project_id,
- p_task_id => p_trolin_rec.task_id,
- p_locator_type => x_locator_type);
- IF l_mo_debug_falg = 'Y' THEN--输出调试信息
- put_log('x_return_status:' || x_return_status);
- put_log('x_msg_count:' || x_msg_count);
- put_log('x_msg_data:' || x_msg_data);
- put_log('x_from_locator_id:' || x_from_locator_id);
- put_log('x_locator_exists:' || x_locator_exists);
- END IF;
- IF x_from_locator_id IS NULL THEN
- x_msg_data := '自动创建货位时错误异常,请确认是否已经包含子库存、项目和任务的信息';
- END IF;
- END IF;
- ELSE--未启用货位控制
- x_locator_type := 0;
- END IF;
- IF l_to_inv_locator_type <> 0 THEN --启用了货位控制
- x_locator_type := l_to_inv_locator_type;
- IF p_trolin_rec.to_locator_id IS NOT NULL THEN--货位不为空
- x_return_status := fnd_api.G_RET_STS_SUCCESS;
- x_to_locator_id := p_trolin_rec.to_locator_id;
- ELSE--货位为空
- --自动创建货位(目标库存货位)
- create_locator(x_return_status => x_return_status,
- x_msg_count => x_msg_count,
- x_msg_data => x_msg_data,
- x_locator_id => x_to_locator_id,
- x_locator_exists => x_locator_exists,
- p_organization_id => p_trolin_rec.organization_id,
- p_subinventory_code => p_trolin_rec.to_subinventory_code,
- p_project_id => p_trolin_rec.project_id,
- p_task_id => p_trolin_rec.task_id,
- p_locator_type => x_locator_type);
- IF x_from_locator_id IS NULL THEN
- x_msg_data := '自动创建货位时错误异常,请确认是否已经包含子库存、项目和任务的信息';
- END IF;
- END IF;
- ELSE --未启用货位控制
- x_locator_type := 0;
- END IF;
- ELSE
- put_log('源子库存和目标子库存的货位控制类型不一致:');
- END IF;
- EXCEPTION
- WHEN OTHERS THEN
- put_log('检查和生成货位时出现异常:' || SQLERRM);
- END check_and_create_locator;
- /*=======================================================
- * FUNCTION / PROCEDURE
- * validate_subinv_quantity
- * DESCRIPTION:
- * 验证子库存的现用量和可用量
- * ARGUMENT:
- * x_return_status :状态
- * x_msg_count :错误信息数量
- * x_msg_data :错误信息
- * p_trolin_rec :物料搬运单行的一行记录
- * p_transaction_quantity :事务处理数量
- * p_transaction_date :事务处理日期
- * RETURN:
- * N/A
- * HISTORY:
- * 1.00 27/10/2010 cxy
- =========================================================*/
- PROCEDURE validate_subinv_quantity(x_return_status OUT NOCOPY VARCHAR2,
- x_msg_count OUT NOCOPY NUMBER,
- x_msg_data OUT NOCOPY VARCHAR2,
- p_trolin_rec IN INV_MOVE_ORDER_PUB.Trolin_Rec_Type,
- p_transaction_quantity IN NUMBER,
- p_transaction_date IN DATE) IS
- x_qoh NUMBER; --quantity on hand
- x_rqoh NUMBER; --reservable quantity on hand
- x_qr NUMBER; --quantity reserved
- x_qs NUMBER; --quantity suggested
- x_att NUMBER; --available to transact
- x_atr NUMBER := 0; --available to reserve
- x_sqoh NUMBER; --secondary quantity on hand -- invConv change
- x_srqoh NUMBER; --secondary reservable quantity on hand -- invConv change
- x_sqr NUMBER; --secondary quantity reserved -- invConv change
- x_sqs NUMBER; --secondare quantity suggested -- invConv change
- x_satt NUMBER; --secondary available to transact -- invConv change
- x_satr NUMBER; --secondary available to reserve -- invConv change
- l_lot_control_flag BOOLEAN := FALSE;
- l_organization_code VARCHAR2(3); --库存组织代码
- l_item_code VARCHAR2(40); --物料代码
- x_locator_type VARCHAR2(60); --货位控制类型
- x_from_locator_id NUMBER; --来源货位
- x_to_locator_id NUMBER; --目标货位
- l_locator_id NUMBER; --子库存的货位
- BEGIN
- --得到库存代码
- SELECT mp.organization_code
- INTO l_organization_code
- FROM mtl_parameters mp
- WHERE mp.organization_id = p_trolin_rec.organization_id;
- --得到物料代码
- SELECT msib.segment1
- INTO l_item_code
- FROM mtl_system_items_b msib
- WHERE msib.organization_id = p_trolin_rec.organization_id
- AND msib.inventory_item_id = p_trolin_rec.inventory_item_id;
- --调用系统的api检查某一库存组织某一字库的某一个物料的现有量、可用量等数量
- inv_quantity_tree_pub.query_quantities(p_api_version_number => 1.0,
- x_return_status => x_return_status,
- x_msg_count => x_msg_count,
- x_msg_data => x_msg_data,
- p_organization_id => p_trolin_rec.organization_id, --库存组织
- p_inventory_item_id => p_trolin_rec.inventory_item_id, --item id
- p_tree_mode => 2,
- p_is_revision_control => FALSE,
- p_is_lot_control => l_lot_control_flag, --是否启用批次控制
- p_lot_expiration_date => p_transaction_date, --事务处理数量
- p_is_serial_control => FALSE,
- p_grade_code => NULL, -- INVCONV NOT NEEDED NOW
- p_revision => NULL, --版本号
- p_lot_number => NULL, --批次控制
- p_subinventory_code => p_trolin_rec.from_subinventory_code, --来源子库存代码
- p_locator_id => NULL, --货位id
- x_qoh => x_qoh, --现有量
- x_rqoh => x_rqoh, --现有包流量
- x_qr => x_qr, --保留量
- x_qs => x_qs, --建议保留量
- x_att => x_att, --可处理数量
- x_atr => x_atr, --保留量
- x_sqoh => x_sqoh, -- INVCONV
- x_srqoh => x_srqoh, -- INVCONV
- x_sqr => x_sqr, -- INVCONV
- x_sqs => x_sqs, -- INVCONV
- x_satt => x_satt, -- INVCONV
- x_satr => x_satr); -- INVCONV
- IF l_mo_debug_falg = 'Y' THEN
- --输出调试信息
- put_log('得到的库存现用量的状态为:' || x_return_status);
- put_log('得到的库存现用量为:' || x_atr);
- END IF;
- IF x_atr <= 0 THEN
- x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR;
- x_msg_data := '库存组织 ' || l_organization_code || ' 的子库存 ' ||
- p_trolin_rec.from_subinventory_code || ' 中物料 ' ||
- l_item_code || ' 的可用量为' || x_atr;
- RETURN;
- END IF;
- --检查并创建货位
- check_and_create_locator(x_return_status => x_return_status,
- x_msg_data => x_msg_data,
- x_locator_type => x_locator_type,
- x_from_locator_id => x_from_locator_id,
- x_to_locator_id => x_to_locator_id,
- p_trolin_rec => p_trolin_rec);
- IF x_locator_type <> 0 THEN
- l_locator_id := x_from_locator_id;
- ELSE
- l_locator_id := NULL;
- END IF;
- IF x_return_status IS NULL THEN
- x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR;
- x_msg_data := x_msg_data;
- RETURN;
- END IF;
- --调用系统的api检查某一库存组织某一字库的某一个物料的现有量、可用量等数量
- x_qoh := NULL;
- x_rqoh := NULL;
- x_qr := NULL;
- x_qs := NULL;
- x_att := NULL;
- x_atr := NULL;
- x_sqoh := NULL;
- x_srqoh := NULL;
- x_sqr := NULL;
- x_sqs := NULL;
- x_satt := NULL;
- x_satr := NULL;
- --调用API得到库存下的物料的现用量和可用量
- inv_quantity_tree_pub.query_quantities(p_api_version_number => 1.0,
- x_return_status => x_return_status,
- x_msg_count => x_msg_count,
- x_msg_data => x_msg_data,
- p_organization_id => p_trolin_rec.organization_id, --库存组织
- p_inventory_item_id => p_trolin_rec.inventory_item_id, --item id
- p_tree_mode => 2,
- p_is_revision_control => FALSE,
- p_is_lot_control => l_lot_control_flag, --是否启用批次控制
- p_lot_expiration_date => p_transaction_date, --事务处理数量
- p_is_serial_control => FALSE,
- p_grade_code => NULL, -- INVCONV NOT NEEDED NOW
- p_revision => NULL, --版本号
- p_lot_number => NULL, --批次控制
- p_subinventory_code => p_trolin_rec.from_subinventory_code, --来源子库存代码
- p_locator_id => l_locator_id, --货位id
- x_qoh => x_qoh, --现有量
- x_rqoh => x_rqoh, --现有包流量
- x_qr => x_qr, --保留量
- x_qs => x_qs, --建议保留量
- x_att => x_att, --可处理数量
- x_atr => x_atr, --保留量
- x_sqoh => x_sqoh, -- INVCONV
- x_srqoh => x_srqoh, -- INVCONV
- x_sqr => x_sqr, -- INVCONV
- x_sqs => x_sqs, -- INVCONV
- x_satt => x_satt, -- INVCONV
- x_satr => x_satr); -- INVCONV
- IF l_mo_debug_falg = 'Y' THEN
- --输出调试信息
- put_log('库存组织');
- END IF;
- IF x_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
- x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR;
- x_msg_data := '获取 库存组织 ' || l_organization_code || ' 的子库存 ' ||
- p_trolin_rec.from_subinventory_code || ' 中物料 ' ||
- l_item_code || ' 的可用量时出现异常!';
- END IF;
- IF l_mo_debug_falg = 'Y' THEN
- --输出调试信息
- put_log('得到的库存现用量的状态为:' || x_return_status);
- put_log('得到的库存现用量为:' || x_atr);
- END IF;
- IF x_atr <= 0 THEN
- x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR;
- x_msg_data := '库存组织 ' || l_organization_code || ' 的子库存 ' ||
- p_trolin_rec.from_subinventory_code || ' 中物料 ' ||
- l_item_code || ' 的可用量为 ' || x_atr;
- END IF;
- IF x_atr <> 0 AND x_atr < p_transaction_quantity THEN
- x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR;
- x_msg_data := '库存组织 ' || l_organization_code || ' 的子库存 ' ||
- p_trolin_rec.from_subinventory_code || ' 中物料 ' ||
- l_item_code || ' 的可用量 ' || x_atr || ' 小于处理数量 ' ||
- p_transaction_quantity;
- END IF;
- EXCEPTION
- WHEN OTHERS THEN
- put_log('检查库存的现用量和可用量时出现异常:' || SQLERRM);
- END validate_subinv_quantity;
- /*=======================================================
- * FUNCTION / PROCEDURE
- * validate_data
- * DESCRIPTION:
- * 验证客户化临时表的数据
- * ARGUMENT:
- * x_return_status :状态
- * x_msg_count :错误信息数量
- * x_msg_data :错误信息
- * p_trolin_rec :物料搬运单行的一行记录
- * p_line_id :物料搬运单行id
- * p_transaction_quantity :事务处理数量
- * p_transaction_date :事务处理日期
- * RETURN:
- * N/A
- * HISTORY:
- * 1.00 27/10/2010 cxy
- =========================================================*/
- PROCEDURE validate_data(x_return_status OUT NOCOPY VARCHAR2,
- x_msg_count OUT NOCOPY NUMBER,
- x_msg_data OUT NOCOPY VARCHAR2,
- p_trolin_rec IN INV_MOVE_ORDER_PUB.Trolin_Rec_Type,
- p_line_id IN NUMBER,
- p_transaction_quantity IN NUMBER,
- p_transaction_date IN DATE) IS
- l_error_flag VARCHAR2(1) := 'N'; --错误标志
- l_error_message VARCHAR2(1000) := NULL;--错误信息
- BEGIN
- --初始化
- l_error_flag := 'N';
- IF p_trolin_rec.quantity <> p_transaction_quantity THEN
- --接口中的数量和EBS系统中的剩余的数量不一致
- l_error_flag := 'Y';
- l_error_message := '接口中的数量' || p_transaction_quantity ||
- '与EBS系统中的剩余的数量' || p_trolin_rec.quantity || '不一致';
- GOTO end_error;
- END IF;
- --检查并验证库存的现用量和可用量
- validate_subinv_quantity(x_return_status => x_return_status,
- x_msg_count => x_msg_count,
- x_msg_data => x_msg_data,
- p_trolin_rec => p_trolin_rec,
- p_transaction_quantity => p_transaction_quantity,
- p_transaction_date => p_transaction_date);
- IF x_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
- x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR;
- RETURN;
- END IF;
- NULL; --添加一个可执行语句，防止GOTO语句出错
- <<end_error>>
- IF l_error_flag = 'N' THEN
- x_return_status := fnd_api.G_RET_STS_SUCCESS;
- ELSE
- x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR;
- x_msg_count := 1;
- x_msg_data := l_error_message;
- END IF;
- EXCEPTION
- WHEN OTHERS THEN
- put_log('进行数据有效性验证时出现异常:' || SQLERRM);
- END validate_data;
- /*=======================================================
- * FUNCTION / PROCEDURE
- * get_trolin_rec
- * DESCRIPTION:
- * 得到物料搬运单的一行记录
- * ARGUMENT:
- * x_return_status :状态
- * x_trolin_rec :物料搬运单行的一行记录
- * p_trolin_tbl :一条物料搬运单的所有搬运单行
- * p_line_id :物料搬运单行id
- * RETURN:
- * N/A
- * HISTORY:
- * 1.00 27/10/2010 cxy
- =========================================================*/
- PROCEDURE get_trolin_rec(x_return_status OUT NOCOPY VARCHAR2,
- x_trolin_rec OUT NOCOPY INV_MOVE_ORDER_PUB.Trolin_Rec_Type,
- p_trolin_tbl IN INV_MOVE_ORDER_PUB.Trolin_Tbl_Type,
- p_line_id IN NUMBER) IS
- l_table_index NUMBER := 0;
- BEGIN
- FOR l_table_index IN 1 .. p_trolin_tbl.COUNT LOOP
- IF p_line_id = p_trolin_tbl(l_table_index).line_id THEN
- x_trolin_rec := p_trolin_tbl(l_table_index);
- x_return_status := fnd_api.G_RET_STS_SUCCESS;
- RETURN;
- END IF;
- END LOOP; --FOR x_table_index IN x_trolin_tbl.COUNT LOOP
- x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR;
- EXCEPTION
- WHEN OTHERS THEN
- put_log('得到物料搬运单时出现异常:' || SQLERRM);
- END get_trolin_rec;
- /*=======================================================
- * FUNCTION / PROCEDURE
- * get_transaction_action_id
- * DESCRIPTION:
- * 得到事务处理的活动id
- * ARGUMENT:
- * p_transaction_type_id:事务处理类型id
- * RETURN:
- * 事务处理的活动id
- * HISTORY:
- * 1.00 27/10/2010 cxy
- =========================================================*/
- FUNCTION get_transaction_action_id(p_transaction_type_id IN NUMBER)
- RETURN NUMBER IS
- l_transaction_action_id NUMBER;--事务处理的活动id
- BEGIN
- SELECT mtt.transaction_action_id
- INTO l_transaction_action_id
- FROM mtl_transaction_types mtt
- WHERE mtt.transaction_type_id = p_transaction_type_id;
- RETURN l_transaction_action_id;
- EXCEPTION
- WHEN NO_DATA_FOUND THEN
- RETURN NULL;
- WHEN TOO_MANY_ROWS THEN
- put_log('得到事务处理的活动id时返回的多个行!');
- WHEN OTHERS THEN
- put_log('得到物料搬运单活动id时出现异常:' || SQLERRM);
- END get_transaction_action_id;
- /*=======================================================
- * FUNCTION / PROCEDURE
- * get_acct_period_id
- * DESCRIPTION:
- * 得到库存会计期id
- * ARGUMENT:
- * p_organization_id :库存组织id
- * p_transaction_date:事务处理日期
- * RETURN:
- * 库存会计期id
- * HISTORY:
- * 1.00 27/10/2010 cxy
- =========================================================*/
- FUNCTION get_acct_period_id(p_organization_id IN NUMBER,
- p_transaction_date IN DATE) RETURN NUMBER IS
- l_acct_period_id NUMBER;--库存会计期id
- BEGIN
- SELECT oap.acct_period_id
- INTO l_acct_period_id
- FROM org_acct_periods oap
- WHERE oap.organization_id = p_organization_id
- AND (p_transaction_date BETWEEN oap.period_start_date AND
- oap.schedule_close_date);
- RETURN l_acct_period_id;
- EXCEPTION
- WHEN NO_DATA_FOUND THEN
- RETURN NULL;
- WHEN TOO_MANY_ROWS THEN
- put_log('得到库存会计期id时返回的多个行!');
- WHEN OTHERS THEN
- put_log('得到库存会计期id时出现异常:' || SQLERRM);
- END get_acct_period_id;
- /*=======================================================
- * FUNCTION / PROCEDURE
- * insert_mmtt_row
- * DESCRIPTION:
- * 插入某一物料搬运单事务处理临时表的一条记录
- * ARGUMENT:
- * x_return_status :状态
- * x_transaction_temp_id :临时表id
- * x_msg_data :错误信息
- * x_trohdr_rec :物料搬运单头的一行记录
- * x_trohdr_val_rec :物料搬运单头的一行记录对应的值
- * x_trolin_tbl :一个物料搬运单头对应的所有物料搬运单行
- * x_trolin_val_tbl :一个物料搬运单头对应的所有物料搬运单行的值
- * p_header_id :物料搬运单头id
- * p_line_id :物料搬运单行id
- * p_transaction_quantity :事务处理数量
- * p_transaction_date :事务处理日期
- * RETURN:
- * N/A
- * HISTORY:
- * 1.00 27/10/2010 cxy
- =========================================================*/
- PROCEDURE insert_mmtt_row(x_return_status OUT NOCOPY VARCHAR2,
- x_transaction_temp_id OUT NUMBER,
- p_trohdr_rec IN INV_MOVE_ORDER_PUB.Trohdr_Rec_Type,
- p_trohdr_val_rec IN INV_MOVE_ORDER_PUB.Trohdr_Val_Rec_Type,
- p_trolin_tbl IN INV_MOVE_ORDER_PUB.Trolin_Tbl_Type,
- p_trolin_val_tbl IN INV_MOVE_ORDER_PUB.Trolin_Val_Tbl_Type,
- p_header_id IN NUMBER,
- p_line_id IN NUMBER,
- p_transaction_quantity IN NUMBER,
- p_transaction_date IN DATE) IS
- l_mo_line_detail_rec inv_mo_line_detail_util.g_mmtt_rec;
- l_transaction_temp_id NUMBER; --临时表的id
- l_trolin_rec INV_MOVE_ORDER_PUB.Trolin_Rec_Type;
- x_locator_type VARCHAR2(60); --货位控制类型
- x_from_locator_id NUMBER; --来源货位
- x_to_locator_id NUMBER; --目标货位
- x_msg_data VARCHAR2(2000); --错误信息
- BEGIN
- --得到某一物料搬运单行的信息
- get_trolin_rec(x_return_status => x_return_status,
- x_trolin_rec => l_trolin_rec,
- p_trolin_tbl => p_trolin_tbl,
- p_line_id => p_line_id);
- --检查是否启用货位控制,如果启用，则动态生成货位
- SELECT mtl_material_transactions_s.nextval
- INTO l_transaction_temp_id
- FROM DUAL;
- --判断货位是否已经存在，如果存在,则自动创建货位
- check_and_create_locator(x_return_status => x_return_status,
- x_msg_data => x_msg_data,
- x_locator_type => x_locator_type,
- x_from_locator_id => x_from_locator_id,
- x_to_locator_id => x_to_locator_id,
- p_trolin_rec => l_trolin_rec);
- IF l_mo_debug_falg = 'Y' THEN
- --输出调试信息
- put_log('项目号:' || l_trolin_rec.project_id);
- put_log('项目号:' || l_trolin_rec.task_id);
- put_log('来源货位id:' || x_from_locator_id);
- put_log('目标货位id:' || x_to_locator_id);
- END IF;
- l_mo_line_detail_rec.locator_id := x_from_locator_id; --源子库存货位
- l_mo_line_detail_rec.transfer_to_location := x_to_locator_id; --目标子库存货位
- l_mo_line_detail_rec.transaction_header_id := NULL;
- l_mo_line_detail_rec.transaction_temp_id := l_transaction_temp_id;
- l_mo_line_detail_rec.source_code := NULL;
- l_mo_line_detail_rec.source_line_id := NULL;
- l_mo_line_detail_rec.transaction_mode := 1;
- l_mo_line_detail_rec.lock_flag := 'N';
- l_mo_line_detail_rec.last_update_date := SYSDATE;
- l_mo_line_detail_rec.last_updated_by := fnd_global.user_id;
- l_mo_line_detail_rec.creation_date := SYSDATE;
- l_mo_line_detail_rec.created_by := fnd_global.user_id;
- l_mo_line_detail_rec.last_update_login := fnd_global.user_id;
- l_mo_line_detail_rec.request_id := NULL;
- l_mo_line_detail_rec.program_application_id := NULL;
- l_mo_line_detail_rec.program_id := NULL;
- l_mo_line_detail_rec.program_update_date := NULL;
- --从物料搬运单得到item_id
- l_mo_line_detail_rec.inventory_item_id := l_trolin_rec.inventory_item_id;
- l_mo_line_detail_rec.revision := NULL;
- l_mo_line_detail_rec.organization_id := l_trolin_rec.organization_id;
- l_mo_line_detail_rec.subinventory_code := l_trolin_rec.from_subinventory_code;
- --l_mo_line_detail_rec.locator_id := l_trolin_rec.from_locator_id;
- l_mo_line_detail_rec.transaction_quantity := p_transaction_quantity;
- l_mo_line_detail_rec.primary_quantity := p_transaction_quantity;
- l_mo_line_detail_rec.transaction_uom := l_trolin_rec.uom_code;
- l_mo_line_detail_rec.transaction_cost := NULL;
- l_mo_line_detail_rec.transaction_type_id := l_trolin_rec.transaction_type_id;
- l_mo_line_detail_rec.transaction_action_id := get_transaction_action_id(l_trolin_rec.transaction_type_id);
- l_mo_line_detail_rec.transaction_source_type_id := l_trolin_rec.transaction_source_type_id;
- l_mo_line_detail_rec.transaction_source_id := p_header_id;
- l_mo_line_detail_rec.transaction_source_name := NULL;
- l_mo_line_detail_rec.transaction_date := p_transaction_date;
- l_mo_line_detail_rec.acct_period_id := get_acct_period_id(l_trolin_rec.organization_id,
- p_transaction_date); --账户期间id
- l_mo_line_detail_rec.distribution_account_id := NULL;
- l_mo_line_detail_rec.transaction_reference := NULL;
- l_mo_line_detail_rec.requisition_line_id := NULL;
- l_mo_line_detail_rec.requisition_distribution_id := NULL;
- l_mo_line_detail_rec.reason_id := l_trolin_rec.reason_id;
- l_mo_line_detail_rec.lot_number := l_trolin_rec.lot_number;
- l_mo_line_detail_rec.lot_expiration_date := NULL;
- l_mo_line_detail_rec.serial_number := NULL;
- l_mo_line_detail_rec.receiving_document := NULL;
- l_mo_line_detail_rec.demand_id := NULL;
- l_mo_line_detail_rec.rcv_transaction_id := NULL;
- l_mo_line_detail_rec.move_transaction_id := NULL;
- l_mo_line_detail_rec.completion_transaction_id := NULL;
- l_mo_line_detail_rec.wip_entity_type := NULL;
- l_mo_line_detail_rec.schedule_id := NULL;
- l_mo_line_detail_rec.repetitive_line_id := NULL;
- l_mo_line_detail_rec.employee_code := NULL;
- l_mo_line_detail_rec.primary_switch := NULL;
- l_mo_line_detail_rec.schedule_update_code := NULL;
- l_mo_line_detail_rec.setup_teardown_code := NULL;
- l_mo_line_detail_rec.item_ordering := NULL;
- l_mo_line_detail_rec.negative_req_flag := NULL;
- l_mo_line_detail_rec.operation_seq_num := NULL;
- l_mo_line_detail_rec.picking_line_id := NULL;
- l_mo_line_detail_rec.trx_source_line_id := p_line_id;
- l_mo_line_detail_rec.trx_source_delivery_id := NULL;
- l_mo_line_detail_rec.physical_adjustment_id := NULL;
- l_mo_line_detail_rec.cycle_count_id := NULL;
- l_mo_line_detail_rec.rma_line_id := NULL;
- l_mo_line_detail_rec.customer_ship_id := NULL;
- l_mo_line_detail_rec.currency_code := NULL;
- l_mo_line_detail_rec.currency_conversion_rate := NULL;
- l_mo_line_detail_rec.currency_conversion_type := NULL;
- l_mo_line_detail_rec.currency_conversion_date := NULL;
- l_mo_line_detail_rec.ussgl_transaction_code := NULL;
- l_mo_line_detail_rec.vendor_lot_number := NULL;
- l_mo_line_detail_rec.encumbrance_account := NULL;
- l_mo_line_detail_rec.encumbrance_amount := NULL;
- l_mo_line_detail_rec.ship_to_location := NULL;
- l_mo_line_detail_rec.shipment_number := NULL;
- l_mo_line_detail_rec.transfer_cost := NULL;
- l_mo_line_detail_rec.transportation_cost := NULL;
- l_mo_line_detail_rec.transportation_account := NULL;
- l_mo_line_detail_rec.freight_code := NULL;
- l_mo_line_detail_rec.containers := NULL;
- l_mo_line_detail_rec.waybill_airbill := NULL;
- l_mo_line_detail_rec.expected_arrival_date := NULL;
- l_mo_line_detail_rec.transfer_subinventory := l_trolin_rec.to_subinventory_code;
- l_mo_line_detail_rec.transfer_organization := NULL;
- l_mo_line_detail_rec.new_average_cost := NULL;
- l_mo_line_detail_rec.value_change := NULL;
- l_mo_line_detail_rec.percentage_change := NULL;
- l_mo_line_detail_rec.material_allocation_temp_id := NULL;
- l_mo_line_detail_rec.demand_source_header_id := p_header_id;
- l_mo_line_detail_rec.demand_source_line := to_char(p_line_id);
- l_mo_line_detail_rec.demand_source_delivery := NULL;
- l_mo_line_detail_rec.item_segments := NULL;
- l_mo_line_detail_rec.item_description := NULL;
- l_mo_line_detail_rec.item_trx_enabled_flag := NULL;
- l_mo_line_detail_rec.item_location_control_code := NULL;
- l_mo_line_detail_rec.item_restrict_subinv_code := NULL;
- l_mo_line_detail_rec.item_restrict_locators_code := NULL;
- l_mo_line_detail_rec.item_revision_qty_control_code := NULL;
- l_mo_line_detail_rec.item_primary_uom_code := NULL;
- l_mo_line_detail_rec.item_uom_class := NULL;
- l_mo_line_detail_rec.item_shelf_life_code := NULL;
- l_mo_line_detail_rec.item_shelf_life_days := NULL;
- l_mo_line_detail_rec.item_lot_control_code := NULL;
- l_mo_line_detail_rec.item_serial_control_code := NULL;
- l_mo_line_detail_rec.item_inventory_asset_flag := NULL;
- l_mo_line_detail_rec.allowed_units_lookup_code := NULL;
- l_mo_line_detail_rec.department_id := NULL;
- l_mo_line_detail_rec.department_code := NULL;
- l_mo_line_detail_rec.wip_supply_type := NULL;
- l_mo_line_detail_rec.supply_subinventory := NULL;
- l_mo_line_detail_rec.supply_locator_id := NULL;
- l_mo_line_detail_rec.valid_subinventory_flag := NULL;
- l_mo_line_detail_rec.valid_locator_flag := NULL;
- l_mo_line_detail_rec.locator_segments := NULL;
- l_mo_line_detail_rec.current_locator_control_code := NULL;
- l_mo_line_detail_rec.number_of_lots_entered := NULL;
- l_mo_line_detail_rec.wip_commit_flag := NULL;
- l_mo_line_detail_rec.next_lot_number := NULL;
- l_mo_line_detail_rec.lot_alpha_prefix := NULL;
- l_mo_line_detail_rec.next_serial_number := NULL;
- l_mo_line_detail_rec.serial_alpha_prefix := NULL;
- l_mo_line_detail_rec.shippable_flag := NULL;
- l_mo_line_detail_rec.posting_flag := 'Y';
- l_mo_line_detail_rec.required_flag := NULL;
- l_mo_line_detail_rec.process_flag := 'Y';
- l_mo_line_detail_rec.error_code := NULL;
- l_mo_line_detail_rec.error_explanation := NULL;
- l_mo_line_detail_rec.attribute_category := NULL;
- l_mo_line_detail_rec.attribute1 := NULL;
- l_mo_line_detail_rec.attribute2 := NULL;
- l_mo_line_detail_rec.attribute3 := NULL;
- l_mo_line_detail_rec.attribute4 := NULL;
- l_mo_line_detail_rec.attribute5 := NULL;
- l_mo_line_detail_rec.attribute6 := NULL;
- l_mo_line_detail_rec.attribute7 := NULL;
- l_mo_line_detail_rec.attribute8 := NULL;
- l_mo_line_detail_rec.attribute9 := NULL;
- l_mo_line_detail_rec.attribute10 := NULL;
- l_mo_line_detail_rec.attribute11 := NULL;
- l_mo_line_detail_rec.attribute12 := NULL;
- l_mo_line_detail_rec.attribute13 := NULL;
- l_mo_line_detail_rec.attribute14 := NULL;
- l_mo_line_detail_rec.attribute15 := NULL;
- l_mo_line_detail_rec.movement_id := NULL;
- l_mo_line_detail_rec.reservation_quantity := NULL;
- l_mo_line_detail_rec.shipped_quantity := NULL;
- l_mo_line_detail_rec.transaction_line_number := NULL;
- l_mo_line_detail_rec.task_id := NULL;
- l_mo_line_detail_rec.to_task_id := NULL;
- l_mo_line_detail_rec.source_task_id := NULL;
- l_mo_line_detail_rec.project_id := NULL;
- l_mo_line_detail_rec.source_project_id := NULL;
- l_mo_line_detail_rec.pa_expenditure_org_id := NULL;
- l_mo_line_detail_rec.to_project_id := NULL;
- l_mo_line_detail_rec.expenditure_type := NULL;
- l_mo_line_detail_rec.final_completion_flag := 'N';
- l_mo_line_detail_rec.transfer_percentage := NULL;
- l_mo_line_detail_rec.transaction_sequence_id := NULL;
- l_mo_line_detail_rec.material_account := NULL;
- l_mo_line_detail_rec.material_overhead_account := NULL;
- l_mo_line_detail_rec.resource_account := NULL;
- l_mo_line_detail_rec.outside_processing_account := NULL;
- l_mo_line_detail_rec.overhead_account := NULL;
- l_mo_line_detail_rec.flow_schedule := NULL;
- l_mo_line_detail_rec.cost_group_id := NULL;
- l_mo_line_detail_rec.demand_class := NULL;
- l_mo_line_detail_rec.qa_collection_id := NULL;
- l_mo_line_detail_rec.kanban_card_id := NULL;
- l_mo_line_detail_rec.overcompletion_transaction_id := NULL;
- l_mo_line_detail_rec.overcompletion_primary_qty := NULL;
- l_mo_line_detail_rec.overcompletion_transaction_qty := NULL;
- l_mo_line_detail_rec.end_item_unit_number := NULL;
- l_mo_line_detail_rec.scheduled_payback_date := NULL;
- l_mo_line_detail_rec.line_type_code := NULL;
- l_mo_line_detail_rec.parent_transaction_temp_id := NULL;
- l_mo_line_detail_rec.put_away_strategy_id := NULL;
- l_mo_line_detail_rec.put_away_rule_id := NULL;
- l_mo_line_detail_rec.pick_strategy_id := l_trolin_rec.pick_strategy_id;
- l_mo_line_detail_rec.pick_rule_id := NULL;
- l_mo_line_detail_rec.common_bom_seq_id := NULL;
- l_mo_line_detail_rec.common_routing_seq_id := NULL;
- l_mo_line_detail_rec.cost_type_id := NULL;
- l_mo_line_detail_rec.org_cost_group_id := NULL;
- l_mo_line_detail_rec.move_order_line_id := p_line_id;
- l_mo_line_detail_rec.task_group_id := NULL;
- l_mo_line_detail_rec.pick_slip_number := l_trolin_rec.pick_slip_number;
- l_mo_line_detail_rec.reservation_id := NULL;
- l_mo_line_detail_rec.transaction_status := 2; -- --Indicates if it has to be processed or just saved. NULL or 1 is default behavior. 2 is save only. 3 is ready to process
- l_mo_line_detail_rec.transfer_cost_group_id := NULL;
- l_mo_line_detail_rec.lpn_id := NULL;
- l_mo_line_detail_rec.transfer_lpn_id := NULL;
- l_mo_line_detail_rec.pick_slip_date := l_trolin_rec.pick_slip_date;
- l_mo_line_detail_rec.content_lpn_id := NULL;
- l_mo_line_detail_rec.secondary_transaction_quantity := NULL;
- l_mo_line_detail_rec.secondary_uom_code := NULL;
- --调用标准的API对MMTT进行插入
- inv_mo_line_detail_util.insert_row(x_return_status => x_return_status,
- p_mo_line_detail_rec => l_mo_line_detail_rec);
- IF l_mo_debug_falg = 'Y' THEN
- --输出调试信息
- put_log('x_return_status:' || x_return_status);
- END IF;
- IF x_return_status = fnd_api.G_RET_STS_SUCCESS THEN
- x_transaction_temp_id := l_transaction_temp_id; --回传mmtt的唯一性标识
- END IF;
- EXCEPTION
- WHEN OTHERS THEN
- put_log('插入mmtt处理行时出现异常:' || SQLERRM);
- END insert_mmtt_row;
- /*=======================================================
- * FUNCTION / PROCEDURE
- * delete_mmtt_row
- * DESCRIPTION:
- * 删除某一物料搬运单事务处理临时表的一条记录
- * ARGUMENT:
- * p_header_id:物料搬运单头id
- * p_line_id :物料搬运单行id
- * RETURN:
- * N/A
- * HISTORY:
- * 1.00 27/10/2010 cxy
- =========================================================*/
- PROCEDURE delete_mmtt_row(x_return_status OUT VARCHAR2,
- p_line_id IN NUMBER,
- p_transaction_temp_id IN NUMBER) IS
- BEGIN
- inv_mo_line_detail_util.delete_row(x_return_status => x_return_status,
- p_line_id => p_line_id,
- p_line_detail_id => p_transaction_temp_id);
- EXCEPTION
- WHEN OTHERS THEN
- put_log('删除某一物料搬运单的处理行时出现异常:' || SQLERRM);
- END delete_mmtt_row;
- /*=======================================================
- * FUNCTION / PROCEDURE
- * process_data
- * DESCRIPTION:
- * 自动处理物料搬运单
- * ARGUMENT:
- * x_return_status :返回状态
- * x_msg_count :返回的行数
- * x_msg_data :返回的信息
- * p_line_id :物料搬运单行id
- * RETURN:
- * N/A
- * HISTORY:
- * 1.00 27/10/2010 cxy
- =========================================================*/
- PROCEDURE process_data(x_return_status OUT NOCOPY VARCHAR2,
- x_msg_count OUT NOCOPY NUMBER,
- x_msg_data OUT NOCOPY VARCHAR2,
- p_line_id IN NUMBER) IS
- x_number_of_rows NUMBER;
- x_detailed_qty NUMBER;
- x_revision VARCHAR2(3);
- x_locator_id NUMBER;
- x_transfer_to_location NUMBER;
- x_lot_number VARCHAR2(80);
- x_expiration_date DATE;
- x_transaction_temp_id NUMBER;
- l_trolin_tbl INV_MOVE_ORDER_PUB.Trolin_Tbl_Type;
- l_mold_tbl INV_MO_LINE_DETAIL_UTIL.g_mmtt_tbl_type;
- x_mmtt_tbl INV_MO_LINE_DETAIL_UTIL.g_mmtt_tbl_type;
- x_trolin_tbl INV_Move_Order_PUB.Trolin_Tbl_Type;
- l_mo_line_detail_rec inv_mo_line_detail_util.g_mmtt_rec;
- BEGIN
- IF l_mo_debug_falg = 'Y' THEN
- --输出调试信息
- put_log('--------创建物料搬运单分配行开始----------');
- END IF;
- INV_Replenish_Detail_PUB.line_details_pub(p_line_id => p_line_id,
- x_number_of_rows => x_number_of_rows,
- x_detailed_qty => x_detailed_qty,
- x_return_status => x_return_status,
- x_msg_count => x_msg_count,
- x_msg_data => x_msg_data,
- x_revision => x_revision,
- x_locator_id => x_locator_id,
- x_transfer_to_location => x_transfer_to_location,
- x_lot_number => x_lot_number,
- x_expiration_date => x_expiration_date,
- x_transaction_temp_id => x_transaction_temp_id,
- p_transaction_header_id => NULL,
- p_transaction_mode => NULL,
- p_move_order_type => 1,
- p_serial_flag => FND_API.G_TRUE,
- p_plan_tasks => NULL,
- p_auto_pick_confirm => NULL,
- p_commit => NULL);
- IF l_mo_debug_falg = 'Y' THEN
- --输出调试信息
- put_log('x_number_of_rows:' || x_number_of_rows);
- put_log('x_return_status:' || x_return_status);
- put_log('--------创建物料搬运单分配行结束----------');
- END IF;
- IF x_number_of_rows > 0 AND x_return_status = fnd_api.G_RET_STS_SUCCESS THEN
- --得到物料搬运单行信息
- IF l_mo_debug_falg = 'Y' THEN --输出调试信息
- put_log('--------获得物料搬运单行信息开始----------');
- END IF;
- l_trolin_tbl := inv_trolin_util.query_rows(p_line_id => p_line_id);
- IF l_mo_debug_falg = 'Y' THEN--输出调试信息
- put_log('--------获得物料搬运单行信息结束----------');
- put_log('--------自动挑库确认开始----------');
- END IF;
- --自动挑库确认
- INV_PICK_WAVE_PICK_CONFIRM_PUB.Pick_Confirm(p_api_version_number => 1.0,
- p_init_msg_list => 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_move_order_type => 1,
- p_transaction_mode => 1,
- p_trolin_tbl => l_trolin_tbl,
- p_mold_tbl => l_mold_tbl,
- x_mmtt_tbl => x_mmtt_tbl,
- x_trolin_tbl => x_trolin_tbl,
- p_transaction_date => NULL);
- IF l_mo_debug_falg = 'Y' THEN--输出调试信息
- put_log('x_return_status:' || x_return_status);
- put_log('x_msg_count:' || x_msg_count);
- put_log('x_msg_data:' || x_msg_data);
- put_log('--------自动挑库确认结束----------');
- END IF;
- END IF;
- EXCEPTION
- WHEN OTHERS THEN
- put_log('自动处理物料搬运单时出错:' || SQLERRM);
- END process_data;
- /*=======================================================
- * FUNCTION / PROCEDURE
- * process_history_data
- * DESCRIPTION:
- * 处理上一次错误的历史记录
- * ARGUMENT:
- * x_processd_flag:上一次的错误记录是否已经被处理
- * p_line_id :物料搬运单行id
- * RETURN:
- * N/A
- * HISTORY:
- * 1.00 27/10/2010 cxy
- =========================================================*/
- PROCEDURE process_history_data(x_processd_flag OUT VARCHAR2,
- p_line_id IN NUMBER) IS
- CURSOR cur_processed_order_info IS
- SELECT mtrl.header_id header_id, --物料搬运单头id,
- mtrh.request_number request_number, --物料搬运单编号
- mtrl.line_id line_id, --物料搬运单行id
- mtrl.line_number line_number, --行号
- mtrl.organization_id organization_id, --库存组织ID
- mtrl.inventory_item_id inventory_item_id, --物料ID
- mtrh.transaction_type_id transaction_type_id, --事务处理类型ID
- mtt.transaction_type_name transaction_type_name, --事务处理类型名称
- mlt.lookup_code line_status, --行状态
- mlt.meaning line_status_meaning --行状态含义
- FROM mtl_txn_request_lines mtrl,
- mtl_txn_request_headers mtrh,
- mtl_transaction_types mtt,
- mfg_lookups mlt
- WHERE mtrl.header_id = mtrh.header_id
- AND mtrl.transaction_type_id = mtt.transaction_type_id
- AND mtrl.line_status = mlt.lookup_code
- AND mlt.lookup_type = 'MTL_TXN_REQUEST_STATUS'
- AND mtrl.line_status = 5 --表示已经关闭,表示上次错误的记录已经成功处理
- AND mtt.transaction_action_id = 2 --事务处理的活动为 子库存转移 的记录
- AND mtrl.line_id = p_line_id;
- l_processed_count NUMBER := 0;
- v_processd_flag VARCHAR2(1); --上次错误的 记录是否已经被处理
- BEGIN
- x_processd_flag := 'N'; --默认为上次的记录没有被处理
- FOR rec_processed_order_info IN cur_processed_order_info LOOP
- l_processed_count := l_processed_count + 1;
- IF l_processed_count <> 0 THEN
- v_processd_flag := 'Y';
- EXIT;
- END IF;
- END LOOP;
- IF l_processed_count = 0 THEN
- v_processd_flag := 'N';
- END IF;
- IF v_processd_flag = 'Y' THEN
- x_processd_flag := 'Y';
- --如果上一次的错误记录已经被处理,则更新客户化表中的记录的状态
- UPDATE cux_ediint_item_move_in ceimi
- SET ceimi.process_id = 4, --将3改成4,表示此条记录已经被处理，将这条记录的状态改成已经处理
- ceimi.error_message = NULL, --错误信息修改成空
- ceimi.attribute15 = '上一次处理出错,已经通过系统手工或者其他方式进行处理!',
- ceimi.last_update_date = SYSDATE,
- ceimi.last_updated_by = fnd_global.user_id,
- ceimi.last_update_login = fnd_global.user_id
- WHERE ceimi.line_id = p_line_id
- AND ceimi.process_id IN (1, 3); --错误的状态
- END IF;
- EXCEPTION
- WHEN OTHERS THEN
- put_log('删除某一物料搬运单的处理行时出现异常:' || SQLERRM);
- END process_history_data;
- /*=======================================================
- * FUNCTION / PROCEDURE
- * main
- * DESCRIPTION:
- * 并发程序入口
- * ARGUMENT:
- * errbuf :并发程序的系统参数，返回错误信息
- * retcode :并发程序的系统参数, 执行状态
- * RETURN:
- * N/A
- * HISTORY:
- * 1.00 27/10/2010 cxy
- =========================================================*/
- /*================================================================
- * 主程序的步骤：
- * 10 初始化
- * 20 处理历史记录
- * 30 验证数据有效性
- * 40 在MMTT表中插入一条记录
- * 50 自动处理物料搬运单
- * 60 更新客户化表的状态和错误信息
- * 70 输出处理结果
- =================================================================*/
- PROCEDURE main(errbuf OUT NOCOPY VARCHAR2, retcode OUT NOCOPY VARCHAR2) IS
- --使用cursor取出客户化事务处理表中的所有物料搬运单头信息,不取重复的记录
- CURSOR cur_item_move_imp_header IS
- SELECT DISTINCT ceimi.header_id header_id, --物料搬运单头id
- ceimi.request_number request_number --物料搬运单编号
- FROM cux_ediint_item_move_in ceimi
- WHERE ceimi.process_id IN (0, 3); ----处理新增或者上次出错的记录,0表示没有处理的记录,3表示上一次处理出错的记录
- --使用cursor 取出客户化表中的物料搬运单行信息
- CURSOR cur_item_move_imp_line(p_header_id NUMBER) IS
- SELECT ceimi.header_id header_id, --物料搬运单头id
- ceimi.request_number request_number, --物料搬运单编号
- ceimi.line_id line_id, --物料搬运单行id
- ceimi.transaction_quantity transaction_quantity, --事务处理数量
- ceimi.transaction_date transaction_date --事务处理日期
- FROM cux_ediint_item_move_in ceimi
- WHERE ceimi.process_id IN (0, 3) --处理新增或者上次出错的记录,0表示没有处理的记录,3表示上一次处理出错的记录
- AND ceimi.header_id = p_header_id
- ORDER BY ceimi.line_id;
- x_return_status VARCHAR2(10); --处理状态
- x_msg_count NUMBER; --错误信息数量
- x_msg_data VARCHAR2(2000); --错误信息
- x_trohdr_rec INV_MOVE_ORDER_PUB.Trohdr_Rec_Type; --物料搬运单头记录
- x_trohdr_val_rec INV_MOVE_ORDER_PUB.Trohdr_Val_Rec_Type; --物料搬运单头对应的记录
- x_trolin_tbl INV_MOVE_ORDER_PUB.Trolin_Tbl_Type; --物料搬运单的所有行记录
- x_trolin_val_tbl INV_MOVE_ORDER_PUB.Trolin_Val_Tbl_Type; --物料搬运单的所有行对应的记录
- x_trolin_rec INV_MOVE_ORDER_PUB.Trolin_Rec_Type; --一条物料搬运单行
- l_line_count NUMBER := 0; --处理的总行数
- l_line_success_count NUMBER := 0; --处理成功的行数
- x_transaction_temp_id NUMBER; --取得mmtt表的唯一性标识
- x_processd_flag VARCHAR2(1); --上一次的历史记录是否被手工处理
- BEGIN
- --循环所有的物料搬运单
- FOR rec_item_move_imp_header IN cur_item_move_imp_header LOOP
- /*============================================================
- * 10 初始化
- * ------------------------------------------------------------
- * 描述：初始化变量,并得到物料搬运单的相关信息
- =============================================================*/
- x_trohdr_rec := NULL; --物料搬运单头记录
- x_trohdr_val_rec := NULL;
- --得到物料搬运单信息
- IF l_mo_debug_falg = 'Y' THEN--输出调试信息
- put_log('---------------获取物料搬运单信息开始---------------------------');
- END IF;
- x_return_status := NULL; --处理状态
- get_move_order(x_return_status => x_return_status,
- x_msg_count => x_msg_count,
- x_msg_data => x_msg_data,
- 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,
- p_header_id => rec_item_move_imp_header.header_id);
- IF l_mo_debug_falg = 'Y' THEN--输出调试信息
- put_log('---------------获取物料搬运单行状态：x_return_status:' ||
- x_return_status);
- put_log('---------------错误信息条数：x_msg_count:' || x_msg_count);
- put_log('---------------错误信息：x_msg_data:' || x_msg_data);
- put_log('---------------获取物料搬运单信息结束---------------------------');
- END IF;
- --物料搬运单头状态正常,则处理此物料搬运单的所有行记录
- IF x_return_status = fnd_api.G_RET_STS_SUCCESS THEN
- --循环物料搬运单的行,自动处理物料搬运单按照行进行处理
- FOR rec_item_move_imp_line IN cur_item_move_imp_line(rec_item_move_imp_header.header_id) LOOP
- --进行初始化
- x_return_status := NULL; --处理状态
- x_msg_count := NULL; --错误信息条数
- x_msg_data := NULL; --错误信息
- --为此执行块创建一个SAVEPOINT
- BEGIN
- --创建SAVEPOINT cux_item_move_line
- SAVEPOINT cux_item_move_line;
- UPDATE cux_ediint_item_move_in ceimi
- SET ceimi.process_id = 1, --1表示程序正在处理
- ceimi.request_id = fnd_global.conc_request_id,
- ceimi.last_update_date = SYSDATE,
- ceimi.last_updated_by = fnd_global.user_id,
- ceimi.last_update_login = fnd_global.user_id
- WHERE ceimi.line_id = rec_item_move_imp_line.line_id;
- /*=========================================================
- * 20 处理历史记录
- * ---------------------------------------------------------
- * 描述：检测历史数据是否已经被处理，
- * 并更新客户表的状态和错误信息
- ==========================================================*/
- process_history_data(x_processd_flag => x_processd_flag,
- p_line_id => rec_item_move_imp_line.line_id);
- IF x_processd_flag = 'N' THEN
- --等于‘N'表示上次处理错误的记录没有被手工处理
- --得到某一物料搬运单行的信息
- get_trolin_rec(x_return_status => x_return_status,
- x_trolin_rec => x_trolin_rec,
- p_trolin_tbl => x_trolin_tbl,
- p_line_id => rec_item_move_imp_line.line_id);
- IF l_mo_debug_falg = 'Y' THEN--输出调试信息
- put_log('得到某一物料搬运单行的状态:' || x_return_status);
- END IF;
- IF x_return_status = fnd_api.G_RET_STS_SUCCESS THEN
- l_line_count := l_line_count + 1; --此次处理的总条数
- /*==========================================================
- * 30 验证数据有效性
- * ----------------------------------------------------------
- * 描述：验证客户化表中的数据有效性，验证接口表中的数量是否
- * 等于物料搬运单的数量。并验证库存现用量和可用量。
- ============================================================*/
- IF l_mo_debug_falg = 'Y' THEN--输出调试信息
- put_log('----------------开始验证---------------------------');
- END IF;
- --验证数据的有效性,包括是否存在货位，物料可用量等信息
- validate_data(x_return_status => x_return_status,
- x_msg_count => x_msg_count,
- x_msg_data => x_msg_data,
- p_trolin_rec => x_trolin_rec,
- p_line_id => rec_item_move_imp_line.line_id,
- p_transaction_quantity => rec_item_move_imp_line.transaction_quantity,
- p_transaction_date => rec_item_move_imp_line.transaction_date);
- IF x_return_status <> fnd_api.G_RET_STS_SUCCESS THEN
- put_log('错误信息为:' || x_msg_data);
- --如果未通过验证,则结束本次循环
- GOTO line_end;
- END IF;
- IF l_mo_debug_falg = 'Y' THEN --输出调试信息
- put_log('---------------验证结束---------------------------');
- END IF;
- /*=============================================================
- * 40 在MMTT表中插入一条记录
- * -------------------------------------------------------------
- * 描述：数据验证通过后，给MMTT表中的字段赋值，并
- * 在MMTT表中插入一条记录。
- ===============================================================*/
- IF l_mo_debug_falg = 'Y' THEN--输出调试信息
- put_log('---------------插入临时表MMTT表的一条记录开始---------------------------');
- END IF;
- --插入一条MMTT的记录
- insert_mmtt_row(x_return_status => x_return_status,
- x_transaction_temp_id => x_transaction_temp_id,
- p_trohdr_rec => x_trohdr_rec,
- p_trohdr_val_rec => x_trohdr_val_rec,
- p_trolin_tbl => x_trolin_tbl,
- p_trolin_val_tbl => x_trolin_val_tbl,
- p_header_id => rec_item_move_imp_line.header_id,
- p_line_id => rec_item_move_imp_line.line_id,
- p_transaction_quantity => rec_item_move_imp_line.transaction_quantity,
- p_transaction_date => rec_item_move_imp_line.transaction_date);
- IF l_mo_debug_falg = 'Y' THEN--输出调试信息
- put_log('---------------插入临时表MMTT表的一条记录：x_return_status:' ||
- x_return_status);
- put_log('---------------插入临时表MMTT表的一条记录结束---------------------------');
- END IF;
- /*===============================================================
- * 50 自动处理物料搬运单
- * ---------------------------------------------------------------
- * 描述：调用API自动处理物料搬运单
- ================================================================*/
- IF x_return_status = fnd_api.G_RET_STS_SUCCESS THEN
- IF l_mo_debug_falg = 'Y' THEN--输出调试信息
- put_log('---------------自动处理物料搬运单开始---------------------------');
- END IF;
- --处理物料搬运单
- process_data(x_return_status => x_return_status,
- x_msg_count => x_msg_count,
- x_msg_data => x_msg_data,
- p_line_id => rec_item_move_imp_line.line_id);
- IF l_mo_debug_falg = 'Y' THEN--输出调试信息
- put_log('---------------x_return_status:' ||
- x_return_status);
- put_log('---------------x_msg_count:' || x_msg_count);
- put_log('---------------x_msg_data:' || x_msg_data);
- put_log('---------------自动处理物料搬运单结束---------------------------');
- END IF;
- ELSE
- EXIT;
- put_log('错误信息为:' || x_msg_data);
- put_log('CUX:物料搬运单事务处理时,发生异常:' || SQLERRM);
- END IF;
- --本次循环结束标志
- <<line_end>>
- /*========================================================================
- * 60 更新客户化表的状态和错误信息
- * ------------------------------------------------------------------------
- * 描述：更新客户化表的状态：
- * process_flag =0,表示为新的记录,需要进行处理。
- * process_flag =1,表示正在处理
- * process_flag =3,程序处理异常或者错误,并将错误信息赋值给error_message
- * process_flag =4,表示处理成功。
- ========================================================================*/
- IF x_return_status = fnd_api.G_RET_STS_SUCCESS THEN --处理成功
- l_line_success_count := l_line_success_count + 1; --处理成功的记录
- --表示处理成功
- UPDATE cux_ediint_item_move_in ceimi
- SET ceimi.process_id = 4, --表示处理成功
- ceimi.error_message = NULL,
- ceimi.last_update_date = SYSDATE,
- ceimi.last_updated_by = fnd_global.user_id,
- ceimi.last_update_login = fnd_global.user_id
- WHERE ceimi.line_id = rec_item_move_imp_line.line_id;
- END IF;
- IF x_return_status = fnd_api.G_RET_STS_UNEXP_ERROR THEN--处理失败
- UPDATE cux_ediint_item_move_in ceimi
- SET ceimi.process_id = 3, --程序出现异常
- ceimi.error_message = TRIM(x_msg_data), --错误信息
- ceimi.last_update_date = SYSDATE,
- ceimi.last_updated_by = fnd_global.user_id,
- ceimi.last_update_login = fnd_global.user_id
- WHERE ceimi.line_id = rec_item_move_imp_line.line_id;
- --删除MMTT表中未被成功处理的记录
- delete_mmtt_row(x_return_status => x_return_status,
- p_line_id => rec_item_move_imp_line.line_id,
- p_transaction_temp_id => x_transaction_temp_id);
- END IF;
- END IF;
- ELSE--上次处理错误的记录被手工处理
- l_line_count := l_line_count + 1; --此次处理的总条数
- l_line_success_count := l_line_success_count + 1; --处理成功的记录
- END IF;
- --一条物料搬运单行处理结束,进行事务处理的提交
- COMMIT;
- EXCEPTION --物料搬运行出现异常
- WHEN OTHERS THEN
- --如果此条记录出现异常,则回滚到SAVEPOINT cux_item_move_line
- ROLLBACK TO cux_item_move_line;
- put_log('处理物料搬运单行时,发生异常:' || SQLERRM);
- END; --end begin
- END LOOP; --FOR rec_item_move_imp_line IN cur_item_move_imp_line LOOP
- ELSE
- retcode := 1; --如果存在没有成功处理的物料搬运单，则显示警告
- put_log('得到物料搬运单头时发生异常:' || x_msg_data);
- END IF;
- END LOOP; --FOR rec_item_move_imp_header IN cur_item_move_imp_header LOOP
- --输出处理的信息(包括成功的信息和错误的信息)
- IF l_mo_debug_falg = 'Y' THEN--输出调试信息
- put_log('总行数:' || l_line_count);
- put_log('处理成功的总行数:' || l_line_success_count);
- END IF;
- /*========================================================================
- * 70 输出处理结果
- * ------------------------------------------------------------------------
- * 描述：处理物料搬运单的处理结果包括：
- * 1.处理错误的记录
- * 2.处理失败的记录及其错误信息
- ========================================================================*/
- output_move_order_info(p_line_count => l_line_count,
- p_line_success_count => l_line_success_count);
- IF (l_line_count <> 0) AND (l_line_count <> l_line_success_count) THEN--如果存在处理错误的信息,则请求显示警告
- retcode := 1; --如果存在没有成功处理的物料搬运单，则显示警告
- END IF;
- EXCEPTION
- WHEN OTHERS THEN
- ROLLBACK;
- retcode := 2;
- put_log('错误信息为:' || x_msg_data);
- put_log('CUX:物料搬运单事务处理时,发生异常:' || SQLERRM);
- END main;
- END CUX_EDIINT_ITEM_MOVE_IN_PKG;