Suivez et participez au développement du nouvel OpenCellar : PLOC.co
Home Page
 
Français  English  
Open Cellar Home Edition - 1.2 - Windows 98, Me, 2000, XP and Vista. The free Windows wine cellar management software. Open Cellar Mobile Edition - Beta 2 (French version) - Pocket PC. The free Pocket PC wine cellar management software. Open Cellar Cross Platform - Beta 1 (French version) - Mac OSX and Linux. The free MacOS/Linux wine cellar management software. My Open Cellar Open Cellar Forums Place des vins
Search: Welcome (connect - create an account )
Page settings

Nuage de tags
Statistiques stock et coûts
Le script suivant affiche des statistiques sur votre cave
Pour l'éxécuter allez dans le menu "Préférences" -> "Editeurs de scripts"

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

  //
  // Recupere la liste des vins de la cave
  //
  ObjectCollection wines = App.ActiveCellar.GetCollection((ushort)ObjectType.Wine);

  float bottles = 0;
  float evaluatePrice = 0;
  float buyPrice = 0;

  for (int i = 0; i < wines.Count; i++)
  {
     Wine w = (Wine)wines[i];
     if(w.ManualManagement)
     {
	bottles+= w.RackItems.Count;
     	evaluatePrice+= (w.EvaluatePrice * w.RackItems.Count);
     }
     else
     {
	bottles+= w.Bottles;
     	evaluatePrice+= (w.EvaluatePrice * w.Bottles);
     }

     // Fiche achats consos
     for (int j = 0; j < w.Purchases.Count; j++)
     {
	PurchaseSales psales = (PurchaseSales)w.Purchases[j];
	buyPrice += psales.Amount;
	
     }
     
  } 

  //
  // Affichage
  //
  MessageBox.Show("Nombre de bouteilles en cave : " + bottles.ToString() + "\n" + "Valeur estimation : " + evaluatePrice.ToString("F") + " €" + "\n" + "Total achat : " + buyPrice.ToString("F") + " €");
}

 

© 2006-2014 Matthieu DUCROCQ  Open Cellar official blog - All rights reserved - Last update: january 2014 | twitter