CREATE OR REPLACE PACKAGE BODY update_vendor_account IS
PROCEDURE main(errbuf OUT VARCHAR2, retcode OUT VARCHAR2) IS
l_vendor_id NUMBER;
l_acct_id NUMBER;
l_party_id NUMBER;
l_return_status VARCHAR2(30);
l_msg_count NUMBER;
l_msg_data VARCHAR2(30);
l_joint_acct_owner_id NUMBER;
v_count NUMBER;
l_bank_acct_id NUMBER;
--l_result_rec iby_fndcpt_common_pub.result_rec_type;
l_payee_rec iby_disbursement_setup_pub.payeecontext_rec_type;
l_instrument_rec iby_fndcpt_setup_pub.pmtinstrument_rec_type;
l_assignment_attribs_rec iby_fndcpt_setup_pub.pmtinstrassignment_rec_type;
l_result_rec iby_fndcpt_common_pub.result_rec_type;
l_ext_bank_acct_rec iby_ext_bankacct_pub.extbankacct_rec_type;
l_vendor_site_rec ap_vendor_pub_pkg.r_vendor_site_rec_type;
CURSOR cur_vendor IS
SELECT * FROM cux_oms_vendor h WHERE h.process_status = 'COMPLETE';
BEGIN
FOR rec_vendor IN cur_vendor LOOP
l_party_id := NULL;
BEGIN
SELECT pv.vendor_id
INTO l_vendor_id
FROM po_vendors pv
WHERE pv.segment1 = rec_vendor.rec_vendor_number;
详解EBS接口开发之供应商导入(补充)--供应商银行账户更新
最新推荐文章于 2023-07-14 14:46:15 发布
![](https://img-home.csdnimg.cn/images/20240711042549.png)