oracle ebs供应商银行 怎么批量维护
发布网友
发布时间:2022-04-26 00:45
我来回答
共2个回答
热心网友
时间:2022-05-04 23:56
DECLARE
l_return_status VARCHAR2(1 );
l_msg_count NUMBER := 0 ;
l_msg_data VARCHAR2(4000 );
l_msg_index NUMBER;
/*******************客户化内容开始*************************/
l_bank_id NUMBER;
l_extbank_rec iby_ext_bankacct_pub.extbank_rec_type;
l_result_rec iby_fndcpt_common_pub.result_rec_type;
/*******************客户化内容结束*************************/
BEGIN
--初始化
fnd_profile.put( 'PRINT_DEBUG',
'Y');
dbms_output.enable( 10000000);
fnd_msg_pub.initialize;
/*******************客户化内容开始*************************/
l_extbank_rec := NULL;
l_extbank_rec.bank_name := '北京京东银行' ;
l_extbank_rec.object_version_number := 1;
l_extbank_rec.country_code := 'CN';
l_extbank_rec.institution_type := 'BANK';
iby_ext_bankacct_pub.create_ext_bank(p_api_version => 1.0,
p_init_msg_list => fnd_api.g_false,
p_ext_bank_rec => l_extbank_rec,
x_bank_id => l_bank_id,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
x_response => l_result_rec);
/*******************客户化内容结束*************************/
IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
dbms_output.put_line( 'FAILED');
IF (fnd_msg_pub.count_msg > 0 ) THEN
dbms_output.put_line( 'Error Message Stack :');
dbms_output.put_line( '----------------------------------------' );
FOR i IN 1 .. fnd_msg_pub.count_msg
LOOP
fnd_msg_pub.get(p_msg_index => i,
p_encoded => fnd_api.g_false,
p_data => l_msg_data,
p_msg_index_out => l_msg_index);
dbms_output.put_line(l_msg_data);
END LOOP ;
fnd_msg_pub.initialize;
END IF ;
ELSE
dbms_output.put_line( 'SUCCESS');
/*******************客户化内容开始*************************/
dbms_output.put_line(l_bank_id);
/*******************客户化内容结束*************************/
END IF;
END;