1. 程式人生 > >Oracle AP更新供應商

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(167050728200);    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;