EBS开发_创建AP付款

--以下代码于20181002在Tony环境测试通过
/*
BEGIN
--mo_global.init('SQLAP');
apps.fnd_global.apps_initialize(user_id => 1110, resp_id => 50597, resp_appl_id => 20003);
--mo_global.set_policy_context('S', 0);
mo_global.init('M');--务必加上这个语句
END;

-- ALTER SESSION SET NLS_LANGUAGE = 'SIMPLIFIED CHINESE';
*/

/*select * from ap_checks;

select * from po_headers_all
*/
DECLARE
g_user_id CONSTANT NUMBER := fnd_global.user_id;
g_login_id CONSTANT NUMBER := fnd_global.login_id;
--
l_invoice_id NUMBER := 10103;
l_period_name VARCHAR2(20) := '2018-10';
l_set_of_books_id NUMBER;
l_exchange_rate NUMBER;
l_exchange_date DATE;
l_when_payment_accounted ap_system_parameters_all.when_to_account_pmt%TYPE;
l_count NUMBER;
l_stock_name VARCHAR2(50);
l_in_use_by VARCHAR2(20);
l_doc_category_code VARCHAR2(30);
l_last_document_num NUMBER;
l_quick_check VARCHAR2(200);
l_hold_all_payments_flag VARCHAR2(1);
l_payment_type_flag VARCHAR2(1) := 'Q'; --人工M，快速Q，退款R
l_status_lookup_code VARCHAR2(20) := 'NEGOTIABLE';
--
l_row_id VARCHAR2(240);
l_invoice_amount NUMBER; -- 付款额
l_bank_account_id NUMBER;
l_bank_account_name VARCHAR2(120);
l_gl_date DATE := last_day(trunc(SYSDATE));
l_check_id NUMBER;
l_check_number NUMBER;
l_invoice_currency_code VARCHAR2(10);
l_payment_method_lookup_code VARCHAR2(25);
l_address_line1 VARCHAR2(240);
l_address_line2 VARCHAR2(240);
l_address_line3 VARCHAR2(240);
l_checkrun_name VARCHAR2(50); -- 批名
l_check_format_id NUMBER;
l_check_stock_id NUMBER;
l_city VARCHAR2(25);
l_country VARCHAR2(25);
l_bank_account_num VARCHAR2(30);
l_bank_account_type VARCHAR2(30);
l_zip VARCHAR2(20);
l_province VARCHAR2(150);
l_state VARCHAR2(150);
l_address_line4 VARCHAR2(240);
l_county VARCHAR2(25);
l_address_style VARCHAR2(30);
l_org_id NUMBER;
l_vendor_id NUMBER;
l_vendor_site_id NUMBER;
l_VENDOR_SITE_CODE VARCHAR2(30);
l_VENDOR_NAME VARCHAR2(3000);
l_exchange_rate_type VARCHAR2(30);
l_party_site_id number;
l_party_id number;
l_ap_checks_all_row ap_checks_all%ROWTYPE;
--
l_accounting_event_id NUMBER;
--
l_invoice_payment_id NUMBER;
--
l_msg_count NUMBER;
l_msg_data VARCHAR2(1000);

l_err_msg VARCHAR2(10000);
PROCEDURE log(p_msg IN VARCHAR2) IS
BEGIN
dbms_output.put_line(p_msg);
END;

PROCEDURE get_msg(x_msg_count OUT NUMBER, x_msg_data OUT VARCHAR2) IS
BEGIN
fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
p_count => x_msg_count,
p_data => x_msg_data);
IF x_msg_count > 1 THEN
x_msg_data := fnd_msg_pub.get_detail(p_msg_index => fnd_msg_pub.g_first,
p_encoded => fnd_api.g_false);
END IF;
END;

BEGIN

dbms_output.enable(100000);
-- 1.0 获取发票信息
log('Step1.0 获取付款发票信息');
SELECT aia.invoice_amount,
aia.invoice_currency_code,
aia.set_of_books_id,
aia.org_id,
aia.vendor_id,
aia.vendor_site_id,
aia.exchange_rate,
aia.exchange_rate_type,
aia.exchange_date,
(SELECT pv.VENDOR_NAME from po_vendors pv where pv.VENDOR_ID = aia.vendor_id )
INTO l_invoice_amount,
l_invoice_currency_code,
l_set_of_books_id,
l_org_id,
l_vendor_id,
l_vendor_site_id,
l_exchange_rate,
l_exchange_rate_type,
l_exchange_date,
l_VENDOR_NAME
FROM ap_invoices_all aia
WHERE aia.invoice_id = l_invoice_id;

