EBS采购订单接收

/*
begin
  fnd_global.apps_initialize(user_id      => 8162,
                             resp_id      => 50692,
                             resp_appl_id => 20003);
  mo_global.init('M');
end;
*/

/*
select pha.segment1,
       pha.po_header_id,
       pla.po_line_id,
       pla.item_id,
       pla.quantity,
       pla.unit_meas_lookup_code,
       pda.line_location_id,
       pda.lo
       pda.po_distribution_id
  from po_headers_all pha, po_lines_all pla, po_distributions_all pda
 where pha.org_id = 295
   and pha.created_by = 8162
   and pla.po_header_id = pha.po_header_id
   and pda.po_line_id = pla.po_line_id
 order by pha.segment1 desc;
 */


--采购订单接收--attention:注意修改接收数量和插入批次表的数量保持一致
--测试通过uat 20190906
declare
 
    l_api_name CONSTANT VARCHAR2(30) := 'rcv_txn_process';
    l_savepoint_name VARCHAR2(30) := NULL;

 
    rc                  NUMBER := 0;
    outcome             VARCHAR2(200) := NULL;
    message             VARCHAR2(200) := NULL;
    r_val1              VARCHAR2(200) := NULL;
    r_val2              VARCHAR2(200) := NULL;
    r_val3              VARCHAR2(200) := NULL;
    r_val4              VARCHAR2(200) := NULL;
    r_val5              VARCHAR2(200) := NULL;
    r_val6              VARCHAR2(200) := NULL;
    r_val7              VARCHAR2(200) := NULL;
    r_val8              VARCHAR2(200) := NULL;
    r_val9              VARCHAR2(200) := NULL;
    r_val10             VARCHAR2(200) := NULL;
    r_val11             VARCHAR2(200) := NULL;
    r_val12             VARCHAR2(200) := NULL;
    r_val13             VARCHAR2(200) := NULL;
    r_val14             VARCHAR2(200) := NULL;
    r_val15             VARCHAR2(200) := NULL;
    r_val16             VARCHAR2(200) := NULL;
    r_val17             VARCHAR2(200) := NULL;
    r_val18             VARCHAR2(200) := NULL;
    r_val19             VARCHAR2(200) := NULL;
    r_val20             VARCHAR2(200) := NULL;
    x_str               VARCHAR2(4000) := NULL;
    timeout             NUMBER;
    l_str1              fnd_new_messages.message_text%TYPE := NULL;
    l_header_iface_rec  po.rcv_headers_interface%ROWTYPE;
    l_rcv_txn_iface_rec po.rcv_transactions_interface%ROWTYPE;
    l_mtl_iface_lots_rec         mtl_transaction_lots_interface%ROWTYPE; --批次接口表
    l_mtl_txn_lots_rec           mtl_transaction_lots_temp%ROWTYPE;
    l_group_id          NUMBER;
 
  BEGIN
 
    
      IF l_group_id IS NULL THEN
        l_group_id := po.rcv_interface_groups_s.nextval;
      END IF;
      l_header_iface_rec.header_interface_id     := po.rcv_headers_interface_s.nextval;
      l_header_iface_rec.group_id                := l_group_id;
      l_header_iface_rec.org_id                  := 295;--rec_poh.org_id;
      l_header_iface_rec.processing_status_code  := 'PENDING';