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

在Oracle中计算Onhand Quantity

在Oracle Application中，standard 功能是调用下面API来计算Onhand Quantity的：
inv_quantity_tree_pub.query_quantities

( p_api_version_number => 1.0,

p_init_msg_lst => 'F',

x_return_status => x_return_status,

x_msg_count => x_msg_count,

x_msg_data => x_msg_data,

p_organization_id => p_organization_id,

p_inventory_item_id => p_inventory_item_id,

p_tree_mode => tree_mode,

p_is_revision_control => is_revision_control,

p_is_lot_control => is_lot_control,

p_is_serial_control => FALSE,

p_revision => p_revision,

p_lot_number => p_lot_number,

p_lot_expiration_date => sysdate,

p_subinventory_code => p_subinventory_code,

p_locator_id => p_locator_id,

p_cost_group_id => cg_id,

p_onhand_source => 3,

x_qoh => qoh,

x_rqoh => rqoh,

x_qr => qr,

x_qs => qs,

x_att => att,

x_atr => atr,

p_grade_code => p_grade_code,

x_sqoh => sqoh,

x_satt => satt,

x_satr => satr ,

x_srqoh => x_srqoh,

x_sqr => x_sqr,

x_sqs => x_sqs,

p_demand_source_type_id => -1 ,

p_demand_source_header_id => -1 ,

p_demand_source_line_id => -1 ,

p_demand_source_name => NULL ,

p_transfer_subinventory_code => NULL ,

p_transfer_locator_id => NULL

);
参数基本上一看能猜出大概意思，对几个特殊的参数解释说明一下：
【1】p_tree_mode
R12的standard form后台是这样解释的：
* The parameter p_tree_mode determines which values to fetch:

* 2 => Fetch both packed and loose quantities

* 3 => Fetch only loose quantities

* To determine whether ONLY loose quantities are to be displayed:

* a) Subinventory, cost group for the current record (in QUANTITY_FOLDER block) are not NULL

* b) QUANTITY_FOLDER.PACKED is NOT NULL (for WMS org) and is equal to 0

* c) The current record does not have VMI or consigned stock

* d) For a lot controlled item, the QUANTITY_FOLDER.LOT_NUMBER is not null.

* When the above conditions are TRUE, then call the quantity tree with tree_mode = 3 and default

* the on-hand quantity to :QUANTITY_FOLDER.ON_HAND.

* If the current node has VMI or consigned stock, am showing the entire quantity(both packed and loose)
【2】p_onhand_source
Used to determine which subs are included in calculation of onhand qty
有4个可选值：
inv_quantity_tree_pvt.g_atpable_only CONSTANT NUMBER := 1;

inv_quantity_tree_pvt.g_nettable_only CONSTANT NUMBER := 2;

inv_quantity_tree_pvt.g_all_subs CONSTANT NUMBER := 3;

inv_quantity_tree_pvt.g_atpable_nettable_only CONSTANT NUMBER := 4;
这几个值是在Lookup code中设置的，
lookup type: MTL_ONHAND_SOURCE
【3】x_att
返回值。available to transact

【4】x_atr
返回值。available to reserve

在计算物料的可保留量的时候，我们通常的做法是MTL_ONHAND_QUANTITIES

中的TRANSACTION_QUANTITY的数量按照组织+物料+子库+货位+批次…的方式

进行累计，然后再减去物料在MTL_RESERVATIONS 中对应的保留。很多的时候没有去考

虑此时库存事务处理接口表(MTL_MATERIAL_TRANSACTIONS_TEMP)中物料数量，这样计算

出来的数量可能会不准确。以下是考虑了库存事务处理接口表的物料数量的计算方

式。大家不妨可以参考一下。

/*--------------------------------------------------------------------------------

$ Header PTAC , SKip Siman He , 2008.03.25

* Procedure GET_ITEM_ATT_QTY

* Purpose :

计算物料的可用量

---------------------------------------------------------------------------- */

FUNCTION get_item_att_qty(p_item_id NUMBER,

p_organization_id NUMBER,

p_subinventory_code VARCHAR2) RETURN NUMBER IS

l_onhand_qty NUMBER;

l_resv_qty NUMBER;

l_qoh NUMBER;

l_rqoh NUMBER;

l_qr NUMBER;

l_qs NUMBER;

l_att NUMBER;

l_atr NUMBER;

l_tree_mode NUMBER;

l_msg_count VARCHAR2(100);

l_msg_data VARCHAR2(1000);

l_return_status VARCHAR2(1);

x_return VARCHAR2(1);

BEGIN

-- Transact mode

l_tree_mode := 2;

inv_quantity_tree_pub.clear_quantity_cache;

inv_quantity_tree_pub.query_quantities

p_api_version_number => 1.0,

p_init_msg_lst => 'F',

x_return_status => l_return_status,

x_msg_count => l_msg_count,

x_msg_data => l_msg_data,

p_organization_id => p_organization_id,

p_inventory_item_id => p_item_id,

p_tree_mode => l_tree_mode,