SELECT t.party_site_id, a.party_id
into l_party_site_id, l_party_id

FROM ap_supplier_sites_all t, ap_suppliers a

WHERE a.vendor_id = t.vendor_id

AND t.vendor_site_id = l_vendor_site_id; --p_vendor_site_id;

-- 1.2 获取GL_DATE
log('Step1.2 获取检查应付款选项设置参数 BEGIN');
-- 对应路径应付超级职责 -> 设置 -> 选项 -> 应付款
-- 页签本位币, 付款会计.将付款记账: 发放付款时, 币种.使用多币种
BEGIN
SELECT t.when_to_account_pmt
INTO l_when_payment_accounted
FROM ap_system_parameters_all t
WHERE t.set_of_books_id = l_set_of_books_id
AND t.org_id = l_org_id;
EXCEPTION
WHEN OTHERS THEN
l_err_msg := '获取业务实体信息(' || l_org_id || ')异常！' || SQLCODE || ',' ||
SQLERRM;
log(l_err_msg);
--RETURN;
END;
log('Step1.2 获取检查应付款选项设置参数 END WHEN[' || l_when_payment_accounted || ']');

-- 1.3 获取银行信息
log('Step1.3 获取付款银行信息 begin');
BEGIN
/* SELECT aba.bank_account_id, aba.bank_account_num, aba.bank_account_name, aba.bank_account_type
INTO l_bank_account_id, l_bank_account_num, l_bank_account_name, l_bank_account_type
FROM ap_bank_accounts_all aba
WHERE aba.bank_account_name = '虚拟银行'
AND aba.org_id = l_org_id;*/

SELECT ibybanks.bank_account_id,
ibybanks.bank_account_number,
ibybanks.bank_account_name,
ibybanks.bank_account_type
/* ibybanks.bank_name, --银行
ibybanks.bank_branch_name, --分行
ibybanks.bank_account_num_electronic, --银行帐号
ibybanks.**/
INTO l_bank_account_id,
l_bank_account_num,
l_bank_account_name,
l_bank_account_type
FROM iby_external_payers_all iepa,
iby_pmt_instr_uses_all ipiua,
iby_ext_bank_accounts_v ibybanks
WHERE 1 = 1 --iepa.payment_function = 'CUSTOMER_PAYMENT'
-- AND iepa.cust_account_id = p_customer_id --客户帐号ID
AND ibybanks.bank_account_id = ipiua.instrument_id
-- AND ipiua.instrument_type = 'BANKACCOUNT'
AND ipiua.ext_pmt_party_id = iepa.EXT_PAYER_ID
--AND ipiua.payment_function = 'CUSTOMER_PAYMENT'
AND sysdate BETWEEN ibybanks.start_date AND
nvl(ibybanks.end_date, sysdate + 1);

EXCEPTION
WHEN OTHERS THEN
l_err_msg := '获取付款银行虚拟银行异常！' || SQLCODE || ',' || SQLERRM;
log(l_err_msg);
RAISE fnd_api.g_exc_error;
END;

log('Step1.3.1 验证付款单据');
/* IF l_bank_account_id IS NOT NULL THEN
SELECT COUNT(1)
INTO l_count
FROM ap_check_stocks_all acs
WHERE acs.bank_account_id = l_bank_account_id;
IF l_count = 0 THEN
log('虚拟银行有误，找不到付款单据');
RAISE fnd_api.g_exc_error;
END IF;
END IF;*/

log('Step1.4.1 获取付款单据号');
/* BEGIN
SELECT NAME,
in_use_by,
check_stock_id,
check_format_id,
payment_method_lookup_code,
doc_category_code,
last_available_document_num
INTO l_stock_name,
l_in_use_by,
l_check_stock_id,
l_check_format_id,
l_payment_method_lookup_code,
l_doc_category_code,
l_last_document_num
FROM ap_check_stocks_active_v acs
WHERE (acs.format_currency_code = 'CNY' OR
(acs.format_currency_code IS NULL AND acs.format_multi_currency_flag = 'Y' AND
acs.bank_multi_currency_flag = 'Y'))
AND acs.disbursement_type_lookup_code != 'RECORDED'
AND SYSDATE < nvl(acs.inactive_date, SYSDATE + 1)
AND acs.payment_method_lookup_code = 'CHECK'
AND acs.bank_account_id = l_bank_account_id;
EXCEPTION
WHEN OTHERS THEN
l_err_msg := '获取付款银行帐号异常:' || SQLCODE || ',' || SQLERRM;
log(l_err_msg);
--RETURN;
END;*/
log('Step1.4.1 获取付款单据[ID: ' || l_check_stock_id || ']');

