Oracle AP更新供应商
标签：har com ati comm art enable lin put varchar2
Oracle AP更新供应商
l_return_status:S
l_msg_count:0
l_msg_data:
l_vendor_id:133003
l_party_id:236055
*/
DECLARE
l_return_status VARCHAR2(1);
l_msg_count NUMBER;
l_msg_data VARCHAR2(1000);
l_vendor_rec ap_vendor_pub_pkg.r_vendor_rec_type;
l_vendor_id NUMBER;
l_party_id NUMBER;
BEGIN
fnd_global.apps_initialize(1670, 50728, 200);
mo_global.init(‘SQLAP‘);
--
l_vendor_rec.vendor_name := ‘DDDDD‘;
l_vendor_rec.enabled_flag := ‘Y‘;
l_vendor_rec.vendor_type_lookup_code := ‘VENDOR‘;
l_vendor_rec.vat_code := ‘CN_VAT_IN_17‘;
l_vendor_rec.vat_registration_num := ‘12332111‘;
--- hz_organization_profiles.incorp_year
ap_vendor_pub_pkg.update_vendor(p_api_version => 1.0,
p_init_msg_list => fnd_api.g_true,
p_commit => fnd_api.g_false,
p_validation_level => fnd_api.g_valid_level_full,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_vendor_rec => l_vendor_rec,
x_vendor_id => l_vendor_id);
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(‘l_vendor_id:‘ || l_vendor_id);
dbms_output.put_line(‘l_party_id:‘ || l_party_id);
dbms_output.put_line(fnd_msg_pub.get_detail(1, ‘F‘));
END;