创建供应商API

DECLARE
  CURSOR c IS
    SELECT mm.manufacturer_id
          ,mm.manufacturer_name
          ,mm.description
          ,mm.attribute5 --曾用名
          ,mm.attribute4
          ,mm.attribute6
          ,mm.attribute7
          ,mm.attribute9
           -- ,mm.created_by
           --  ,mm.creation_date
          ,mm.attribute3
          ,mm.attribute1
    
      FROM mtl_manufacturers mm
     WHERE NOT EXISTS (SELECT 1
              FROM ap.ap_suppliers ap
             WHERE mm.description = ap.vendor_name); --1246
  l_vendor_rec    ap_vendor_pub_pkg.r_vendor_rec_type;
  j               NUMBER := 0;
  l_segment1      VARCHAR2(240);
  x_return_status VARCHAR2(240);
  x_msg_count     NUMBER;
  x_msg_message   VARCHAR2(4000);
  l_vendor_id     NUMBER;
  l_party_id      NUMBER;
BEGIN
  FOR i IN c LOOP
    l_segment1 := cux_hap_comm_data_pkg.get_max_segment1;
    j          := j + 1;
    -- 创建供应商 
    l_vendor_rec                         := NULL;
    l_vendor_rec.segment1                := l_segment1;
    l_vendor_rec.vendor_name             := i.description;
    l_vendor_rec.vendor_type_lookup_code := 'VENDOR';
    l_vendor_rec.attribute_category      := NULL;
    l_vendor_rec.attribute2              := '系统外';
    l_vendor_rec.attribute4              := i.attribute4;
    l_vendor_rec.attribute5              := 'VENDOR';
    --modify by fengzuo@20190501
    --PIM在处理时，供方档案密级不保存单据表头密级，默认存储为“内部（代码）
    l_vendor_rec.attribute6 := 'VC9F3MBC4G6I6NA'; --i.security_level;
    --end modify
    l_vendor_rec.attribute7        := i.attribute6;
    l_vendor_rec.attribute8        := i.attribute7;
    l_vendor_rec.attribute9        := i.attribute9;
    l_vendor_rec.attribute10       := 'ONLY_MANUFACTURER';
    l_vendor_rec.start_date_active := SYSDATE; --INSERT BY LJ@20181202
    IF i.attribute3 = 'Y' THEN
      l_vendor_rec.end_date_active := SYSDATE - 1;
    ELSE
      l_vendor_rec.end_date_active := NULL;
    END IF;
    --INSERT BY LJ@20181202
    l_vendor_rec.vendor_name_alt := i.attribute1; --ADD BY LJ@20190117
    l_vendor_rec.attribute11     := i.manufacturer_name;
    l_vendor_rec.attribute12     := i.manufacturer_id;
    l_vendor_rec.attribute13     := i.description; --ADD BY fengzuo@20190524 制造商名称(与供应商名称一致)
    l_vendor_rec.attribute14     := i.attribute5; --ADD BY fengzuo@20190524
    l_vendor_rec.attribute15     := 'INTRANET'; --ADD BY fengzuo@20190524
    l_vendor_rec.attribute1      := NULL; --ADD BY fengzuo@20190524
    ap_vendor_pub_pkg.create_vendor(p_api_version      => 1.0
                                   ,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    => x_return_status
                                   ,x_msg_count        => x_msg_count
                                   ,x_msg_data         => x_msg_message
                                   ,p_vendor_rec       => l_vendor_rec
                                   ,x_vendor_id        => l_vendor_id
                                   ,x_party_id         => l_party_id);
  
  END LOOP;
  dbms_output.put_line(j);
END;