// MergeList 
// Janvier 2007 
// Ce script copie tous les (nouveaux) propriétaires 
// vers la liste des fournisseurs 

if(App.ActiveCellar == null) 
{ 
   MessageBox.Show("Aucune cave n'est ouverte."); 
   return; 
} 

// 
// Parcours tous les proprietaires 
// 
ObjectCollection owners = App.ActiveCellar.GetCollection((ushort)ObjectType.Owner); 

ObjectCollection providers = App.ActiveCellar.GetCollection((ushort)ObjectType.Provider); 

for (int i = 0; i < owners.Count; i++) 
{ 
   bool find = false; 
   Owner o = (Owner) owners[i]; 
   for (int j = 0; j < providers.Count; j++) 
   { 
   Provider p = (Provider)providers[j]; 
   if(o.Name.Trim() == p.Name.Trim()) 
   { 
       find = true; 
       break; 
   }    
   } 

   if(!find) 
   { 
         // 
         // Creation du provider 
         // 
   Provider newProv = (Provider)App.ActiveCellar.CreateItem(ObjectType.Provider); 
   newProv.Name = o.Name; 
   newProv.Address1 = o.Address1; 
   newProv.Address2 = o.Address2; 
   newProv.City = o.City; 
   newProv.Email = o.Email; 
   newProv.Fax = o.Fax; 
   newProv.Phone = o.Phone; 
   newProv.Web = o.Web; 
   newProv.ZipCode = o.ZipCode; 
    
   // Enregistrement 
   newProv.Save(); 
   } 
} 
MessageBox.Show("Traitement terminé");