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

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



详解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_REQUISITIO