接收入库是项目中会经常碰到的开发,这类开发一般来说比较简单,但是接收入库在Oracle中其实涉及到很多模块,其中层次较多,也可以做得比较复杂。本文将尽可能深入细致地讨论接收入库的流程,种类,数据来源,数据的流动路径,以及各个数据点之间的对应关系。最后将给出一个较为全面的接收入库的样例代码。
接收入库是项目中会经常碰到的开发,这类开发一般来说比较简单,但是接收入库在Oracle中其实涉及到很多模块,其中层次较多,也可以做得比较复杂。本文将尽可能深入细致地讨论接收入库的流程,种类,数据来源,数据的流动路径,以及各个数据点之间的对应关系。最后将给出一个较为全面的接收入库的样例代码。接收入库的种类接收入库可以按照数据来源分为2种:
1. 对于po订单以及发放的接收入库;
2. 对于内部请购单生成的sales order(后面的部分简称so)的接收入库;
接收入库还可以按照入库方式分为3种:
1. 直接入库:接收后自动入库;
2. 标准入库:先接收,后入库,分两个步骤;
3. 需要检验的接收入库:先接收,然后检验,最后入库;
对于这些不同类型的入库,程序的差别可能会很大。所以一个完整灵活可以应付所有接收入库的程序也是较为复杂的。
数据流动 我们将分析接收入库的数据来源,针对不同的接收入库类别,给出最常见实用的取数逻辑。最后我们将给出一个总体的数据流图,其中包含了各个数据点间的层次关系,帮助大家理解。
其中涉及到的较为重要的表(我们忽略了一些显而易见的表,比如po_headers_all,po_line_locations_all等等):
mtl_supply | 最重要的一张表,其中包括了所有可以接收入库的记录 |
Rcv_transaction | 这张表的内容是已经接收入库的事物处理记录,在标准入库或检验入库的时候,我们可能需要其中的接收信息。 |
Rcv_shipment_headers | 发运头表 |
Rcv_shipment_lines | 发运行表 |
标准订单以及一揽子采购协议发放 1. 对于标准订单,当订单被 approve之后,系统会在 mtl_supply这张表中插入该订单相关的记录,系统默认为每一个订单分配行生成一条 mtl_supply数据,其 supply_type_code值为“ PO”,表示物料供应的来源,目前是来自 po订单。所以 mtl_supply表中,对于标准订单以及一揽子发放,其数据层次是明细到分配行的,即根据 distribution_id可以唯一确定一个 mtl_supply行:
SELECT
pha.segment1,
pla.line_num,
plla.shipment_num,
pda.distribution_num,
ms.supply_type_code,
ms.quantity
FROM
mtl_supply ms,
po_headers_all pha,
po_lines_all pla,
po_line_locations_all plla,
po_distributions_all pda
WHERE
ms.po_distribution_id = pda.po_distribution_id
AND
ms.supply_type_code =
'PO'
AND
pha.po_header_id = pla.po_header_id
AND
plla.po_header_id = pha.po_header_id
AND
plla.po_line_id = pla.po_line_id
AND
pda.line_location_id = plla.line_location_id
AND
pha.segment1 =
'1000100'
以上 sql语句将筛选出订单编号为‘ 1000100’的订单可以接收的 distribution行以及可以接收的数量。
注意:在这个时候, rcv_shipmet_headers以及 rcv_shipment_lines这两张表中还没有数据,这是 po订单与内部请购单接收数据流中的一个较大的差异。
造成这种差异的原因是:
对于 po订单,其发运对象是外部供应商,系统无法控制以及检测外部供应商的发运动作,所以只能在做接收的时候,才能生成发运信息,在任何接收之前,系统是不知道任何发运数据的;
而对于内部请购单生成的 Sales Order来说,发运对象是公司内部其它组织或 ou,发运信息是在其他组织或 OU做 SO的发运时就产生了,而不必等到接收的时候才产生相应的发运信息。
由于以上差异,在 po订单做接收时,接口中不必提供 shipment信息,而在 po入库以及内部请购单生成的 so接收的时候,则需要提供 shipment信息。
2. 接下来,当我们为 po订单做接收的时候,系统会生成相应的 shipment信息,经过测试,每次接收会生成一个新的 shipment头,每个接收行会生成一个新的 shipment行。所以,对于 po接收,其接收的 transaction id与发运行的 shipment line id是一一对应的,在做 po入库的时候,可以利用这一点,通过 shipment line 找到可以入库的 parent transaction id。另外,对于 po接收,其在发运行中的 quantity received与 quantity shipped字段的值总是一样的,因为发运记录是完全参照接收记录生成的。
3. 对于直接入库的订单,接收后将同时在 RCV_TRANSACTION中生成接收记录以及入库记录 ;
对于标准接收则分为接收和入库两个步骤,接收生成接收事务处理记录,并且同时在 MTL_SUPPLY中可以找到 mtl_supply_type为“ RECEIVING”的记录,表示存在可入库记录了,入库来源是“ RECEIVING”。入库后再同一张表 (RCV_TRANSACTION)中生成入库事务处理记录;虽然接收后在 MTL_SUPPLY表中可以查到可入库的信息,但是因为接收后已经在 RCV_TRANSACTION中产生了接收事务处理记录,理论上来说,以上两者的数据应当是等价的,但是这时候我们习惯于从 RCV_TRANSACTION表中查找可以入库的记录。
对于需要检验的接收入库,在接收后,需要完成检验,对接收记录打上检验通过标记后,才能进行入库动作,最终生成入库事务处理记录。
![2012-08-28 01-39-53.png 2012-08-28 01-39-53.png](http://bbs.erp100.com/data/attachment/forum/201208/28/013656mxmyomkdkfslsfs2.png)
标准订单接收入库数据流向图
对内部请购单生成的Sales Order的接收入库内部请购单因为涉及到内部销售订单以及发运信息,所以比 PO单的接收多了若干环节,显得较为复杂。基本的数据流如下:
1. 创建内部请购单,审批成功后,通过请求生成对应的 Sales Order,完成从 PO表到 OE表的第一个步骤的数据流动。可以通过 OE表的 Reference字段来追溯对应的请购单 (IR)。这时候虽然在 MTL_SUPPLY中也产生了供应数据,但是这个时候是无法对这个 IR进行接收的,因为对应的 SO还没有发运记录,没有发运怎么能接收呢。
2. 对 SO进行挑库发放,确认发运后,在 RCV_SHIPMENT中生成了发运记录。完成了第二个步骤的数据流动。注意,由于存在 SO拆行,以及分批发运的状况,所以发运行与 IR的行是不存在严格意义上的数量对应关系的,一个 IR行生成的 SO行,可能被拆分在若干个发运记录中,这也是在做 IR接收入库时,接口表要求插入发运信息的原因,对于 IR的接收,是以发运事务处理为单位的。发放确认后,在 MTL_SUPPLY中,将可以找到 supply_type_code为“ SHIPMENT”的供应记录,表示从这个时刻起,这个 IR相关的订单可以开始接收了,接收来源是“ SHIPMENT”;
3. 接下来的步骤基本和 PO接收入库一致。值得注意的是在对 IR生成的 SO做接收时,可以发现一个明显的特点,接收事务处理界面中的可接收记录根据发运方式被拆成了多行,而不像 PO接收时那样一个 PO行对应一行可接收记录。这也直接说明了对于 IR来说接收是以发运为单位进行的。
![2.png 2.png](http://bbs.erp100.com/data/attachment/forum/201208/28/01365664kllkuulosrcmke.png)
接口表注意事项 不同的入库方式 Oracle提供了三种可选的入库方式 (在 PO订单分配行界面维护 ):
1. 直接入库:接收后自动入库;
2. 标准入库:接收后,进行入库动作,才完成最终入库;
3. 要求检验的入库:接收后,进行检验,打印检验通过标记后,才能进行入库动作。
对于这三种接收入库,接口表通过不同的控制字段来完成期望的接收入库动作:
a) 对于直接入库的接收,插接收事务处理的接口行表 (rcv_transactions_interface)时的几个关键的状态字段:
rcv_transactions_interface.transaction_type := 'RECEIVE';
rcv_transactions_interface.auto_transact_code := 'DELIVER';
rcv_transactions_interface.destination_type_code := 'INVENTORY';
b) 对于标准以及需检验的入库的接收,插接收事务处理的接口行表
(rcv_transactions_interface)时的几个关键的状态字段:
rcv_transactions_interface.transaction_type := 'RECEIVE';
rcv_transactions_interface.auto_transact_code := NULL;
rcv_transactions_interface.destination_type_code := ' RECEIVING ';
c) 对于接收甚至检验后的数据做入库时,插接收事务处理的接口行表
(rcv_transactions_interface)时的几个关键的状态字段:
rcv_transactions_interface.transaction_type := 'DELIVER';
rcv_transactions_interface.auto_transact_code := NULL;
rcv_transactions_interface.destination_type_code := 'INVENTORY';
可入库数量我们需要判断可入库数量,这是对入库接口数据的一项基本校验,是否有足够的数量可以入库,我们分别给出
PO以及
IR的可入库数量的算法:
对于PO单(标准采购订单,一揽子发放):
FUNCTION check_po_valid_quantity(p_routing_id IN NUMBER
,p_line_location_id IN NUMBER
,p_deliver_qty IN NUMBER
,p_uom_code IN VARCHAR2
,p_item_id IN NUMBER) RETURN VARCHAR2 IS
l_qty NUMBER := 0;
l_valid_quantity NUMBER := 0;
l_ship_uom_code VARCHAR2(3);
CURSOR cur_valid_lines(i_routing_id IN NUMBER) IS
SELECT ms.quantity, muom.uom_code
FROM mtl_supply ms, rcv_transactions rt, mtl_units_of_measure muom
WHERE rt.transaction_id = ms.rcv_transaction_id
AND rt.inspection_status_code =
decode(i_routing_id, 1, rt.inspection_status_code, 2, 'ACCEPTED')
AND ms.supply_type_code = 'RECEIVING'
AND ms.po_line_location_id = p_line_location_id
AND muom.unit_of_measure = ms.unit_of_measure;
BEGIN
IF (p_routing_id = '1' OR p_routing_id = '2') THEN
--standard or inspect required deliver
FOR rec_valid_line IN cur_valid_lines(p_routing_id) LOOP
l_qty := rec_valid_line.quantity;
--transact quantity according to uom
IF (rec_valid_line.uom_code <> p_uom_code) THEN
l_qty := inv_convert.inv_um_convert(p_item_id,
6,
l_qty,
rec_valid_line.uom_code,
p_uom_code,
NULL,
NULL);
END IF;
l_valid_quantity := l_valid_quantity + l_qty;
END LOOP;
ELSIF (p_routing_id = '3') THEN
-- direct deliver
SELECT plla.quantity - plla.quantity_received - plla.quantity_cancelled, muom.uom_code
INTO l_valid_quantity, l_ship_uom_code
FROM po_line_locations_all plla, mtl_units_of_measure muom
WHERE plla.quantity - plla.quantity_received - plla.quantity_cancelled > 0
AND muom.unit_of_measure = plla.unit_meas_lookup_code
AND plla.line_location_id = p_line_location_id;
--transact quantity according to uom
IF (l_ship_uom_code <> p_uom_code) THEN
l_valid_quantity := inv_convert.inv_um_convert(p_item_id,
6,
l_valid_quantity,
l_ship_uom_code,
p_uom_code,
NULL,
NULL);
END IF;
END IF;
xxdomi_cn_conc_utl.debug('l_valid_quantity : ' || l_valid_quantity || ' ;p_deliver_qty : ' ||
p_deliver_qty);
IF (l_valid_quantity >= p_deliver_qty) THEN
RETURN 'VALID';
ELSE
RETURN 'INVALID';
END IF;
EXCEPTION
WHEN OTHERS THEN
xxdomi_cn_conc_utl.log_msg('check_po_valid_quantity: ' || SQLERRM);
RETURN 'INVALID';
END check_po_valid_quantity;
对于IR FUNCTION check_ir_valid_quantity(p_routing_id IN NUMBER
,p_req_line_id IN NUMBER
,p_deliver_qty IN NUMBER
,p_uom_code IN VARCHAR2
,p_item_id IN NUMBER) RETURN VARCHAR2 IS
l_qty NUMBER := 0;
l_valid_quantity NUMBER := 0;
--valid lines for routing_id 1&2
CURSOR cur_valid_lines(i_routing_id IN NUMBER) IS
SELECT ms.quantity, muom.uom_code
FROM mtl_supply ms, rcv_transactions rt, mtl_units_of_measure muom
WHERE ms.req_line_id = p_req_line_id
AND ms.supply_type_code = 'RECEIVING'
AND ms.rcv_transaction_id = rt.transaction_id
AND rt.inspection_status_code =
decode(i_routing_id, 1, rt.inspection_status_code, 2, 'ACCEPTED')
AND muom.unit_of_measure = ms.unit_of_measure;
--valid lines for routing_id 3
CURSOR cur_dir_valid_lines IS
SELECT ms.quantity, muom.uom_code
FROM mtl_supply ms, mtl_units_of_measure muom
WHERE ms.req_line_id = p_req_line_id
AND ms.supply_type_code = 'SHIPMENT'
AND muom.unit_of_measure = ms.unit_of_measure;
BEGIN
IF (p_routing_id = '1' OR p_routing_id = '2') THEN
--standard or inspect required deliver
FOR rec_valid_line IN cur_valid_lines(p_routing_id) LOOP
l_qty := rec_valid_line.quantity;
--transact quantity according to uom
IF (rec_valid_line.uom_code <> p_uom_code) THEN
l_qty := inv_convert.inv_um_convert(p_item_id,
6,
l_qty,
rec_valid_line.uom_code,
p_uom_code,
NULL,
NULL);
END IF;
l_valid_quantity := l_valid_quantity + l_qty;
END LOOP;
ELSIF (p_routing_id = '3') THEN
--direct deliver
FOR rec_dir_valid_line IN cur_dir_valid_lines LOOP
l_qty := rec_dir_valid_line.quantity;
--transact quantity according to uom
IF (rec_dir_valid_line.uom_code <> p_uom_code) THEN
l_qty := inv_convert.inv_um_convert(p_item_id,
6,
l_qty,
rec_dir_valid_line.uom_code,
p_uom_code,
NULL,
NULL);
END IF;
l_valid_quantity := l_valid_quantity + l_qty;
END LOOP;
END IF;
IF (l_valid_quantity >= p_deliver_qty) THEN
RETURN 'VALID';
ELSE
RETURN 'INVALID';
END IF;
EXCEPTION
WHEN OTHERS THEN
xxdomi_cn_conc_utl.log_msg('check_ir_valid_quantity: ' || SQLERRM);
RETURN 'INVALID';
END check_ir_valid_quantity;
以上检查程序综合考虑了不同的三种入库方式,其中 p_routing_id有三种值:
1:表示标准入库;
2:表示需要检验的入库;
3:表示直接入库;
以上程序也考虑到了单位的转换,支持入库单位与接收单位不想同的情况下的入库数量校验。
对于带批次或序列号的接收入库 对于带批次或序列号的接收入库,对于 1行 rcv_transactions_interface记录需要额外插两张 MTL的接口表。这里有一个比较诡异的地方,就是接收入库时,插 rcv_serials_interface , 以及 rcv_lots_interface这两张表是没用的,而一定要插 mtl_transaction_lots_interface以及 mtl_serial_numbers_interface这两张MTL表,而且对应的要设置
rcv_transactions_interface.use_mtl_lot := 2 ;
rcv_transactions_interface.use_mtl_serial := 2 ;
以下程序在 11i下验证通过。
--lot info------------
IF
(rec_line.lot_number
IS
NOT
NULL
)
THEN
mtl_transaction_lots_interfac.last_update_date :=
SYSDATE
;
mtl_transaction_lots_interfac.last_updated_by := fnd_global.user_id;
mtl_transaction_lots_interfac.creation_date :=
SYSDATE
;
mtl_transaction_lots_interfac.created_by := fnd_global.user_id;
mtl_transaction_lots_interfac.last_update_login := -
1
;
mtl_transaction_lots_interfac.product_code :=
'RCV'
;
mtl_transaction_lots_interfac.product_transaction_id := rcv_transactions_interface.interface_transaction_id;
mtl_transaction_lots_interfac.lot_number := rec_line.lot_number;
mtl_transaction_lots_interfac.transaction_quantity := l_iface_rcv_rec.quantity;
mtl_transaction_lots_interfac.primary_quantity := l_primary_qty;
SELECT
mtl_material_transactions_s.NEXTVAL
INTO
mtl_transaction_lots_interfac.transaction_interface_id
FROM
dual;
l_primary_qty :=1;
INSERT
INTO
mtl_transaction_lots_interface
VALUES
mtl_transaction_lots_interfac;
END
IF
;
--serial info
IF
(serial_number
IS
NOT
NULL
)
THEN
mtl_serial_numbers_interface.last_update_date :=
SYSDATE
;
mtl_serial_numbers_interface.last_updated_by := fnd_global.user_id;
mtl_serial_numbers_interface.creation_date :=
SYSDATE
;
mtl_serial_numbers_interface.created_by := fnd_global.user_id;
mtl_serial_numbers_interface.last_update_login := -
1
;
mtl_serial_numbers_interface.product_code :=
'RCV'
;
mtl_serial_numbers_interface.fm_serial_number :=serial_number;
mtl_serial_numbers_interface.to_serial_number :=serial_number;
mtl_serial_numbers_interface.process_flag :=
1
;
mtl_serial_numbers_interface.product_transaction_id := l_iface_rcv_rec.interface_transaction_id;
SELECT
mtl_material_transactions_s.NEXTVAL
INTO
mtl_serial_numbers_interface.transaction_interface_id
FROM
dual;
INSERT
INTO
mtl_serial_numbers_interface
VALUES
mtl_serial_numbers_interface;
END
IF
;
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/25164132/viewspace-746657/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/25164132/viewspace-746657/