--初始化
/*
begin
fnd_global.apps_initialize(user_id => 8162,
resp_id => 50692,
resp_appl_id => 20003);
mo_global.init('M');
end;
*/
--注意,以下产生的发票会产生差异,需要手动调整发票,然后重新手工验证发票即可验证
declare
l_api_name CONSTANT VARCHAR2(30) := 'insert_ap_tmp';
l_savepoint_name CONSTANT VARCHAR2(30) := '';
l_iface_rec ap_invoices_interface%ROWTYPE;
l_iface_lines_rec ap_invoice_lines_interface%ROWTYPE;
l_ip_invoice_amount NUMBER;
l_ip_tax_amount NUMBER;
l_stmt_amount NUMBER;
l_tax_code VARCHAR2(30);
l_line_num NUMBER;
l_vendor_site_id NUMBER;
l_ccid NUMBER;
l_seg24 VARCHAR2(100) := '/0/';
l_seg678910 VARCHAR2(100) := '/0/0/0/0/0';
l_wait BOOLEAN;
x_phase VARCHAR2(80);
x_status VARCHAR2(80);
x_dev_phase VARCHAR2(80);
x_dev_status VARCHAR2(80);
x_message VARCHAR2(80);
x_group_id number;
x_request_id number;
BEGIN
x_group_id := NULL;
IF x_group_id IS NULL THEN
x_group_id := cux_ap_statement_imp_group_s.nextval;
END IF;
l_vendor_site_id := NULL;
l_iface_rec := NULL;
l_iface_rec.last_updated_by := 8162;
l_iface_rec.creation_date := SYSDATE;
l_iface_rec.created_by := 8162;
l_iface_rec.last_update_login := -1;
l_iface_rec.last_update_date := SYSDATE;
l_iface_rec.invoice_id := ap_invoices_interface_s.nextval;
l_iface_rec.group_id := x_group_id;
l_iface_rec.org_id := 295;--c_invc.org_id;
l_iface_rec.source := 'INVOICE GATEWAY';
l_iface_rec.attribute6 := 'ZP';--ZP增值税专票--QT其他票据--PP增值税普票--c_invc.vat_invoice_type; ---发票类型
select 'zsxcdf1234'
INTO l_iface_rec.invoice_num
from dual;
select 0.1,0.01--含税金额和不含税金额
INTO l_ip_invoice_amount, l_ip_tax_amount
from dual;
select 0.11--对账单金额
INTO l_stmt_amount
from dual;
selec