EBS开发_通过提交请求的方式导入AP发票

最新推荐文章于 2022-05-25 19:16:29 发布

原创

最新推荐文章于 2022-05-25 19:16:29 发布 · 1.2k 阅读

1 ·

CC 4.0 BY-SA版权

该博客展示了如何在2018年10月1日使用Oracle EBS通过提交请求的方式成功导入AP发票。代码示例包括初始化设置、插入发票和行数据，以及使用fnd_request.submit_request提交并发请求进行导入。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

--以下代码于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 BOOLEAN;
l_batch_error_flag VARCHAR2(30);
l_invoices_fetched NUMBER;
l_invoices_created NUMBER;
l_total_invoice_amount NUMBER;
l_print_batch VARCHAR2(30);
l_error_count NUMBER;
BEGIN
SELECT ap_interface_groups_s.nextval INTO l_group_id FROM dual;

l_iface_rec := NULL; ---清空数据
l_iface_rec.last_update_date := SYSDATE;
l_iface_rec.last_updated_by := g_user_id;
l_iface_rec.creation_date := SYSDATE;
l_iface_rec.created_by &nbs