详解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;