数据库表：--CreatetableDROPTABLECUX.cux_ap_invoice_interface;createtableCUX.cux_ap_invoice_interface(OU_NAMEVARCHAR2(240),--组织invoice_typeVARCHAR2(2

数据库表：

-- 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数据导入程序：

本文原创发布php中文网，转载请注明出处，感谢您的尊重！

相关文章

相关视频