详解EBS接口开发之采购申请导入

最新推荐文章于 2025-06-19 14:04:21 发布

caixingyun

最新推荐文章于 2025-06-19 14:04:21 发布

阅读量6.6k

点赞数 1

CC 4.0 BY-SA版权

分类专栏：详解EBS接口开发系列文章标签： EBS 采购申请导入

本文链接：https://blog.csdn.net/cai_xingyun/article/details/17795699

本文详细介绍了EBS系统中采购申请的接口开发，涵盖了如何进行数据导入的步骤和技术要点，帮助读者理解EBS接口在采购流程中的应用。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

更多内容可以参考我的博客

详解EBS接口开发之采购订单导入 http://blog.csdn.net/cai_xingyun/article/details/17114697

/*+++++++++++++++++++++++++++++++++++++++++++++++++++
  --将数据写入至采购申请接口表
  +++++++++++++++++++++++++++++++++++++++++++++++++++*/
  PROCEDURE insert_procure_main(errbuf  OUT NOCOPY VARCHAR2,
                                retcode OUT NOCOPY VARCHAR2) AS
    l_poreq_inter_record po.po_requisitions_interface_all%ROWTYPE;
    CURSOR poreq_cur IS
/**此处为游标收集数据的SQL，略***/
    --索引表
    TYPE l_poreq_tbl IS TABLE OF poreq_cur%ROWTYPE INDEX BY BINARY_INTEGER;
    l_poreq_record l_poreq_tbl;
    /*
    L_TEMPLATE_ID    Number;
    L_LINE_ID        Number; --记录上一行
    L_HEADER_ID      Number; --记录上一个头信息
    L_COUNT          Number := 0; --记录行中非本状态的行数
    L_LINE_STATUS    Varchar2(120);
    L_HEADER_STATUS  Varchar2(120);
    L_IMPORTED_COUNT Number := 0; --已导入的行数
    L_LINE_COUNT     Number := 0;
    
    L_ERROR_COUNT Number := 0; --导入发生错误的行数*/
  BEGIN
    --初始化  
    --RETCODE := '0';
    --ERRBUF  := Null;
    l_poreq_record.delete;
    ----Body Start
    OPEN poreq_cur;
    --批量获取数据
    FETCH poreq_cur BULK COLLECT
      INTO l_poreq_record;
    IF l_poreq_record.count > 0
    THEN
      --在输出结果时既可以使用集合的count属性和可以使用first和last：
      --for i in L_POREQ_RECORD.first .. L_POREQ_RECORD.last
      FOR i IN 1 .. l_poreq_record.count LOOP
        --接口表的序列:PO_REQUISITIONS_INTER_ALL_s
        SELECT po_requisitions_inter_all_s.nextval
        INTO l_poreq_inter_record.request_id
        FROM dual;
        --费用账户ID
        SELECT mpv.material_account
        INTO l_poreq_inter_record.charge_account_id
        FROM mtl_parameters_view mpv