IF l_in_use_by IS NOT NULL THEN
log('Step1.4.1 付款单据---------------------------END l_in_use_by:' ||
l_in_use_by);
fnd_message.set_name('SQLAP', 'AP_PAY_DOCUMENT_ALREADY_IN_USE');
l_err_msg := '错误: ' || fnd_message.get;
log(l_err_msg);
--RETURN;
END IF;

log('Step1.4.2 锁定银行付款单据----------------------------------------BEGIN');
--锁定银行付款单据
/* BEGIN
SELECT last_document_num + 1
INTO l_check_number
FROM ap_check_stocks_all
WHERE check_stock_id = l_check_stock_id
FOR UPDATE OF last_document_num NOWAIT;
EXCEPTION
WHEN OTHERS THEN
log('锁定单据[' || l_stock_name || ']时异常[' || SQLERRM || ']');
--RETURN;
END;

--检查银行付款单据
IF nvl(l_check_number, 0) > nvl(l_last_document_num, 0) THEN
l_err_msg := '付款单据:' || l_stock_name || '的编号已经超过最大允许值.';
log(l_err_msg);
--RETURN;
END IF;*/

l_check_number := to_number(TO_CHAR(SYSDATE,'yyyymmddhh24miss'));

--检查付款编号是否重复
SELECT COUNT(1)
INTO l_count
FROM ap_checks_all aca
WHERE aca.check_stock_id = l_check_stock_id
AND aca.check_number = l_check_number;
log('l_duplicate:' || l_count);
IF (l_count > 0) THEN
fnd_message.set_name('SQLAP', 'AP_ALL_DUPLICATE_VALUE');
l_err_msg := chr(10) || '错误: 付款编号' || l_check_number || ' ' ||
fnd_message.get;
log(l_err_msg);
--RETURN;
END IF;
log('Step1.4.3 检查付款编号是否重复------------------------------------END');

log('Step1.4 付款单据号[' || l_check_number ||
']---------------------------END');

--check id
SELECT ap_checks_s.nextval INTO l_check_id FROM dual;

--checkrun name
IF l_payment_type_flag = 'Q' THEN
log('Step1.5 获取批名 --------------BEGIN');
BEGIN
SELECT alc.displayed_field
INTO l_quick_check
FROM ap_lookup_codes alc
WHERE alc.lookup_type = 'NLS TRANSLATION'
AND alc.lookup_code = 'QUICKCHECK ID';

EXCEPTION
WHEN OTHERS THEN
log('获取批名前缀时异常[' || SQLERRM || ']');
END;
l_checkrun_name := substrb(l_quick_check,
1,
30 - nvl(lengthb(to_char(l_check_id)), 0)) ||
to_char(l_check_id);
log('Step1.5 获取批名[' || l_checkrun_name || '] --------------END');
END IF;

log('Step1.6 获取供应商信息------------------------------------------BEGIN');
--获取供应商信息
BEGIN
SELECT pvs.address_line1,
pvs.address_line2,
pvs.address_line3,
pvs.address_line4,
nvl(pvs.address_style, 'DEFAULT') address_style,
pvs.city,
pvs.county,
pvs.state,
pvs.province,
pvs.zip,
pvs.country,
pvs.hold_all_payments_flag,
pvs.VENDOR_SITE_CODE
INTO l_address_line1,
l_address_line2,
l_address_line3,
l_address_line4,
l_address_style,
l_city,
l_county,
l_state,
l_province,
l_zip,
l_country,
l_hold_all_payments_flag,
l_VENDOR_SITE_CODE
FROM po_vendor_sites_all pvs
WHERE pvs.org_id = l_org_id
AND pvs.vendor_site_id = l_vendor_site_id;
EXCEPTION
WHEN OTHERS THEN
log('获取供应商地点[' || l_vendor_site_id || ']信息时异常[' || SQLERRM || ']');
END;

