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



详解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
WHERE mpv.organization_id = l_poreq_record(i).received_org_id;
--who
l_poreq_inter_record.creation_date := SYSDATE;
l_poreq_inter_record.created_by := fnd_global.user_id;
l_poreq_inter_record.last_update_login := fnd_global.login_id;
l_poreq_inter_record.last_update_date := SYSDATE;
l_poreq_inter_record.last_updated_by := fnd_global.user_id;
--purchase
l_poreq_inter_record.interface_source_code := 'ROI'; --来源代码,用来控制接口请求的运行范围
l_poreq_inter_record.source_type_code := 'VENDOR'; --来源类型。如果目标类型是EXPENSE或者SHOP FLOOR,那么必须给,一般是VENDOR
l_poreq_inter_record.requisition_type := 'PURCHASE'; --采购申请类型:默认采购申请
l_poreq_inter_record.destination_type_code := l_poreq_record(i)
.destination_type_code; --目的地类型
l_poreq_inter_record.item_description := l_poreq_record(i)
.item_description; --物料名称
l_poreq_inter_record.quantity := l_poreq_record(i)
.quantity; --数量
l_poreq_inter_record.unit_price := l_poreq_record(i)
.unit_price; --物料编码携带的价格
l_poreq_inter_record.authorization_status := 'INCOMPLETE'; --状态,未审批INCOMPLETE
l_poreq_inter_record.req_number_segment1 := l_poreq_record(i)
.application_no; --申请编号
l_poreq_inter_record.header_attribute10 := l_poreq_record(i)
.current_month; --月份
l_poreq_inter_record.header_attribute11 := l_poreq_record(i)
.equip_mai_required; --是否设备维修
l_poreq_inter_record.note_to_buyer := l_poreq_record(i)
.note_to_buyer; --通知采购员
l_poreq_inter_record.note_to_receiver := l_poreq_record(i)
.note_to_receiver; --通知接收员
l_poreq_inter_record.item_id := l_poreq_record(i)
.item_id; --物料编码ID
l_poreq_inter_record.item_segment1 := l_poreq_record(i)
.item_number; --物料编码
l_poreq_inter_record.category_id := l_poreq_record(i)
.category_id; --物料类别的ID
l_poreq_inter_record.category_segment1 := l_poreq_record(i)
.category_segment1; --物料类别
l_poreq_inter_record.unit_of_measure := l_poreq_record(i)
.unit_of_measure; --计量单位
l_poreq_inter_record.line_type := '货物'; --行类型默认为货物(物料类型)
l_poreq_inter_record.un_number_id := l_poreq_record(i)
.un_number_id; --提报部门ID
l_poreq_inter_record.un_number := l_poreq_record(i)
.un_number; --提报部门
l_poreq_inter_record.hazard_class_id := l_poreq_record(i)
.project_number_id; --工程项目号ID
l_poreq_inter_record.hazard_class := l_poreq_record(i)
.project_number; --工程项目号
l_poreq_inter_record.destination_organization_id := l_poreq_record(i)
.received_org_id; --接收组织ID
l_poreq_inter_record.deliver_to_location_id := l_poreq_record(i)
.received_place_id; --接收地点ID
l_poreq_inter_record.deliver_to_requestor_id := l_poreq_record(i)
.deliver_to_requestor_id; --申请人ID
l_poreq_inter_record.deliver_to_requestor_name := l_poreq_record(i)
.deliver_to_requestor_name; --申请人
l_poreq_inter_record.suggested_buyer_id := l_poreq_record(i)
.buyer_id; --采购员ID
l_poreq_inter_record.suggested_buyer_name := l_poreq_record(i)
.suggested_buyer_name; --采购员
l_poreq_inter_record.suggested_vendor_item_num := substrb(l_poreq_record(i)
.equip_spare_use,
1,
25); --设备备件用途
l_poreq_inter_record.line_attribute_category := '';--<span id="kM0.9812031188048422">@此处为说明性弹性域的段值</span>
l_poreq_inter_record.line_attribute2 := l_poreq_record(i)
.line_attribute2; --<span id="kM0.2401782302185893">@弹性域值(客户化)</span>
l_poreq_inter_record.line_attribute6 := l_poreq_record(i)
.line_attribute6; --维修号
l_poreq_inter_record.need_by_date := l_poreq_record(i)
.require_time; --需要时间
l_poreq_inter_record.currency_code := l_poreq_record(i)
.currency_code; --币种
l_poreq_inter_record.org_id := l_poreq_record(i).org_id; --业务实体
--L_POREQ_INTER_RECORD.CHARGE_ACCOUNT_ID := L_POREQ_INTER_REC(i).ACCOUNT_ID;
--L_POREQ_INTER_RECORD.ACCRUAL_ACCOUNT_ID := --应计帐户
--L_POREQ_INTER_RECORD.VARIANCE_ACCOUNT_ID := --差异帐户
INSERT INTO po.po_requisitions_interface_all
VALUES l_poreq_inter_record;
/*******此处需要增加反写记录设置,即是标记哪些数据已经被创建过申请等*********/
COMMIT;
END LOOP;
CLOSE poreq_cur;
retcode := '0';
errbuf := '导入成功' || l_poreq_record.count || '条采购申请。';
END IF;
/* --勾选的记录的数量与成功导入的记录数的关系
If L_POREQ_RECORD.COUNT*/
END;

                           --多条记录M,单条记录S,全部记录A
