1、接收入库是项目中会经常碰到的开发，这类开发一般来说比较简单，但是接收入库在oracle 中其实涉及到很多模块，其中层次较多，也可以做得比较复杂。本文将尽可能深入细致地讨论接收入库的流程，种类，数据来源，数据的流动路径，以及各个数据点之间的对应关系。最后将给出一个较为全面的接收入库的样例代码。接收入库的种类接收入库可以按照数据来源分为 2 种：1. 对于 po 订单以及发放的接收入库；2. 对于内部请购单生成的 sales order（后面的部分简称 so）的接收入库；接收入库还可以按照入库方式分为 3 种：1 直接入库：接收后自动入库；2 标准入库：先接收，后入库，分两个步骤；3 需要检验的接
2、收入库：先接收，然后检验，最后入库；对于这些不同类型的入库，程序的差别可能会很大。所以一个完整灵活可以应付所有接收入库的程序也是较为复杂的。数据流动我们将分析接收入库的数据来源，针对不同的接收入库类别，给出最常见实用的取数逻辑。最后我们将给出一个总体的数据流图，其中包含了各个数据点间的层次关系，帮助大家理解。其中涉及到的较为重要的表(我们忽略了一些显而易见的表，比如po_headers_all,po_line_locations_all 等等)：mtl_supply 最重要的一张表，其中包括了所有可以接收入库的记录Rcv_transaction 这张表的内容是已经接收入库的事物处理记录，在标准
3、入库或检验入库的时候，我们可能需要其中的接收信息。Rcv_shipment_headers 发运头表Rcv_shipment_lines 发运行表标准订单以及一揽子采购协议发放1 对于标准订单，当订单被 approve 之后，系统会在 mtl_supply 这张表中插入该订单相关的记录，系统默认为每一个订单分配行生成一条 mtl_supply 数据，其supply_type_code 值为“PO ”，表示物料供应的来源，目前是来自 po 订单。所以mtl_supply 表中，对于标准订单以及一揽子发放，其数据层次是明细到分配行的，即根据 distribution_id 可以唯一确定一个 mtl
4、_supply 行：SELECT pha.segment1,pla.line_num,plla.shipment_num,pda.distribution_num,ms.supply_type_code,ms.quantityFROM mtl_supply ms,po_headers_all pha,po_lines_all pla,po_line_locations_all plla,po_distributions_all pdaWHERE ms.po_distribution_id = pda.po_distribution_idAND ms.supply_type_code = POA
5、ND pha.po_header_id = pla.po_header_idAND plla.po_header_id = pha.po_header_idAND plla.po_line_id = pla.po_line_idAND pda.line_location_id = plla.line_location_idAND pha.segment1 = 1000100以上 sql 语句将筛选出订单编号为1000100的订单可以接收的 distribution 行以及可以接收的数量。注意：在这个时候，rcv_shipmet_headers 以及 rcv_shipment_lines 这两张
6、表中还没有数据，这是 po 订单与内部请购单接收数据流中的一个较大的差异。造成这种差异的原因是：对于 po 订单，其发运对象是外部供应商，系统无法控制以及检测外部供应商的发运动作，所以只能在做接收的时候，才能生成发运信息，在任何接收之前，系统是不知道任何发运数据的；而对于内部请购单生成的 Sales Order 来说，发运对象是公司内部其它组织或 ou，发运信息是在其他组织或 OU 做 SO 的发运时就产生了，而不必等到接收的时候才产生相应的发运信息。由于以上差异，在 po 订单做接收时，接口中不必提供 shipment 信息，而在 po 入库以及内部请购单生成的 so 接收的时候，则需要提供
7、 shipment 信息。2 接下来，当我们为 po 订单做接收的时候，系统会生成相应的 shipment 信息，经过测试，每次接收会生成一个新的 shipment 头，每个接收行会生成一个新的shipment 行。所以，对于 po 接收，其接收的 transaction id 与发运行的 shipment line id 是一一对应的，在做 po 入库的时候，可以利用这一点，通过 shipment line 找到可以入库的 parent transaction id。另外，对于 po 接收，其在发运行中的quantity received 与 quantity shipped 字段的值总是一
8、样的，因为发运记录是完全参照接收记录生成的。3 对于直接入库的订单，接收后将同时在 RCV_TRANSACTION 中生成接收记录以及入库记录;对于标准接收则分为接收和入库两个步骤，接收生成接收事务处理记录，并且同时在 MTL_SUPPLY 中可以找到 mtl_supply_type 为“RECEIVING”的记录，表示存在可入库记录了，入库来源是“RECEIVING” 。入库后再同一张表(RCV_TRANSACTION)中生成入库事务处理记录；虽然接收后在 MTL_SUPPLY 表中可以查到可入库的信息，但是因为接收后已经在 RCV_TRANSACTION 中产生了接收事务处理记录，理论上来
9、说，以上两者的数据应当是等价的，但是这时候我们习惯于从 RCV_TRANSACTION 表中查找可以入库的记录。对于需要检验的接收入库，在接收后，需要完成检验，对接收记录打上检验通过标记后，才能进行入库动作，最终生成入库事务处理记录。标准订单接收入库数据流向图对内部请购单生成的 Sales Order 的接收入库内部请购单因为涉及到内部销售订单以及发运信息，所以比 PO 单的接收多了若干环节，显得较为复杂。基本的数据流如下：1 创建内部请购单，审批成功后，通过请求生成对应的 Sales Order，完成从 PO 表到 OE表的第一个步骤的数据流动。可以通过 OE 表的 Reference 字段
10、来追溯对应的请购单(IR) 。这时候虽然在 MTL_SUPPLY 中也产生了供应数据，但是这个时候是无法对这个 IR 进行接收的，因为对应的 SO 还没有发运记录，没有发运怎么能接收呢。2 对 SO 进行挑库发放，确认发运后，在 RCV_SHIPMENT 中生成了发运记录。完成了第二个步骤的数据流动。注意，由于存在 SO 拆行，以及分批发运的状况，所以发运行与IR 的行是不存在严格意义上的数量对应关系的，一个 IR 行生成的 SO 行，可能被拆分在若干个发运记录中，这也是在做 IR 接收入库时，接口表要求插入发运信息的原因，对于 IR 的接收，是以发运事务处理为单位的。发放确认后，在 MTL_
11、SUPPLY 中，将可以找到 supply_type_code 为“SHIPMENT”的供应记录，表示从这个时刻起，这个 IR 相关的订单可以开始接收了，接收来源是“SHIPMENT” ；3 接下来的步骤基本和 PO 接收入库一致。值得注意的是在对 IR 生成的 SO 做接收时，可以发现一个明显的特点，接收事务处理界面中的可接收记录根据发运方式被拆成了多行，而不像 PO 接收时那样一个 PO 行对应一行可接收记录。这也直接说明了对于 IR 来说接收是以发运为单位进行的。接口表注意事项不同的入库方式Oracle 提供了三种可选的入库方式( 在 PO 订单分配行界面维护)：1 直接入库：接收后自动
12、入库；2 标准入库：接收后，进行入库动作，才完成最终入库；3 要求检验的入库：接收后，进行检验，打印检验通过标记后，才能进行入库动作。对于这三种接收入库，接口表通过不同的控制字段来完成期望的接收入库动作：a) 对于直接入库的接收，插接收事务处理的接口行表(rcv_transactions_interface)时的几个关键的状态字段：rcv_transactions_interface.transaction_type := RECEIVE;rcv_transactions_interface.auto_transact_code := DELIVER;rcv_transactions_inte
13、rface.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) 对于接收甚至检验后的数据做
14、入库时，插接收事务处理的接口行表(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 的可入库数量的算法：
15、对于 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 ISl_qty NUMBER := 0;l_valid_quantity NUMBER := 0;l_ship_uom_code VARCHAR2(3);CURSOR cur_valid_lines(i_routin
16、g_id IN NUMBER) ISSELECT ms.quantity, muom.uom_codeFROM mtl_supply ms, rcv_transactions rt, mtl_units_of_measure muomWHERE rt.transaction_id = ms.rcv_transaction_idAND rt.inspection_status_code =decode(i_routing_id, 1, rt.inspection_status_code, 2, ACCEPTED)AND ms.supply_type_code = RECEIVINGAND ms.
17、po_line_location_id = p_line_location_idAND muom.unit_of_measure = ms.unit_of_measure;BEGINIF (p_routing_id = 1 OR p_routing_id = 2) THEN-standard or inspect required deliverFOR rec_valid_line IN cur_valid_lines(p_routing_id) LOOPl_qty := rec_valid_line.quantity;-transact quantity according to uomIF
18、 (rec_valid_line.uom_code 0AND muom.unit_of_measure = plla.unit_meas_lookup_codeAND plla.line_location_id = p_line_location_id;-transact quantity according to uomIF (l_ship_uom_code = p_deliver_qty) THENRETURN VALID;ELSERETURN INVALID;END IF;EXCEPTIONWHEN OTHERS THENxxdomi_cn_conc_utl.log_msg(check_
19、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 ISl_qty NUMBER := 0;l_valid_quantity NUMBER := 0;-valid l
20、ines for routing_id 1-valid lines for routing_id 3CURSOR cur_dir_valid_lines ISSELECT ms.quantity, muom.uom_codeFROM mtl_supply ms, mtl_units_of_measure muomWHERE ms.req_line_id = p_req_line_idAND ms.supply_type_code = SHIPMENTAND muom.unit_of_measure = ms.unit_of_measure;BEGINIF (p_routing_id = 1 O
21、R p_routing_id = 2) THEN -standard or inspect required deliverFOR rec_valid_line IN cur_valid_lines(p_routing_id) LOOPl_qty := rec_valid_line.quantity;-transact quantity according to uomIF (rec_valid_line.uom_code p_uom_code) THENl_qty := inv_convert.inv_um_convert(p_item_id,6,l_qty,rec_dir_valid_li
22、ne.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) THENRETURN VALID;ELSERETURN INVALID;END IF;EXCEPTIONWHEN OTHERS THENxxdomi_cn_conc_utl.log_msg(check_ir_valid_quantity: | SQLERRM);RETURN INVALID;END check_ir_v
23、alid_quantity;以上检查程序综合考虑了不同的三种入库方式，其中 p_routing_id 有三种值：1：表示标准入库；2：表示需要检验的入库；3：表示直接入库；以上程序也考虑到了单位的转换，支持入库单位与接收单位不想同的情况下的入库数量校验。对于带批次或序列号的接收入库对于带批次或序列号的接收入库，对于 1 行 rcv_transactions_interface记录需要额外插两张 MTL 的接口表。这里有一个比较诡异的地方，就是接收入库时，插rcv_serials_interface，以及 rcv_lots_interface这两张表是没用的，而一定要插 mtl_transact
24、ion_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) THENmtl_transaction_lots_interfac.last_update_date := SYSDATE;mtl_transaction_l
25、ots_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_interf
26、ac.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_m
27、aterial_transactions_s.NEXTVALINTO mtl_transaction_lots_interfac.transaction_interface_idFROM dual;l_primary_qty :=1;INSERT INTO mtl_transaction_lots_interface VALUES mtl_transaction_lots_interfac;END IF;-serial infoIF (serial_number IS NOT NULL) THENmtl_serial_numbers_interface.last_update_date :=
28、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_ser
29、ial_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.NEXTVALINTO mtl_serial_numbers_interface.transaction_interface_idFROM dual;INSERT INTO mtl_serial_numbers_interface VALUES mtl_serial_numbers_interface;END IF;
