--以下代码于20181001在Tony环境成功导入AP发票。通过提交请求的方式
/*
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);
END;
*/
DECLARE
CURSOR cur_err(t_invoice_id NUMBER) IS
SELECT nvl(flv.meaning, err_tbl.reject_lookup_code) err_msg
FROM (SELECT air.reject_lookup_code
FROM ap_interface_rejections air
WHERE air.parent_id = t_invoice_id
AND air.parent_table = 'AP_INVOICES_INTERFACE'
UNION
SELECT air.reject_lookup_code
FROM ap_invoice_lines_interface ali, ap_interface_rejections air
WHERE air.parent_id = ali.invoice_line_id
--
AND ali.invoice_id = t_invoice_id
--
AND air.parent_table = 'AP_INVOICE_LINES_INTERFACE') err_tbl,
fnd_lookup_values flv
WHERE flv.lookup_code(+) = err_tbl.reject_lookup_code
--
AND flv.language(+) = userenv('lang')
AND flv.lookup_type(+) = 'REJECT CODE';
g_user_id CONSTANT NUMBER := fnd_global.user_id;
g_login_id CONSTANT NUMBER := fnd_global.login_id;
l_iface_rec ap_invoices_interface%ROWTYPE;
l_iface_lines_rec ap_invoice_lines_interface%ROWTYPE;
l_group_id NUMBER;
l_batch_name VARCHAR2(50) := 'TXXTEST080902';
l_org_id NUMBER := 82;
--
l_request_id NUMBER;
l_bl_result BOOLEAN;
x_phase VARCHAR2(100);
x_status VARCHAR2(100);
x_dev_phase VARCHAR2(100);
x_dev_status VARCHAR2(100);
x_message VARCHAR2(100);
x_return_msg VARCHAR2(1000);
l_cnt NUMBER := 0;
--
l_result