mo_global.set_policy_context(p_access_mode => 'S', p_org_id => org_id);
fnd_request.set_org_id(org_id);
l_request_id := fnd_request.submit_request('PO',
'REQIMPORT',
'',
to_char(SYSDATE,
'YYYY/MM/DD HH24:MI:SS'),
FALSE,
'ROI',
'',
'ALL',
'',
'N',
'N',
chr(0), COMMIT;

详解EBS接口开发之采购申请导入的更多相关文章

  1. 详解EBS接口开发之采购订单导入

    采购订单常用标准表简介 1.1   常用标准表 如下表中列出了与采购订单导入相关的表和说明: 表名 说明 其他信息 po.po_headers_all 采购订单头 采购订单号,采购类型,供应商,地点, ...

  2. 详解EBS接口开发之采购接收&退货处理之关键API--(补充)

    PROCEDURE process_rcv_online(p_api_version IN NUMBER, p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_ ...

  3. 详解EBS接口开发之应收INVOICE导入

    (一)应收INVOICE常用标准表简介 1.1   常用标准表 如下表中列出了与应收INVOICE导入相关的表和说明: 表名 说明 其他信息 RA_BATCH_SOURCES_ALL AR事务处理来源 ...

  4. 详解EBS接口开发之销售订单导入

     步骤 1. 创建一个订单导入来源.       - 导航到 OM -> 设置 -> 订单 -> 导入来源       - 输入一个新的订单导入来源名称和描述 - 选择启用来激活 ...

  5. 详解EBS接口开发之库存事务处理采购接收--补充

    除了可以用  详解EBS接口开发之库存事务处理采购接收的方法还可以用一下方法,不同之处在于带有批次和序列控制的时候实现方式不同 The script will load records into ...

  6. 详解EBS接口开发之库存事务处理批次更新

    库存事务处理批次有时候出现导入错误需要更新可使用次程序更新,批次导入可参考博客 详解EBS接口开发之库存事务处理-物料批次导入 http://blog.csdn.net/cai_xingyun/art ...

  7. 供应商API补充(详解EBS接口开发之供应商导入)(转)

    原文地址  供应商导入的API补充(详解EBS接口开发之供应商导入) --供应商 --创建 AP_VENDOR_PUB_PKG.Create_Vendor ( p_api_version IN NUM ...

  8. 详解EBS接口开发之应收款处理

    参考实例参考:杜春阳 R12应收模块收款API研究 (一)应收款常用标准表简介 1.1   常用标准表 如下表中列出了与应收款处理相关的表和说明: 表名 说明 其他信息 AR_BATCHES_ALL ...

  9. 详解EBS接口开发之库存事务处理采购接收和退货

    (一)接收&退货常用标准表简介 1.1   常用标准表 如下表中列出了与采购接收&退货导入相关的表和说明: 表名 说明 其他信息 RCV_TRANSACTIONS 采购接收事务表 事务 ...

随机推荐

  1. ●洛谷P3348 [ZJOI2016]大森林

    题链: https://www.luogu.org/problemnew/show/P3348 题解: LCT,神题 首先有这么一个结论: 每次的1操作(改变生长点操作),一定只会会对连续的一段区间产 ...

  2. jQuery简介和基础

    一.函数变量的作用域 1.变量的作用域实在声明时决定的而不是调用执行时决定 <script> var a=6,b=7; function t() { // var a=3,b=5; con ...

  3. redis启动失败

    redis.conf 设置的daemonize yes后台运行,使用redis-server redis.conf之后没有任何反应,以为启动成功 使用 ps -ef|grep redis 查看redi ...

  4. cocos2d-x-3.x 学习总结(一)

    这周学习了<cocos2d-x 3.x 游戏开发之旅>的第三章,做如下总结: 1.关于创建标签对象 书中是 Label* label = Label::create(); 可是总是提示出错 ...

  5. 3行代码快速实现Spring Boot Oauth2服务

    这里的3行代码并不是指真的只需要写3行代码,而是基于我已经写好的一个Spring Boot Oauth2服务.仅仅需要修改3行数据库配置信息,即可得到一个Spring Boot Oauth2服务. 项 ...

  6. 360面试-C++后端(实习)

    在线远程视频面试 一面: 自我介绍. 知道哪几种排序算法,各算法的时间复杂度. 解决hash冲突的几种方式. 有哪些方法清除cache中旧的数据.不太清楚,我扯到了操作系统中缺页中断的页面置换原理上, ...

  7. Linux学习之CentOS(四)----Linux文件属性、所有者、群组、其他组及文件权限操作简要总结

    Linux文件属性.所有者.群组.其他组及文件权限操作简要总结 首先介绍一个重要的知识点:文件属性控制权限 [root@www ~]# ls -al total 156 drwxr-x--- 4 ro ...

  8. Linux 定时执行任务:Crontab服务及应用集锦

    系统背景:cenos6.5 操作工具:Xshell5 情况一:正常情况(系统有service命令) 重启服务命令:[root@centos6 /]# service crond restart 启动服 ...

  9. CNN中的经典结构之AlexNet

    AlexNet的基本结构 Alexnet是由5个卷积层和三个全连接层组成,一共8个权重层(池化层不是权重层因为其没有参数),其中ReLU激活函数作用在每个卷积层和全连接层上,在第一个卷积层和第二个卷积 ...

  10. Java中next()和nextLine()

    next()读取到有效字符后才可以结束输入,对输入有效字符之前遇到的空格键.Tab键或Enter键等结束符,next()方法会自动将其去掉,只有在输入有效字符之后,next()方法才将其后输入的空格键 ...