IF l_hold_all_payments_flag = 'Y' THEN
l_err_msg := '错误: ' || '当前供应商地点设置了"暂挂所有付款",不能创建付款.';
log(l_err_msg);
--RETURN;
END IF;

log('Step4.2.5 获取供应商信息------------------------------------------END');

----RETURN;

-- 2.1 插入供应商付款
log('Step2.1 插入供应商付款-------------------------------------------BEGIN');
BEGIN
/* ap_checks_pkg.insert_row(x_rowid => l_row_id,
x_amount => l_invoice_amount,
x_bank_account_id => l_bank_account_id,
x_bank_account_name => l_bank_account_name,
x_check_date => l_gl_date,
x_check_id => l_check_id,
x_check_number => l_check_number,
x_currency_code => l_invoice_currency_code,
x_last_updated_by => g_user_id,
x_last_update_date => SYSDATE,
x_payment_method_lookup_code => l_payment_method_lookup_code,
x_payment_type_flag => l_payment_type_flag,
x_address_line1 => l_address_line1,
x_address_line2 => l_address_line2,
x_address_line3 => l_address_line3,
x_checkrun_name => l_checkrun_name,
x_check_format_id => l_check_format_id,
x_check_stock_id => l_check_stock_id,
x_city => l_city,
x_country => l_country,
x_created_by => g_user_id,
x_creation_date => SYSDATE,
x_last_update_login => g_login_id,
x_status_lookup_code => l_status_lookup_code,
x_external_bank_account_id => NULL,
x_zip => l_zip,
x_bank_account_num => l_bank_account_num,
x_bank_account_type => l_bank_account_type,
x_doc_category_code => l_doc_category_code,
x_province => l_province,
x_state => l_state,
x_address_line4 => l_address_line4,
x_county => l_county,
x_address_style => l_address_style,
x_org_id => l_org_id,
x_vendor_id => l_vendor_id,
x_vendor_site_id => l_vendor_site_id,
x_exchange_rate_type => l_exchange_rate_type,
x_calling_sequence => 'CUX_API');*/

--参考广田cux_ce_req_pay_pub
ap_checks_pkg.insert_row(x_rowid => l_row_id,

x_amount => 200, --rec.amount,

x_ce_bank_acct_use_id => 10002, --l_bank_acct_use_id, --l_bank_account_id, --ce_bank_acct_use_id 替换 bank_account_id

x_bank_account_name => '00303_上海浦东发展银行深圳凤凰大厦支行_人民币一般户',/*substr('00303_上海浦东发展银行深圳凤凰大厦支行_人民币一般户',

1,

25), */--rec.bank_account_name,
/* SELECT cbau.bank_acct_use_id, cba.bank_account_name --银行账户 --状态

FROM ce_bank_accounts cba, --银行相关

ce_bank_acct_uses_all cbau --银行相关

WHERE cbau.bank_account_id = cba.bank_account_id(+)*/

x_check_date => trunc(sysdate),

x_check_id => l_check_id,

x_check_number => l_check_number,

x_currency_code => 'CNY',

x_last_updated_by => g_user_id,

x_last_update_date => SYSDATE,

x_payment_type_flag => l_payment_type_flag, --类型 M:Manual,Q:quick,R:refunds

x_address_line1 => l_address_line1,

x_address_line2 => l_address_line2,

x_address_line3 => l_address_line3,

x_checkrun_name => l_checkrun_name, --batch_name

x_check_format_id => NULL,

x_check_stock_id => NULL, --l_check_stock_id,

x_city => l_city,

x_country => l_country,

x_created_by => g_user_id,

x_creation_date => SYSDATE,

x_last_update_login => g_login_id,

x_status_lookup_code => l_status_lookup_code, --'NEGOTIABLE'; --状态,可转让

x_vendor_name => NULL, /*rec.vendor_name,*/

x_vendor_site_code => l_vendor_site_code,

x_external_bank_account_id => NULL,

x_zip => l_zip,

x_bank_account_num => '79030155100000303', --select t.bank_account_num,t.* from CE.CE_BANK_ACCOUNTS t

x_bank_account_type => NULL,

x_bank_num => NULL,

x_check_voucher_num => NULL,

x_cleared_amount => NULL,

x_cleared_date => NULL,

x_doc_category_code => NULL,

x_doc_sequence_id => NULL,

x_doc_sequence_value => NULL,

x_province => l_province,

x_released_date => NULL,

x_released_by => NULL,

x_state => l_state,

x_stopped_date => NULL,

x_stopped_by => NULL,

x_void_date => NULL,

x_attribute1 => NULL,

x_attribute10 => NULL,

x_attribute11 => NULL,

x_attribute12 => NULL,

x_attribute13 => NULL,

x_attribute14 => NULL,

x_attribute15 => NULL,

x_attribute2 => NULL,

x_attribute3 => NULL,

x_attribute4 => NULL,

--update by feng.han start

--)[32655]修改付款申请创建付款逻辑并修复已生成的付款

