Oracle EBS AR 更新客户配置文件
时间：2021-07-01 10:21:17
帮助过：5人阅读
l_rec_profile_t hz_customer_profile_v2pub.customer_profile_rec_type;
l_rec_profile hz_customer_profile_v2pub.cust_profile_amt_rec_type;
l_profile_amt_id NUMBER;
l_profile_id NUMBER;
l_return_status1 VARCHAR2(
30);
l_msg_count1 NUMBER;
l_msg_data1 VARCHAR2(
2000);
l_return_status2 VARCHAR2(
30);
l_msg_count2 NUMBER;
l_msg_data2 VARCHAR2(
2000);
l_object_version_number NUMBER;
BEGIN
/* alter session set NLS_LANGUAGE = ‘AMERICAN‘ ;*/
mo_global.init(‘AR‘);
fnd_global.apps_initialize(user_id => 1250,
resp_id => 50719,
resp_appl_id => 20005);
l_rec_profile_t.cust_account_profile_id := 1040;
l_rec_profile_t.cust_account_id := 1042;
--CXY-TEST0028660
l_rec_profile_t.credit_hold := ‘N‘;
l_object_version_number := 5;
--此值需为当前此配置文件的值，API里验证如下
hz_customer_profile_v2pub.update_customer_profile(p_init_msg_list => fnd_api.g_false,
p_customer_profile_rec => l_rec_profile_t,
p_object_version_number => l_object_version_number,
x_return_status => l_return_status1,
x_msg_count => l_msg_count1,
x_msg_data => l_msg_data1);
FOR i
IN 1 .. l_msg_count1 LOOP
l_msg_data1 := fnd_msg_pub.get(p_msg_index
=> i, p_encoded
=> ‘F‘);
END LOOP;
--FOR i IN 1 .. x_msg_count LOOP
dbms_output.put_line(
‘x_return_status1:‘ || l_return_status1);
dbms_output.put_line(‘l_msg_count1:‘ || l_msg_count1);
dbms_output.put_line(‘l_msg_data1:‘ || l_msg_data1);
dbms_output.put_line(‘l_profile_amt_id:‘ || l_profile_amt_id);
EXCEPTION
WHEN OTHERS
THEN
dbms_output.put_line(‘x_return_status:‘ || SQLERRM);
END;
Oracle EBS AR 更新客户配置文件
标签：har count cep class char glob The date stat
