oracle ebs 接收数量,[zz]Oracle EBS API: 库存数量查询API示例

Oracle EBS API: 库存数量查询API示例 (Sample: Inventory quantity inquiry API )

本示例对Oracle INV的API进行封装, 实现了某个库存组织下物料的可用数量查询.

create or replace function query_item_qty(v_item_id number)

return integer is

l_onhand_qty         NUMBER;

L_api_return_status  VARCHAR2(200);

l_msg_count          NUMBER;

l_msg_data           VARCHAR2(200);

is_revision_control  BOOLEAN;

l_qty_oh             NUMBER;

l_qty_res_oh         NUMBER;

l_qty_res            NUMBER;

l_qty_att            NUMBER;

l_qty_atr            NUMBER;

l_qty_sug            NUMBER;

begin

apps.inv_quantity_tree_grp.clear_quantity_cache;

apps.INV_Quantity_Tree_PUB.Query_Quantities (

p_api_version_number => 1.0

, p_init_msg_lst =>  apps.fnd_api.g_false

, x_return_status => L_api_return_status

, x_msg_count => l_msg_count

, x_msg_data => l_msg_data

, p_organization_id => 207

, p_inventory_item_id => v_item_id

, p_tree_mode => apps.INV_Quantity_Tree_PUB.g_transaction_mode

, p_onhand_source => 3

, p_is_revision_control=> false

, p_is_lot_control => FALSE

, p_is_serial_control => FALSE

, p_revision => NULL

, p_lot_number => NULL

, p_subinventory_code => ‘FGI’

, p_locator_id => NULL

, x_qoh => l_qty_oh

, x_rqoh => l_qty_res_oh

, x_qr => l_qty_res

, x_qs => l_qty_sug

, x_att => l_qty_att

, x_atr => l_qty_atr );

if L_api_return_status <> fnd_api.g_ret_sts_success then

l_onhand_qty := 0;

else

l_onhand_qty := l_qty_oh;

end if;

return(l_onhand_qty);

exception

when others then

log_error(’query_item_qty’, sqlerrm);

return(0);

end query_item_qty;

/