--x_attribute5 => NULL,

x_attribute5 => NULL,

--update end;

x_attribute6 => NULL,

x_attribute7 => NULL,

x_attribute8 => NULL,

x_attribute9 => NULL,

x_attribute_category => NULL,

x_future_pay_due_date => NULL, --rec.end_date,--rec.pay_date,

x_treasury_pay_date => NULL,

x_treasury_pay_number => NULL,

x_withholding_status_lkup_code => NULL,

x_reconciliation_batch_id => NULL,

x_cleared_base_amount => NULL,

x_cleared_exchange_rate => NULL,

x_cleared_exchange_date => NULL,

x_cleared_exchange_rate_type => NULL,

x_address_line4 => L_address_line4,

x_county => l_county,

x_address_style => NULL,--l_address_style,

x_org_id => L_org_id,

x_vendor_id => L_vendor_id,

x_vendor_site_id => L_vendor_site_id,

x_exchange_rate => null,--1, --rec.conversion_rate,

x_exchange_date => TRUNC(SYSDATE), --rec.conversion_date,

x_exchange_rate_type => null,--'Coporate', --rec.conversion_type,

x_base_amount => null,--200,

x_checkrun_id => NULL,

x_global_attribute_category => NULL,

x_global_attribute1 => NULL,

x_global_attribute2 => NULL,

x_global_attribute3 => NULL,

x_global_attribute4 => NULL,

x_global_attribute5 => NULL,

x_global_attribute6 => NULL,

x_global_attribute7 => NULL,

x_global_attribute8 => NULL,

x_global_attribute9 => NULL,

x_global_attribute10 => NULL,

x_global_attribute11 => NULL,

x_global_attribute12 => NULL,

x_global_attribute13 => NULL,

x_global_attribute14 => NULL,

x_global_attribute15 => NULL,

x_global_attribute16 => NULL,

x_global_attribute17 => NULL,

x_global_attribute18 => NULL,

x_global_attribute19 => NULL,

x_global_attribute20 => NULL,

x_transfer_priority => NULL,

x_maturity_exchange_rate_type => NULL,

x_maturity_exchange_date => NULL,

x_maturity_exchange_rate => NULL,

x_description => '测试描述',

x_anticipated_value_date => NULL,

x_actual_value_date => NULL,

x_payment_method_code => 'EFT', --rec.pay_method,

--update by feng.han 2014-2-12 start

--)[32581]数据修复

x_payment_profile_id => 99, --l_payment_profile_id,

--x_payment_profile_id => 162, ---付款处理文件

--update end;

x_bank_charge_bearer => NULL, ---

x_settlement_priority => NULL, ---

x_payment_document_id => NULL, ---

x_party_id => l_party_id, ---

x_party_site_id => l_party_site_id, ---

x_legal_entity_id => 23274, --rec.legal_context_id, ---

x_payment_id => NULL, ---

x_calling_sequence => 'CREATE_AP_PAYMENT', -- VARCHAR2

x_remit_to_supplier_name => l_vendor_name,--NULL, ---

x_remit_to_supplier_id => l_vendor_id,--NULL, ---

x_remit_to_supplier_site => l_vendor_site_code,--null ---

x_remit_to_supplier_site_id => l_vendor_site_id,--NULL, ---

x_relationship_id => -1,--NULL, ---

x_paycard_authorization_number => NULL, ---

x_paycard_reference_id => NULL ---

);
-- commit;

EXCEPTION
WHEN OTHERS THEN
log('Step2.1 插入供应商付款异常: ');
l_err_msg := SQLERRM;
WHILE lengthb(l_err_msg) > 0 LOOP
log(substrb(l_err_msg, 1, 255));
l_err_msg := substrb(l_err_msg, 256);
END LOOP;
--RETURN;
END;

SELECT COUNT(1)
INTO l_count
FROM ap_checks_all aca
WHERE aca.check_id = l_check_id;
IF l_count = 0 THEN
log('插入供应商付款失败');
--RETURN;
END IF;
log('Step2.1 插入供应商付款-------------------------------------------END');