p_is_revision_control => FALSE,

p_is_lot_control => FALSE,

p_is_serial_control => FALSE,

p_revision => NULL,

p_lot_number => NULL,

p_lot_expiration_date => NULL,

p_subinventory_code => p_subinventory_code,

p_locator_id => NULL,

p_onhand_source => inv_quantity_tree_pvt.g_all_subs,

x_qoh => l_qoh,

x_rqoh => l_rqoh,

x_qr => l_qr,

Oracle ERP R12实用技术开发.doc

x_qs => l_qs,

x_att => l_att, --可用量

x_atr => l_atr); --可保留量

RETURN l_att;

END;

在INV模块，用户查看物料数量最多的三个栏位是现用量，可保留量，可处理量。下面的procedure是汉得技术顾问在公司上线时候提供的。

CREATE OR REPLACE PROCEDURE get_inv_quantity(p_organization_id IN NUMBER

, p_inventory_item_id IN NUMBER

, p_lot_number IN VARCHAR2

, p_subinventory_code IN VARCHAR2

, p_locator_id IN NUMBER

, x_onhand_qty OUT NUMBER

, x_reservable_qty OUT NUMBER

, x_transactable_qty OUT NUMBER) IS

l_return_status VARCHAR2(1) ;

l_msg_count NUMBER;

l_msg_data VARCHAR2(2000);

l_is_revision_control BOOLEAN := TRUE ;

l_is_lot_control BOOLEAN := TRUE ;

l_is_serial_control BOOLEAN := FALSE ;

p_revision VARCHAR2(100);
l_qoh NUMBER;

l_rqoh NUMBER;

l_qr NUMBER;

l_qs NUMBER;

l_att NUMBER;

l_atr NUMBER;

p_lpn_id NUMBER;
BEGIN
IF p_lot_number IS NULL THEN

l_is_lot_control := FALSE ;

END IF;
IF p_locator_id IS NULL THEN

l_is_lot_control := FALSE ;

END IF;
inv_quantity_tree_pub.query_quantities

( p_api_version_number => 1.0

, p_init_msg_lst => 'F'

, x_return_status => l_return_status

, x_msg_count => l_msg_count

, x_msg_data => l_msg_data

, p_organization_id => p_organization_id

, p_inventory_item_id => p_inventory_item_id

, p_tree_mode => 1

, p_is_revision_control => FALSE -- No Revision Control

, p_is_lot_control => l_is_lot_control

, p_is_serial_control => l_is_serial_control

, p_demand_source_type_id => 2

, p_revision => NULL

, p_lot_number => p_lot_number

, p_lot_expiration_date => sysdate

, p_subinventory_code => p_subinventory_code

, p_locator_id => p_locator_id

, p_onhand_source => 3

, x_qoh => l_qoh

, x_rqoh => l_rqoh

, x_qr => l_qr

, x_qs => l_qs

, x_att => l_att

, x_atr => l_atr

, p_lpn_id => NULL);

IF (l_return_status = 'S') THEN

x_onhand_qty := l_qoh;

x_reservable_qty := l_atr;

ELSE

l_return_status :='F';

RETURN ;

END IF ;

inv_quantity_tree_pub.query_quantities

( p_api_version_number => 1.0

, p_init_msg_lst => 'F'

, x_return_status => l_return_status

, x_msg_count => l_msg_count

, x_msg_data => l_msg_data

, p_organization_id => p_organization_id

, p_inventory_item_id => p_inventory_item_id

, p_tree_mode => 2

, p_is_revision_control => FALSE -- No Revision Control

, p_is_lot_control => l_is_lot_control

, p_is_serial_control => l_is_serial_control

, p_demand_source_type_id => 2

, p_revision => NULL

, p_lot_number => p_lot_number

, p_lot_expiration_date => sysdate

, p_subinventory_code => p_subinventory_code

, p_locator_id => p_locator_id

, p_onhand_source => 3

, x_qoh => l_qoh

, x_rqoh => l_rqoh

, x_qr => l_qr

, x_qs => l_qs

, x_att => l_att

, x_atr => l_atr

, p_lpn_id => NULL);
IF (l_return_status = 'S') THEN

x_onhand_qty := l_qoh;

x_transactable_qty := l_att;

ELSE

l_return_status :='F';

RETURN;

END IF ;
END get_inv_quantity ;

create or replace function get_reservable_qty(p_organization_id number,p_inventory_item_id number,p_sub varchar2) return number is

l_onhand_qty number;

l_reservable_qty number;

l_transactable_qty number;

begin

--p_sub可以为空，为空时，所有库别的可保留数量

get_inv_quantity(p_organization_id => p_organization_id,

p_inventory_item_id => p_inventory_item_id,

p_lot_number => null,

p_subinventory_code => p_sub,

p_locator_id => null,

x_onhand_qty => l_onhand_qty,

x_reservable_qty => l_reservable_qty,

x_transactable_qty => l_transactable_qty);

return l_reservable_qty;

end get_reservable_qty;