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