oracle+ebs+权限配置文件,Oracle EBS AR 更新客户配置文件

DECLAREl_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_idNUMBER;

l_profile_idNUMBER;

l_return_status1VARCHAR2(30);

l_msg_count1NUMBER;

l_msg_data1VARCHAR2(2000);

l_return_status2VARCHAR2(30);

l_msg_count2NUMBER;

l_msg_data2VARCHAR2(2000);

l_object_version_numberNUMBER;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);

EXCEPTIONWHEN OTHERS THENdbms_output.put_line(‘x_return_status:‘ ||SQLERRM);END;