EBS实践—PO内部申请自动接收入库

declare 
   CURSOR cur_req_data IS
      SELECT prl.*
        FROM po_requisition_lines_all   prl,
             po_requisition_headers_all prh
       WHERE prh.requisition_header_id = prl.requisition_header_id
         AND prl.requisition_line_id = p_requisition_line_id;
  
    l_iface_hdr_rec po.rcv_headers_interface%ROWTYPE;
    l_iface_rcv_rec po.rcv_transactions_interface%ROWTYPE;
  
    l_shipment_number VARCHAR2(30);
  BEGIN
    BEGIN
      SELECT rsh.shipment_num
        INTO l_shipment_number
        FROM rcv_shipment_headers rsh,
             rcv_shipment_lines   rsl
       WHERE rsh.shipment_header_id = rsl.shipment_header_id
         AND rsl.requisition_line_id = p_requisition_line_id
         AND rsl.shipment_line_id = p_shipment_line_id;
    EXCEPTION
      WHEN no_data_found THEN
        l_shipment_number := NULL;
      WHEN OTHERS THEN
        l_shipment_number := NULL;
    END;
    FOR l_req_data IN cur_req_data
    LOOP
      BEGIN
        SELECT po.rcv_headers_interface_s.NEXTVAL
          INTO l_iface_hdr_rec.header_interface_id
          FROM dual;
        
        l_iface_hdr_rec.group_id          := g_receipt_group_id;
        l_iface_hdr_rec.last_update_date  := SYSDATE;
        l_iface_hdr_rec.last_updated_by   := fnd_global.user_id;
        l_iface_hdr_rec.creation_date     := SYSDATE;
        l_iface_hdr_rec.created_by        := fnd_global.user_id;
        l_iface_hdr_rec.last_update_login := fnd_global.login_id;
      
        l_iface_rcv_rec.last_update_date  := SYSDATE;
        l_iface_rcv_rec.last_updated_by   := fnd_global.user_id;
        l_iface_rcv_rec.creation_date     := SYSDATE;
        l_iface_rcv_rec.created_by        := fnd_global.user_id;
        l_iface_rcv_rec.last_update_login := fnd_global.login_id;
      
        l_iface_hdr_rec.processing_status_code  := 'PENDING';
        l_iface_hdr_rec.receipt_source_code     := 'INTERNAL ORDER';
        l_iface_hdr_rec.transaction_type        := 'NEW';
        l_iface_hdr_rec.receipt_num             := l_shipment_number; --Automatic Number
        l_iface_hdr_rec.expected_receipt_date   := SYSDATE;
        l_iface_hdr_rec.validation_flag         := 'Y';
        l_iface_hdr_rec.ship_to_organization_id := l_req_data.destination_organization_id;
      
        INSERT INTO rcv_headers_interface
        VALUES l_iface_hdr_rec;
      
        SELECT rcv_transactions_interface_s.NEXTVAL
          INTO l_iface_rcv_rec.interface_transaction_id
          FROM dual;
        --l_requisition_line_id                   := l_req_data.requisition_line_id;
        l_iface_rcv_rec.header_interface_id     := l_iface_hdr_rec.header_interface_id;
        l_iface_rcv_rec.group_id                := l_iface_hdr_rec.group_id;
        l_iface_rcv_rec.processing_status_code  := 'PENDING';
        l_iface_rcv_rec.transaction_status_code := 'PENDING';
        l_iface_rcv_rec.processing_mode_code    := 'IMMEDIATE';
        l_iface_rcv_rec.validation_flag         := 'Y';
      
        --l_iface_rcv_rec.receipt_source_code     := 'VENDOR';
        l_iface_rcv_rec.requisition_line_id := l_req_data.requisition_line_id;
      
        l_iface_rcv_rec.source_document_code := 'REQ'; --po
      
        l_iface_rcv_rec.transaction_type      := 'RECEIVE';
        l_iface_rcv_rec.destination_type_code := 'RECEIVING';
      
        l_iface_rcv_rec.transaction_date     := SYSDATE;
        l_iface_rcv_rec.employee_id          := l_req_data.to_person_id;
        l_iface_rcv_rec.auto_transact_code   := 'DELIVER';
        l_iface_rcv_rec.receipt_source_code  := 'INTERNAL ORDER';
        l_iface_rcv_rec.from_organization_id := l_req_data.source_organization_id;
        l_iface_rcv_rec.to_organization_id   := l_req_data.destination_organization_id;
      
        l_iface_rcv_rec.requisition_line_id    := l_req_data.requisition_line_id;
        l_iface_rcv_rec.req_distribution_id    := 959926;
        l_iface_rcv_rec.shipment_num           := l_iface_hdr_rec.receipt_num;
       -- l_iface_rcv_rec.freight_carrier_code   := l_req_data.unit_meas_lookup_code; #B001
        l_iface_rcv_rec.location_id            := l_req_data.deliver_to_location_id;
        l_iface_rcv_rec.deliver_to_location_id := l_req_data.deliver_to_location_id;
        l_iface_rcv_rec.interface_source_code  := 'NOT INSPECTED';
        l_iface_rcv_rec.routing_header_id      := 3;
        l_iface_rcv_rec.routing_step_id        := 1;
      
        l_iface_rcv_rec.interface_source_code := 'NOT INSPECTED';
        l_iface_rcv_rec.destination_type_code := 'INVENTORY';
      
        l_iface_rcv_rec.subinventory               := p_subinventory_code; --实际入至子库存
        l_iface_rcv_rec.destination_context        := 'INVENTORY';
        l_iface_rcv_rec.source_doc_quantity        := p_quantity;--实际入库数量
        l_iface_rcv_rec.source_doc_unit_of_measure := l_req_data.unit_meas_lookup_code;
      
        l_iface_rcv_rec.item_id          := l_req_data.item_id;
        l_iface_rcv_rec.cateGory_id      := l_req_data.category_id;
        l_iface_rcv_rec.item_description := l_req_data.item_description;
        l_iface_rcv_rec.quantity         := p_quantity;
        l_iface_rcv_rec.unit_of_measure  := l_req_data.unit_meas_lookup_code; --Not Code
      
        l_iface_rcv_rec.ship_to_location_id := l_req_data.deliver_to_location_id;
        l_iface_rcv_rec.location_id         := l_req_data.line_location_id;
      
        l_iface_rcv_rec.interface_source_code    := 'PO Requisition';
        l_iface_rcv_rec.interface_source_line_id := '123456789';
      
        INSERT INTO rcv_transactions_interface
        VALUES l_iface_rcv_rec;
      EXCEPTION
        WHEN OTHERS THEN
          dbms_output.put_line('Exception in calling po_requisition_process:' || sqlERRM);
      END;
    END LOOP;
  EXCEPTION
    WHEN OTHERS THEN
      dbms_output.put_line('Exception in calling po_requisition_process:' || SQLERRM);
end;