初始化
mo_global.init(‘SQLAP’);
创建保存点
dbms_transaction.savepoint(l_save_point);
创建付款头
SELECT ap_checks_s.nextval INTO x_line_rec.check_id FROM sys.dual;
ap_checks_pkg.insert_row
ap_reconciliation_pkg.insert_payment_history
锁定发票
ap_invoices_pkg.lock_row(x_line_rec.invoice_id,g_pkg_name||’.’||l_api_name);
支付发票,按付款计划行支付
SELECT v.invoice_type,
v.payment_num,
v.amount_remaining,
v.exclusive_payment_flag,
v.accts_pay_code_combi_id
FROM ap_invoices_ready_to_pay_v v
WHERE v.invoice_id = cp_invoice_id
AND v.payment_num = cp_payment_num
ORDER BY v.payment_num;
SELECT ap_invoice_payments_s.nextval
INTO l_invoice_payment_id
FROM sys.dual;
ap_pay_invoice_pkg.ap_pay_invoice