供应商地点信息更新(转)

原文地址 供应商地点信息更新 

DECLARE
   l_api_version CONSTANT NUMBER := 1;
   l_msg_data        VARCHAR2(2000);
   l_msg             VARCHAR2(4000);
   l_msg_count       NUMBER;
   l_return_status   VARCHAR2(1);
   l_method_code     VARCHAR2(50);
   l_vendor_site_rec ap_vendor_pub_pkg.r_vendor_site_rec_type;
   CURSOR cur_vendor IS
      SELECT vendor.vendor_id,
             vendor_site.vendor_site_id,
             vendor_site.org_id
        FROM ap_suppliers vendor, ap_supplier_sites_all vendor_site
       WHERE vendor.vendor_id = vendor_site.vendor_id
         AND vendor.vendor_type_lookup_code = 'EMPLOYEE';

BEGIN
   fnd_global.apps_initialize(user_id      => 1170,
                              resp_id      => 50717,
                              resp_appl_id => 20005);
   --mo_global.set_policy_context(p_access_mode => 'S', p_org_id => 83);
   --fnd_profile.PUT(NAME =>'MFG_ORGANIZATION_ID' ,VAL => 83);
   FOR rec_vendor IN cur_vendor LOOP
      mo_global.set_policy_context(p_access_mode => 'S',
                                   p_org_id      => rec_vendor.org_id);
      l_vendor_site_rec.purchasing_site_flag := 'N';
      l_vendor_site_rec.vendor_id            := rec_vendor.vendor_id;
      l_vendor_site_rec.vendor_site_id       := rec_vendor.vendor_site_id;
      BEGIN
         ap_vendor_pub_pkg.update_vendor_site(p_api_version      => l_api_version,
                                              p_init_msg_list    => fnd_api.g_false,
                                              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_site_rec  => l_vendor_site_rec,
                                              p_vendor_site_id   => rec_vendor.vendor_site_id,
                                              p_calling_prog     => 'NOT ISETUP');
      
      EXCEPTION
         WHEN OTHERS THEN
            dbms_output.put_line('ERROR:' || SQLERRM);
      END;
      --COMMIT;
      --dbms_output.put_line('o_return_status:'||o_return_status);
      IF l_return_status <> fnd_api.g_ret_sts_success THEN
      
         FOR i IN 1 .. l_msg_count LOOP
            l_msg_data := fnd_msg_pub.get(p_msg_index => i,
                                          p_encoded   => 'F');
            dbms_output.put_line('l_msg_data:' || l_msg_data);
         END LOOP; --FOR i IN 1 .. x_msg_count LOOP    
         dbms_output.put_line('x_return_status:' || l_return_status);
      
         dbms_output.put_line('l_msg_data:' || l_msg_data);
         RAISE fnd_api.g_exc_unexpected_error;
         -- o_msg_data := l_msg_data;
      
      ELSE
         NULL;
         --dbms_output.put_line('S');
      END IF;
   
   END LOOP; -- FOR REC_VENDOR IN cur_vendor LOOP
END;

例：更新供应商地点可采购flag