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

最新推荐文章于 2024-05-14 13:52:29 发布

meteorlWJ

最新推荐文章于 2024-05-14 13:52:29 发布

阅读量3.8k

点赞数

分类专栏： Oracle EBS 文章标签： interface transactions exception header date insert

本文链接：https://blog.csdn.net/meteorlWJ/article/details/5799879

版权

这段Oracle PL/SQL代码展示了如何处理EBS系统中PO内部申请的自动接收入库。通过声明游标获取需求详情，然后插入到收货头和交易接口表中，以完成自动编号、日期记录和状态设置。

摘要由CSDN通过智能技术生成

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;
        /*SELECT po.rcv_interface_groups_s.NEXTVAL
        INTO l_iface_hdr_rec.group_id
        FROM dual;*/
        l_i