- /*+++++++++++++++++++++++++++++++++++++++++++++++++++
- --将数据写入至采购申请接口表
- +++++++++++++++++++++++++++++++++++++++++++++++++++*/
- 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;
转载出处：https://blog.csdn.net/cai_xingyun/article/details/17795699