详解EBS接口开发之库存事务处理批次更新
库存事务处理批次有时候出现导入错误需要更新可使用次程序更新,批次导入可参考博客
详解EBS接口开发之库存事务处理-物料批次导入 http://blog.csdn.net/cai_xingyun/article/details/17129243
DECLARE l_api_version NUMBER := 1.0; l_init_msg_list VARCHAR2(100) := fnd_api.g_false; -- bug 7513308; l_commit VARCHAR2(100) := fnd_api.g_false; l_validation_level NUMBER := fnd_api.g_valid_level_full; l_origin_txn_id NUMBER := NULL; l_source NUMBER := 2; l_return_status VARCHAR2(1); l_msg_data VARCHAR2(3000); l_msg_count NUMBER; l_row_id ROWID; l_count NUMBER; x_mtl_lot_numbers mtl_lot_numbers%ROWTYPE; l_mtl_lot_numbers mtl_lot_numbers%ROWTYPE; CURSOR cux_inv(p_lot_number IN VARCHAR2) IS SELECT l.lot_number, l.lot_date FROM oms_inv_lot_number l WHERE l.lot_number = p_lot_number; CURSOR cur_mtl IS SELECT l.inventory_item_id, l.organization_id, l.lot_number FROM mtl_lot_numbers l; BEGIN fnd_global.apps_initialize(user_id => 1110, resp_id => 20634, resp_appl_id => 401); --MO_GLOBAL.set_policy_context(p_access_mode => 'S',p_org_id => 83); -- fnd_profile.PUT(NAME =>'MFG_ORGANIZATION_ID' ,VAL => 83); FOR rec_mtl IN cur_mtl LOOP FOR rec_inv IN cux_inv(p_lot_number => rec_mtl.lot_number) LOOP l_mtl_lot_numbers.inventory_item_id := rec_mtl.inventory_item_id; l_mtl_lot_numbers.organization_id := rec_mtl.organization_id; l_mtl_lot_numbers.lot_number := rec_mtl.lot_number; l_mtl_lot_numbers.origination_date := rec_inv.lot_date; inv_lot_api_pub.update_inv_lot(x_return_status => l_return_status, x_msg_count => l_msg_count, x_msg_data => l_msg_data, x_lot_rec => x_mtl_lot_numbers, p_lot_rec => l_mtl_lot_numbers, p_source => l_source, p_api_version => l_api_version, p_init_msg_list => l_init_msg_list, p_commit => l_commit); END LOOP; END LOOP; EXCEPTION WHEN OTHERS THEN dbms_output.put_line('---' || SQLERRM); END; SELECT DISTINCT t.origination_date FROM mtl_lot_numbers t;