-- 创建会计事件
log('Step2.2 创建会计事件------------------------------------------BEGIN');
IF l_when_payment_accounted = 'ALWAYS' THEN
-- 发放付款时
BEGIN
/* ap_accounting_events_pkg.create_events(p_event_type => 'PAYMENT',
p_doc_id => l_check_id,
p_accounting_date => l_gl_date, --SYSDATE, 2014-11-10
p_accounting_event_id => l_accounting_event_id,
p_checkrun_name => NULL,
p_calling_sequence => 'CUX_API');*/

ap_accounting_events_pkg.create_events(p_event_type => 'PAYMENT',

p_doc_type => l_payment_type_flag,

p_doc_id => l_check_id,

p_accounting_date => trunc(sysdate),

p_accounting_event_id => l_accounting_event_id,

p_checkrun_name => NULL,

p_calling_sequence => 'CREATE_AP_PAYMENT');

EXCEPTION
WHEN OTHERS THEN
log('ap_accounting_events_pkg.create_events' || SQLERRM);
END;

SELECT COUNT(1)
INTO l_count
FROM ap_accounting_events_all aae
WHERE aae.accounting_event_id = l_accounting_event_id
AND aae.source_table = 'AP_CHECKS'
AND aae.source_id = l_check_id;

IF l_count = 0 THEN
log('创建付款会计事件失败');
--RETURN;
END IF;

log('l_check_id ' || l_check_id || ' x_accounting_event_id ' ||
l_accounting_event_id);
END IF;

--更新 ap_check_stocks 最后单据号
log('Step2.3 更新 ap_check_stocks 最后单据号----------------------BEGIN');
UPDATE ap_check_stocks_all acs
SET acs.last_document_num = l_check_number,
acs.last_update_date = SYSDATE,
acs.last_updated_by = g_user_id,
acs.last_update_login = g_login_id
WHERE acs.check_stock_id = l_check_stock_id;

--创建付款历史记录

BEGIN

ap_reconciliation_pkg.insert_payment_history(x_check_id => l_check_id,

x_transaction_type => 'PAYMENT CREATED',

x_accounting_date => trunc(sysdate),

x_trx_bank_amount => NULL,

x_errors_bank_amount => NULL,

x_charges_bank_amount => NULL,

x_bank_currency_code => NULL,

x_bank_to_base_xrate_type => NULL,

x_bank_to_base_xrate_date => NULL,

x_bank_to_base_xrate => NULL,

x_trx_pmt_amount => 200 --p_check_rec.amount

,

x_errors_pmt_amount => NULL,

x_charges_pmt_amount => NULL,

x_pmt_currency_code => 'CNY', --rec.currency_code,

x_pmt_to_base_xrate_type => 'Coporate', --rec.conversion_type,

x_pmt_to_base_xrate_date => trunc(sysdate), --rec.conversion_date,

x_pmt_to_base_xrate => 1, --rec.conversion_rate,

x_trx_base_amount => 200, --rec.amount, --p_check_rec.base_amount

x_errors_base_amount => NULL,

x_charges_base_amount => NULL,

x_matched_flag => NULL,

x_rev_pmt_hist_id => NULL,

x_org_id => l_org_id,

x_creation_date => SYSDATE,

x_created_by => fnd_global.user_id,

x_last_update_date => SYSDATE,

x_last_updated_by => fnd_global.user_id,

x_last_update_login => fnd_global.login_id,

x_program_update_date => NULL,

x_program_application_id => NULL,

x_program_id => NULL,

x_request_id => NULL,

x_calling_sequence => 'CREATE_AP_PAYMENT_HIS',

x_accounting_event_id => l_accounting_event_id);

EXCEPTION

WHEN OTHERS THEN

DBMS_OUTPUT.put_line('exception 付款申请头ID req_header_id =' ||

'错误1' ||

'的需要进行中部付款的付款申请未能成功完成P3。' || SQLERRM);

-->如果导入付款有问题那么就把之前写入的数据删除，（为了不进行回滚，让其它正确数据正常执行完成）

--update 2014-2-24 start

--DELETE FROM ap_checks_all aca WHERE aca.check_id = l_check_id;

--DELETE FROM ap_payment_history_all aph WHERE aph.check_id = l_check_id;

--GOTO end_main;

