Personeli Tedarikçi Olarak Oluşturma Örnek Script’i

DECLARE
   p_person_id                 NUMBER := 1200;
   p_full_name                 VARCHAR2 := 'DENEME ÇALIŞAN';
   l_vendor_type_lookup_code   VARCHAR2 (50) := 'EMPLOYEE';
   l_term_id                   NUMBER := 10000;
   l_vendor_rec                ap_vendor_pub_pkg.r_vendor_rec_type;
   lv_return_status            VARCHAR2 (50);
   lv_msg_data                 VARCHAR2 (1000);
   ln_msg_count                NUMBER;
   ln_vendor_id                NUMBER;
   ln_party_id                 NUMBER;
   lv_msg                      VARCHAR2 (4000);
   x_error_message             VARCHAR2 (4000);
   ln_msg_index_out            NUMBER;
   l_vendor_site_rec           ap_vendor_pub_pkg.r_vendor_site_rec_type;
   l_vendor_site_code          VARCHAR2 (50);
   ln_vendor_site_id           NUMBER;
   ln_party_site_id            NUMBER;
   ln_location_id              NUMBER;
BEGIN
   l_vendor_rec := NULL;
 
   l_vendor_rec.vendor_name := p_full_name;
   l_vendor_rec.vendor_type_lookup_code := l_vendor_type_lookup_code;
   l_vendor_rec.terms_id := l_term_id;
   l_vendor_rec.employee_id := p_person_id;
 
   ap_vendor_pub_pkg.Create_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      => lv_return_status,
      x_msg_count          => ln_msg_count,
      x_msg_data           => lv_msg_data,
      p_vendor_rec         => l_vendor_rec,
      x_vendor_id          => ln_vendor_id,
      x_party_id           => ln_party_id);
 
   IF lv_return_status = 'S'
   THEN
      p_vendor_id := ln_vendor_id;
      p_party_id := ln_party_id;
      p_return_status := 'S';
      p_return_message := 'Basarili sekilde olusturulmustur.';
   ELSE
      IF ln_msg_count => 0
      THEN
         FOR ln_index IN 1 .. ln_msg_count
         LOOP
            fnd_msg_pub.get (p_msg_index       => ln_index,
                             p_encoded         => 'F',
                             p_data            => lv_msg,
                             p_msg_index_out   => ln_msg_index_out);
            x_error_message := x_error_message || SUBSTR (lv_msg, 1, 500);
         END LOOP;
      END IF;
 
 
      p_return_status := 'E';
      p_return_message := x_error_message;
   END IF;
 
   DBMS_OUTPUT.PUT_LINE (p_return_status);
   DBMS_OUTPUT.PUT_LINE (p_return_message);
END;