返回顶部
首页 > 资讯 > 后端开发 > Python >EBS实践—PO内部申请自动接收入库
  • 805
分享到

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

interfacetransactionsexceptionheaderdate 2023-05-25 22:05:55 805人浏览 薄情痞子

Python 官方文档:入门教程 => 点击学习

摘要

declare     CURSOR cur_req_data IS       SELECT p

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;

--结束END--

本文标题: EBS实践—PO内部申请自动接收入库

本文链接: https://www.lsjlt.com/news/218551.html(转载时请注明来源链接)

有问题或投稿请发送至: 邮箱/279061341@qq.com    QQ/279061341

猜你喜欢
软考高级职称资格查询
编程网,编程工程师的家园,是目前国内优秀的开源技术社区之一,形成了由开源软件库、代码分享、资讯、协作翻译、讨论区和博客等几大频道内容,为IT开发者提供了一个发现、使用、并交流开源技术的平台。
  • 官方手机版

  • 微信公众号

  • 商务合作