RAISE fnd_api.g_exc_error;

--update end;

END;

-- 创建付款发票
log('Step2.4 创建付款发票 ----------------------BEGIN');
SELECT ap_invoice_payments_s.nextval INTO l_invoice_payment_id FROM dual;
log('Step2.4.1 付款发票ID[' || l_invoice_payment_id ||
'] ----------------------BEGIN');
BEGIN
/* ap_pay_invoice_pkg.ap_pay_invoice(p_invoice_id => l_invoice_id,
p_check_id => l_check_id,
p_payment_num => 1,
p_invoice_payment_id => l_invoice_payment_id,
p_old_invoice_payment_id => NULL,
p_period_name => l_period_name,
p_accounting_date => l_gl_date,
p_amount => l_invoice_amount,
p_discount_taken => NULL,
p_invoice_base_amount => l_invoice_amount,
p_payment_base_amount => l_invoice_amount,
p_accrual_posted_flag => 'N',
p_cash_posted_flag => 'N',
p_posted_flag => 'N',
p_set_of_books_id => l_set_of_books_id,
p_payment_mode => 'PAY', --不能为空
p_last_updated_by => g_user_id,
p_last_update_login => g_login_id,
p_exchange_rate => l_exchange_rate,
p_exchange_rate_type => l_exchange_rate_type,
p_exchange_date => l_exchange_date,
p_accounting_event_id => l_accounting_event_id);*/

/* SELECT aps.amount_remaining req_amount, aps.payment_num

FROM ap_invoices_all aia, ap_payment_schedules_all aps

WHERE aia.invoice_id = aps.invoice_id

AND aia.invoice_id = 10097

--add by feng.han 2014-2-13

--)[32637]修改付款申请生成多计划行付款逻辑

AND aps.amount_remaining <> 0 --changed at 20140819

--add end;

ORDER BY aps.payment_priority ASC, aps.due_date ASC; */

BEGIN

SELECT *

INTO l_ap_checks_all_row

FROM ap_checks_all

WHERE check_id = L_check_id;

END;

ap_pay_invoice_pkg.ap_pay_invoice(p_invoice_id => l_invoice_id,

p_check_id => l_check_id,

p_payment_num => 1, --aps.payment_num, --计划付款行号

p_invoice_payment_id => l_invoice_payment_id,

p_old_invoice_payment_id => NULL,

p_period_name => l_period_name,

p_invoice_type => 'STANDARD', --rec_invoice.invoice_type, --l_ap_inv_ready_to_pay_v_row.invoice_type,

p_accounting_date => l_gl_date,

p_amount => 200, --rec_invoice.req_amount,

p_discount_taken => 0,

p_discount_lost => '',

p_invoice_base_amount => NULL,

p_payment_base_amount => NULL,

p_accrual_posted_flag => 'N',

p_cash_posted_flag => 'N',

p_posted_flag => 'N',

p_set_of_books_id => l_set_of_books_id,

p_last_updated_by => g_user_id,

p_last_update_login => g_login_id,

p_currency_code => 'CNY', --rec.currency_code, --rec_apply.currency_code,

p_base_currency_code => 'CNY',

p_exchange_rate => l_ap_checks_all_row.exchange_rate, --rec_apply.exchange_rate,

p_exchange_rate_type => l_ap_checks_all_row.exchange_rate_type, --rec_apply.exchange_rate_type,

p_exchange_date => l_ap_checks_all_row.exchange_date, --rec_apply.exchange_rate_date,

p_ce_bank_acct_use_id => l_ap_checks_all_row.ce_bank_acct_use_id, --rec_apply.bank_acct_id,

p_bank_account_num => l_ap_checks_all_row.bank_account_num, --rec_apply.bank_account_num,

p_bank_account_type => l_ap_checks_all_row.bank_account_type,

p_bank_num => l_ap_checks_all_row.bank_num,

p_future_pay_posted_flag => NULL,

p_exclusive_payment_flag => 'N',

p_accts_pay_ccid => 1015, --rec_invoice.accts_pay_code_combi_id, -- l_ap_inv_ready_to_pay_v_row.accts_pay_code_combi_id,

p_gain_ccid => '',

p_loss_ccid => '',

p_future_pay_ccid => NULL,

p_asset_ccid => NULL,

p_payment_dists_flag => 'N',

p_payment_mode => 'PAY',

p_replace_flag => 'N',

p_attribute1 => NULL,

p_attribute2 => NULL,

p_attribute3 => NULL,

p_attribute4 => NULL,

p_attribute5 => NULL,

p_attribute6 => NULL,

p_attribute7 => NULL,

p_attribute8 => NULL,

p_attribute9 => NULL,

p_attribute10 => NULL,

p_attribute11 => NULL,

p_attribute12 => NULL,

p_attribute13 => NULL,

p_attribute14 => NULL,

p_attribute15 => NULL,

p_attribute_category => NULL,

p_global_attribute1 => NULL,

p_global_attribute2 => NULL,

p_global_attribute3 => NULL,

p_global_attribute4 => NULL,

p_global_attribute5 => NULL,

p_global_attribute6 => NULL,

p_global_attribute7 => NULL,

p_global_attribute8 => NULL,

p_global_attribute9 => NULL,

p_global_attribute10 => NULL,

p_global_attribute11 => NULL,

p_global_attribute12 => NULL,

p_global_attribute13 => NULL,

p_global_attribute14 => NULL,

p_global_attribute15 => NULL,

p_global_attribute16 => NULL,

p_global_attribute17 => NULL,

p_global_attribute18 => NULL,

p_global_attribute19 => NULL,

p_global_attribute20 => NULL,

p_global_attribute_category => NULL,

p_calling_sequence => 'cux_ce_req_pay_pub <- ap_pay_invoice_pkg.ap_pay_invoice',

p_accounting_event_id => l_accounting_event_id,

p_org_id => L_org_id);

