EBS INV 计算现有量(标准API)、保留量、可用量（一）

现有量= 可用量+保留量； 1.现有量<BR> --批次 CURSOR c_lot_number(l_organization_id NUMBER) IS SELECT mln.lot_number, mln.expiration_date FROM mtl_lot_numbers mln WHERE mln.inventory_item_id = p_inventory_item_id -- AND mln.status_id = 1 --有效合格批次 AND mln.organization_id = l_organization_id; --需要添加合格字段 FOR rec_loc IN c_lot_number(p_organization_id) LOOP --遍历批次。取合格批次。 inv_quantity_tree_pub.query_quantities(p_api_version_number => 1.0, p_init_msg_lst => NULL , x_return_status => l_return_status, x_msg_count => l_msg_count, x_msg_data => l_msg_data, p_organization_id => p_organization_id, --仓库ID p_inventory_item_id => p_inventory_item_id, --物料ID p_tree_mode => 3, p_is_revision_control => FALSE , p_is_lot_control => TRUE , p_is_serial_control => FALSE , p_revision => NULL , p_lot_number => rec_loc.lot_number, p_lot_expiration_date => rec_loc.expiration_date, p_subinventory_code => p_subinventory_code, --子库code p_locator_id => NULL , --rec_loc.locator_id, p_cost_group_id => NULL , p_onhand_source => inv_quantity_tree_pvt.g_all_subs, x_qoh => l_qoh, --现有量 x_rqoh => l_atp_qty, x_qr => l_qr, x_qs => l_qs, x_att => l_att, x_atr => l_atr); IF l_return_status = fnd_api.g_ret_sts_success THEN l_onhand := l_onhand + l_qoh; ELSE log( 'Error:获取先有量出错' ); END IF; END LOOP; 2. 保留量

SELECT nvl( SUM (qty), 0)
     INTO l_reserv
     FROM ( SELECT mr.reservation_quantity qty,
                  msi.segment1
             FROM mtl_reservations   mr,
                  mtl_system_items_b msi
            WHERE 1 = 1
              AND mr.demand_source_type_id <> 2 --排除SO
              AND mr.inventory_item_id = msi.inventory_item_id
              AND mr.organization_id = msi.organization_id
              AND mr.subinventory_code = p_subinventory_code
              AND msi.inventory_item_id = p_inventory_item_id
              AND msi.organization_id = p_organization_id
           UNION
           SELECT mmt.transaction_quantity qty,
                  msi.segment1
             FROM mtl_material_transactions_temp mmt,
                  mtl_system_items_b             msi
            WHERE 1 = 1
              AND mmt.transaction_source_type_id <> 2 --排除SO
              AND mmt.subinventory_code = p_subinventory_code
              AND mmt.inventory_item_id = msi.inventory_item_id
              AND mmt.organization_id = msi.organization_id
              AND msi.inventory_item_id = p_inventory_item_id
              AND msi.organization_id = p_organization_id);