AP发票数据导入接口开发实例（ap_invoices_interface）
数据库表：
-- Create table DROP TABLE CUX.cux_ap_invoice_interface; create table CUX.cux_ap_invoice_interface ( OU_NAME VARCHAR2(240), --组织 invoice_type VARCHAR2(240), --发票类型 vendor_name VARCHAR2(240), --供应商名称 site_name VARCHAR2(240), --供应商地点 invoice_date VARCHAR2(240), --发票日期 gl_date VARCHAR2(240), --GL日期 invoice_num VARCHAR2(240), --发票编号 currency_code VARCHAR2(240), --发票币种 invoice_amount VARCHAR2(240), --发票金额 exchange_rate_type VARCHAR2(240), --汇率类型 exchange_rate VARCHAR2(240), --汇率 pay_group VARCHAR2(240), --支付组 pay_method VARCHAR2(240), --付款方法 terms_date VARCHAR2(240), --条件日期 terms_name VARCHAR2(240), --条件 --ap_code_combination varchar2(240), --应付账款帐户() --header_att8 VARCHAR2(240), --头弹性8() header_global_att19 VARCHAR2(240), --头弹性global_19 line_num VARCHAR2(240), --行号 line_amount VARCHAR2(240), --行金额 project_name VARCHAR2(240), --采购项目号 expenditure_type VARCHAR2(240), --支出类型 expenditure_item_date VARCHAR2(240), --支出项日期 expenditure_organization VARCHAR2(240), --支出组织 line_gl_date VARCHAR2(240), --行GL日期 dist_code_combination VARCHAR2(240), --分配行账户 org_id VARCHAR2(240), vendor_id VARCHAR2(240), vendor_site_id VARCHAR2(240), dist_ccid VARCHAR2(240), ap_ccid VARCHAR2(240), project_id VARCHAR2(240), task_id VARCHAR2(240), is_success VARCHAR2(1) ) tablespace APPS_TS_TX_DATA;
验证程序：
-- ALTER SESSION SET NLS_LANGUAGE='SIMPLIFIED CHINESE';
/*
alter table cux.cux_ap_invoice_interface add org_id number;
alter table cux.cux_ap_invoice_interface add vendor_id number;
alter table cux.cux_ap_invoice_interface add vendor_site_id number;
alter table cux.cux_ap_invoice_interface add dist_ccid number;
alter table cux.cux_ap_invoice_interface add ap_ccid number;
alter table cux.cux_ap_invoice_interface add project_id number;
alter table cux.cux_ap_invoice_interface add task_id number;
*/
--1、导入数据
/*select * from CUX.cux_ap_invoice_interface for update*/
--2.为数据分配编号
/*DECLARE
CURSOR cur IS
SELECT ap.rowid, ap.*
FROM cux.cux_ap_invoice_interface ap;
l_num NUMBER := 0;
BEGIN
FOR i IN cur LOOP
l_num := l_num + 1;
UPDATE cux.cux_ap_invoice_interface ap
SET ap.row_id = l_num
WHERE ap.rowid = i.rowid;
END LOOP;
COMMIT;
END;
*/
--3.校验数据
DECLARE
CURSOR cur IS
SELECT *
FROM cux.cux_ap_invoice_interface;
l_count NUMBER := 0;
l_org_id NUMBER;
l_vendor_id NUMBER;
l_vendor_site_id NUMBER;
l_dist_ccid NUMBER;
l_ap_ccid NUMBER;
l_project_id NUMBER;
l_task_id NUMBER;
l_flag VARCHAR2(1);
BEGIN
FOR i IN cur LOOP
l_flag := 'T';
BEGIN
SELECT hou.organization_id
INTO l_org_id
FROM hr_operating_units hou
WHERE hou.name = i.ou_name;
EXCEPTION
WHEN OTHERS THEN
l_flag := 'F';
l_org_id := NULL;
dbms_output.put_line(i.row_id || 'OU不存在；');
END;
BEGIN
SELECT pv.vendor_id
INTO l_vendor_id
FROM po_vendors pv
WHERE pv.vendor_name = rtrim(i.vendor_name);
EXCEPTION
WHEN OTHERS THEN
l_flag := 'F';
l_vendor_id := NULL;
dbms_output.put_line(i.row_id || '供应商不存在；');
END;
BEGIN
/*SELECT max(pvs.vendor_site_id)
INTO l_vendor_site_id
FROM po_vendor_sites_all pvs, po_vendors pv
WHERE pv.vendor_name = rtrim(i.vendor_name)
AND pv.vendor_id = pvs.vendor_id
AND pvs.org_id = l_org_id;*/
SELECT pvs.vendor_site_id
INTO l_vendor_site_id
FROM po_vendor_sites_all pvs, po_vendors pv
WHERE pv.vendor_name = rtrim(i.vendor_name)
AND pv.vendor_id = pvs.vendor_id
AND pvs.org_id = l_org_id
AND pvs.vendor_site_code = i.site_name;
EXCEPTION
WHEN OTHERS THEN
l_flag := 'F';
l_vendor_site_id := NULL;
dbms_output.put_line(i.row_id || '供应商在该OU下不存在地点；');
END;
IF i.currency_code <> 'CNY' AND
(i.exchange_rate_type IS NULL OR i.exchange_rate IS NULL) THEN
l_flag := 'F';
dbms_output.put_line(i.row_id || '该外币发票没有汇率或者汇率类型；');
END IF;
BEGIN
SELECT gcc.code_combination_id
INTO l_dist_ccid
FROM gl_code_combinations_kfv gcc
WHERE gcc.concatenated_segments = i.dist_code_combination;
EXCEPTION
WHEN OTHERS THEN
l_flag := 'F';
l_dist_ccid := NULL;
dbms_output.put_line(i.row_id || '分配帐户不存在或不唯一；');
END;
/* IF i.ap_code_combination IS NOT NULL THEN
BEGIN
SELECT gcc.code_combination_id
INTO l_ap_ccid
FROM gl_code_combinations_kfv gcc
WHERE gcc.concatenated_segments = i.ap_code_combination;
EXCEPTION
WHEN OTHERS THEN
l_flag := 'F';
l_ap_ccid := NULL;
dbms_output.put_line(i.invoice_num || '负债帐户不存在或不唯一；');
END;
ELSE
l_ap_ccid := NULL;
END IF;*/
BEGIN
SELECT ppa.project_id
INTO l_project_id
FROM pa_projects_all ppa
WHERE ppa.segment1 = rtrim(i.project_name)
AND ppa.org_id = l_org_id;
EXCEPTION
WHEN OTHERS THEN
l_flag := 'F';
l_project_id := NULL;
dbms_output.put_line(i.row_id || '采购项目不存在或不唯一；');
END;
BEGIN
SELECT pt.task_id
INTO l_task_id
FROM pa_projects_all ppa, pa_tasks pt
WHERE ppa.segment1 = rtrim(i.project_name)
AND ppa.org_id = l_org_id
AND ppa.project_id = pt.project_id;
EXCEPTION
WHEN OTHERS THEN
l_flag := 'F';
l_task_id := NULL;
dbms_output.put_line(i.row_id || '采购项目对应的任务号不存在；');
END;
/*SELECT COUNT(1)
INTO l_count
FROM fnd_flex_values_vl ffvv, fnd_flex_value_sets ffvs
WHERE ffvv.flex_value_set_id = ffvs.flex_value_set_id
AND ffvs.flex_value_set_name = 'CUX_HR_PEOPLE_GRADE'
AND ffvv.flex_value = i.header_att8;
IF l_count < 1 THEN
l_flag := 'F';
dbms_output.put_line(i.invoice_num || '事业部板块信息错误；');
END IF;*/
IF l_flag = 'T' THEN
UPDATE cux.cux_ap_invoice_interface a
SET a.org_id = l_org_id,
a.vendor_id = l_vendor_id,
a.vendor_site_id = l_vendor_site_id,
a.dist_ccid = l_dist_ccid,
a.ap_ccid = l_ap_ccid,
a.project_id = l_project_id,
a.task_id = l_task_id,
a.is_success = 'T'
WHERE a.row_id = i.row_id;
END IF;
END LOOP;
COMMIT;
END;
--4.导入数据
--5,运行请求：应付款管理系统开放接口导入
AP数据导入程序：
-- ALTER SESSION SET NLS_LANGUAGE='SIMPLIFIED CHINESE';
DECLARE
CURSOR cur IS
SELECT *
FROM cux.cux_ap_invoice_interface;
rec_ap_invoice ap_invoices_interface%ROWTYPE;
rec_ap_invoice_line ap_invoice_lines_interface%ROWTYPE;
l_Tax_Rec Ap_Invoice_Lines_Interface%ROWTYPE;
l_invoice_id NUMBER;
l_org_id NUMBER;
l_group_id VARCHAR2(80);
l_request_id NUMBER;
l_flag NUMBER := 0;
l_Tax_Code VARCHAR2(30);
l_Line_Group_Number number;
BEGIN
l_group_id := 'QC201312021532';
FOR i IN cur LOOP
SELECT ap_invoices_interface_s.nextval
INTO l_invoice_id
FROM dual;
rec_ap_invoice.invoice_id := l_invoice_id;
rec_ap_invoice.org_id := i.org_id;
BEGIN
/*SELECT alc.lookup_code
INTO rec_ap_invoice.invoice_type_lookup_code
FROM ap_lookup_codes alc
WHERE alc.lookup_type = 'INVOICE TYPE'
AND alc.displayed_field = i.invoice_type;*/
SELECT lookup_code
INTO rec_ap_invoice.invoice_type_lookup_code
FROM (SELECT lv.lookup_type,
lv.lookup_code,
lv.meaning,
lv.description,
lv.enabled_flag,
lv.start_date_active,
lv.end_date_active
FROM fnd_lookup_values lv
WHERE lv.language = 'ZHS'
AND lv.view_application_id = 200
AND
lv.security_group_id =
fnd_global.lookup_security_group(lv.lookup_type,
lv.view_application_id))
WHERE lookup_type = 'INVOICE TYPE'
AND lookup_code NOT IN
('INTEREST', 'QUICKMATCH', 'QUICKDEFAULT', 'ADJUSTMENT',
'PO PRICE ADJUST')
AND meaning = i.invoice_type;
EXCEPTION
WHEN OTHERS THEN
dbms_output.put_line('第' || i.row_id ||
'行，取invoice_type_lookup_code不存在!');
RAISE;
END;
rec_ap_invoice.vendor_id := i.vendor_id;
rec_ap_invoice.vendor_site_id := i.vendor_site_id;
rec_ap_invoice.invoice_date := to_date(i.invoice_date,
'YYYY-MM-DD');
rec_ap_invoice.gl_date := to_date(i.gl_date, 'YYYY-MM-DD');
rec_ap_invoice.invoice_num := i.invoice_num;
rec_ap_invoice.invoice_currency_code := i.currency_code;
rec_ap_invoice.payment_currency_code := i.currency_code;
rec_ap_invoice.invoice_amount := i.invoice_amount;
rec_ap_invoice.exchange_rate_type := i.exchange_rate_type;
rec_ap_invoice.exchange_rate := i.exchange_rate;
rec_ap_invoice.exchange_date := rec_ap_invoice.invoice_date;
BEGIN
SELECT lookup_code paygroup
into rec_ap_invoice.pay_group_lookup_code
FROM fnd_lookup_values lv
WHERE LANGUAGE = 'ZHS'
AND view_application_id = 201
AND lookup_type = 'PAY GROUP'
AND enabled_flag = 'Y'
AND meaning = i.pay_group
AND security_group_id =
fnd_global.lookup_security_group(lv.lookup_type,
lv.view_application_id)
AND trunc(SYSDATE) BETWEEN nvl(start_date_active, SYSDATE - 1) AND
nvl(end_date_active, SYSDATE + 1)
ORDER BY upper(lookup_code);
EXCEPTION
WHEN OTHERS THEN
dbms_output.put_line('第' || i.row_id ||
'行，支付组不存在!');
END;
BEGIN
SELECT ip.payment_method_code
INTO rec_ap_invoice.payment_method_code
FROM iby_payment_methods_vl ip
WHERE ip.payment_method_name = i.pay_method;
EXCEPTION
WHEN OTHERS THEN
dbms_output.put_line('第' || i.row_id ||
'行，取payment_method_code不存在!');
RAISE;
END;
BEGIN
/*SELECT apt.term_id
INTO rec_ap_invoice.terms_id
FROM ap_terms apt
WHERE apt.name = i.terms_name;*/
SELECT b.term_id
INTO rec_ap_invoice.terms_id
FROM ap_terms_tl b
WHERE b.language = 'ZHS'
AND b.name = i.terms_name;
EXCEPTION
WHEN OTHERS THEN
dbms_output.put_line('第' || i.row_id || '行，取term_id不存在!');
RAISE;
END;
rec_ap_invoice.terms_date := to_date(i.terms_date,
'YYYY-MM-DD');
rec_ap_invoice.source := 'INITIALIMPORT';
rec_ap_invoice.exclusive_payment_flag := 'Y';
--attribute
--rec_ap_invoice.attribute8 := i.header_att8;
rec_ap_invoice.global_attribute19 := i.header_global_att19;
rec_ap_invoice.accts_pay_code_combination_id := i.ap_ccid;
--who
rec_ap_invoice.last_update_date := SYSDATE;
rec_ap_invoice.last_updated_by := fnd_global.user_id;
rec_ap_invoice.creation_date := SYSDATE;
rec_ap_invoice.created_by := fnd_global.user_id;
rec_ap_invoice.last_update_login := fnd_global.login_id;
-- 不自动计税, 不然不能把税行导入接口
rec_ap_invoice.Calc_Tax_During_Import_Flag := 'N'; --
rec_ap_invoice.Add_Tax_To_Inv_Amt_Flag := 'N';
rec_ap_invoice.group_id := l_group_id;
INSERT INTO ap_invoices_interface
VALUES rec_ap_invoice;
--行
SELECT ap_invoice_lines_interface_s.nextval
INTO rec_ap_invoice_line.invoice_line_id
FROM dual;
rec_ap_invoice_line.org_id := l_org_id;
rec_ap_invoice_line.invoice_id := l_invoice_id;
rec_ap_invoice_line.accounting_date := to_date(i.line_gl_date,
'YYYY-MM-DD');
rec_ap_invoice_line.line_number := i.line_num;
rec_ap_invoice_line.Line_Group_Number := i.line_num;
rec_ap_invoice_line.line_type_lookup_code := 'ITEM';
rec_ap_invoice_line.amount := i.line_amount;
rec_ap_invoice_line.dist_code_combination_id := i.dist_ccid;
rec_ap_invoice_line.project_id := i.project_id;
rec_ap_invoice_line.task_id := i.task_id;
rec_ap_invoice_line.expenditure_type := i.expenditure_type;
rec_ap_invoice_line.expenditure_item_date := to_date(i.expenditure_item_date,
'YYYY-MM-DD');
SELECT hou.organization_id
INTO rec_ap_invoice_line.expenditure_organization_id
FROM hr_operating_units hou
WHERE hou.name = i.expenditure_organization;
--who
rec_ap_invoice_line.last_update_date := SYSDATE;
rec_ap_invoice_line.last_updated_by := fnd_global.user_id;
rec_ap_invoice_line.creation_date := SYSDATE;
rec_ap_invoice_line.created_by := fnd_global.user_id;
rec_ap_invoice_line.last_update_login := fnd_global.login_id;
INSERT INTO ap_invoice_lines_interface
VALUES rec_ap_invoice_line;
--导入税
l_Tax_Code := Cux_Payreq_Utl.Get_Tax_Code('SERVCE0');
IF l_Tax_Code IS NULL
THEN
dbms_output.put_line('根据发票类型取税码错误！');
RAISE no_data_found;
END IF;
l_Tax_Rec.Line_Type_Lookup_Code := 'TAX';
SELECT Ap_Invoice_Lines_Interface_s.Nextval INTO l_Tax_Rec.Invoice_Line_Id FROM Dual;
l_Tax_Rec.Invoice_Id := l_invoice_id;
l_Tax_Rec.Org_Id := l_org_id;
l_Tax_Rec.Line_Number := i.line_num+1;
l_Tax_Rec.Line_Group_Number := i.line_num;
--l_Tax_Rec.Tax_Code := 'VAT 0';
l_Tax_Rec.Amount := '0';
l_Tax_Rec.Accounting_Date := SYSDATE;
--l_Tax_Rec.Description := r.Description;
--l_Tax_Rec.Attribute2 := i.invoice_num;
--l_Tax_Rec.Attribute4 := r.Customs_Id;
l_Tax_Rec.Prorate_Across_Flag := 'Y';
l_Tax_Rec.Project_Id := i.project_id;
l_Tax_Rec.tax_rate_code := l_Tax_Code;
l_Tax_Rec.Task_Id := i.task_id;
l_Tax_Rec.Expenditure_Type := i.expenditure_type; -- 支出类型
l_Tax_Rec.Expenditure_Organization_Id := rec_ap_invoice_line.expenditure_organization_id;
l_Tax_Rec.Expenditure_Item_Date := to_date(i.expenditure_item_date,
'YYYY-MM-DD');
INSERT INTO Ap_Invoice_Lines_Interface VALUES l_Tax_Rec;
END LOOP;
/*IF l_flag = 0 THEN
COMMIT;
ELSE
ROLLBACK;
END IF;*/
NULL;
END;