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 )
Nuage de tags
affichage cave mode texte - estimation
14/02/2007
Reply
affichage cave mode texte - estimation
yvb
36 posts
il y a la valeur estimative de la cave...
il serait intéressant d'avoir la valeur d'achat aussi
cordialement
 

14/02/2007
Reply
Re : affichage cave mode texte - estimation
AdministrateurView your blog
3099 posts
Ce petit script devrait vous convenir :-)

// Début du script

//
// Verifie qu'une cave est bien ouverte
//

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") + " €");
}

// Fin du script

Matthieu
 

14/02/2007
Reply
Re : affichage cave mode texte - estimation
yvb
36 posts
il me mets 0€ sur votre base de test ...oups....
 

14/02/2007
Reply
Re : affichage cave mode texte - estimation
bitos
38 posts
Pour ma part, il affiche la valeur totale des achats, par contre le nombre de bouteilles est de 0 5au lieu d'une centaine et l'estimation est aussi égale à 0
 

14/02/2007
Reply
Re : affichage cave mode texte - estimation
AdministrateurView your blog
3099 posts
oops m'a gourré :-p

// Début du script

//
// Verifie qu'une cave est bien ouverte
//

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+= (int)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") + " €");
}

// Fin du script

Le total achat est la somme de fiches achats consos et non le prix d'achat * nombre de bouteilles.

Matthieu
 

15/02/2007
Reply
Re : affichage cave mode texte - estimation
bitos
38 posts
Merci Matthieu cela marche cette fois parfaitement
 

15/02/2007
Reply
Re : affichage cave mode texte - estimation
bitos
38 posts
Merci Matthieu cela marche cette fois parfaitement
 

16/02/2007
Reply
Re : affichage cave mode texte - estimation
yvb
36 posts
merci encore !!!
 

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