SELECT COUNT(1)
INTO l_count
FROM ap_invoice_payments_all aip
WHERE aip.invoice_payment_id = l_invoice_payment_id
AND aip.invoice_id = l_invoice_id
AND aip.check_id = l_check_id;

IF l_count = 0 THEN
log('创建发票付款失败');
--RETURN;
END IF;
IF l_count > 0 THEN
log('创建发票付款成功');
--RETURN;
END IF;

EXCEPTION
WHEN OTHERS THEN
l_err_msg := SQLERRM;
WHILE lengthb(l_err_msg) > 0 LOOP
log(substrb(l_err_msg, 1, 255));
l_err_msg := substrb(l_err_msg, 256);
END LOOP;
--get_msg(l_msg_count, l_msg_data);
--log(l_msg_data);
END;
END;

EBS开发_创建AP付款相关推荐

EBS开发_验证AP发票
--以下代码于20181002在Tony环境实现 DECLARE p_invoice_id NUMBER := 10104; -- 'TXXTEST01' p_org_id ...
EBS开发_费用类采购订单创建
--以下代码于20171230在TONY环境中实现 --初始化 /* begin fnd_global.apps_initialize(user_id => 1110, ...
发布会签到系统_系统开发_创建项目及应用
此发布会签到系统是我跟着虫师的<Web接口开发与自动化测试>做的项目. 此项目基于django框架,使用到了python.HTML语言并涉及到非常多的技术. 做的过程中,有些地方让我做的有 ...
迅为iMX6ULL开发板-创建 ap 热点
本文转自迅为iMX6ULL开发板使用手册第九十九章,使用的资料已经放到了开发板网盘资料中,路径为:11_Linux 系统开发进阶\99_章节使用资料. 关注公众号"迅为电子" , ...
EBS开发_供应商地点联系人银行等导入
--定义接口表字段 create table CUX_INV_VENDOR_8MIMPORT ( group_id NUMBER not null, vendor_name ...
EBS开发_固定资产成批增加
--以下脚本于20180114在tony环境实现 --插入接口表之后需要手动提交请求 :N: FA/Mass Addtions/Post Mass Addtions DECLARE l_iface ...
EBS开发_收款核销API
--收款注销 Tony环境实现 20190703 DECLARE l_org_id NUMBER; x_return_status VARCHAR2(60); x_msg_c ...
EBS开发_费用类采购订单接收
--以下脚本于20171230在tony上成功实现 --费用类采购订单接受成功_20171230_只需要输入一个采购订单号即可 --初始化 /* begin fnd_global.apps_ini ...
EBS开发_费用类采购订单退货
--以下脚本于20171230在tony上成功实现 --费用类采购订单退货成功_20171230_只需要输入一个采购订单号即可 --初始化 /* begin fnd_global.apps_ini ...

EBS开发_创建AP付款

EBS开发_创建AP付款相关推荐

最新文章

热门文章