oracle银行账号报错,oracle abs ap 银行账号 组织层 新增api

DECLARE

l_return_status VARCHAR2(1);

l_msg_count NUMBER;

l_msg_data VARCHAR2(1000);

x_acct_use_id number;

l_ext_bank_acct_rec ce_bank_pub.BankAcct_use_rec_type;

l_org_id number;

l_org_name varchar2(100);

l_ccid number;

BEGIN

fnd_global.apps_initialize(0, 50701, 200);

mo_global.init('SQLAP');

select hz.party_name, BA.ASSET_CODE_COMBINATION_ID

into l_org_name, l_ccid

from hz_parties hz, ce_bank_accounts ba

where ba.bank_account_id = 50002

and hz.party_id = ba.account_owner_party_id;

dbms_output.put_line('l_org_name ' || l_org_name);

dbms_output.put_line('l_ccid ' || l_ccid);

select HR.organization_id

into l_org_id

from hr_operating_units hr

where hr.name = ' ' || l_org_name;

dbms_output.put_line('l_org_id ' || l_org_id);

--

l_ext_bank_acct_rec.bank_account_id := 50002;

l_ext_bank_acct_rec.org_type := 'OU';

l_ext_bank_acct_rec.org_id := l_org_id;

l_ext_bank_acct_rec.asset_code_combination_id := l_ccid;

l_ext_bank_acct_rec.ap_use_enable_flag := 'Y';

l_ext_bank_acct_rec.ar_use_enable_flag := 'Y';

l_ext_bank_acct_rec.authorized_flag := 'Y';

l_ext_bank_acct_rec.DEFAULT_ACCOUNT_FLAG := 'N';

ce_bank_pub.create_bank_acct_use(p_init_msg_list => fnd_api.G_FALSE,

p_acct_use_rec => l_ext_bank_acct_rec,

x_acct_use_id => x_acct_use_id,

x_return_status => l_return_status,

x_msg_count => l_msg_count,

x_msg_data => l_msg_data);

dbms_output.put_line('l_return_status:' || l_return_status);

dbms_output.put_line('l_msg_count:' || l_msg_count);

dbms_output.put_line('l_msg_data:' || l_msg_data);

dbms_output.put_line('x_acct_use_id:' || x_acct_use_id);

dbms_output.put_line(fnd_msg_pub.get_detail(1, 'F'));

END;

标签：abs,org,ap,api,rec,msg,acct,id,bank

来源： https://www.cnblogs.com/jenrry/p/11394756.html