Export cave/stats

22/11/2008
Reply

Export cave/stats

jnbourgoin
2 posts

Bonjour.

Tout d'abord bravo et merci pour ce soft, c'est de loin le meilleur que j'ai utilisé!!!

Je souhaiterais ou bien personnaliser les statistiques ou bien faire un export sous excel en en XML de ma cave pour pouvoir calculer ma consommation par année en nombres de bouteilles, couleur, appellation, etc... pour pouvoir ajuster ma stratégie d'achats. J'ai bien trouvé le moyen d'importer un fichier vinoXML, mais pas l'export ...

Merci d'avance.

JN

24/11/2008
Reply

Re : Export cave/stats

Administrateur View your blog

3099 posts

Bonjour et merci,

Voici un script qui vous affichera dans la liste dans la fenetre grille avancée la liste des vos achats, vous pourrez à partir de cette fenetre exporter les données vers Excel :

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

TableManager manager = new TableManager(App);

manager.BeginUpdate();

DataTable table = new DataTable("AfficherPAEx");
table.DefaultView.AllowDelete = false;
table.CaseSensitive = false;
table.DefaultView.AllowEdit = false;
table.DefaultView.AllowNew = false;

// SysId
DataColumn col = new DataColumn("SysId", typeof(string));
col.Caption = "SysId";
table.Columns.Add(col);

// Année
col = new DataColumn("Year", typeof(ushort));
col.Caption = "Année";
table.Columns.Add(col);

// Nom
col = new DataColumn("Name", typeof(string));
col.Caption = "Vin";
table.Columns.Add(col);

// Région
col = new DataColumn("Area", typeof(string));
col.Caption = "Région";
table.Columns.Add(col);

// Appellation
col = new DataColumn("Appellation", typeof(string));
col.Caption = "Appellation";
table.Columns.Add(col);

// Prix
col = new DataColumn("Price", typeof(float));
col.Caption = "Prix unitaire ";
table.Columns.Add(col);

// Achat
col = new DataColumn("Buy", typeof(ushort));
col.Caption = "Achat ";
table.Columns.Add(col);

// Consommation
col = new DataColumn("Consume", typeof(ushort));
col.Caption = "Consommation ";
table.Columns.Add(col);

// Date
col = new DataColumn("Date", typeof(DateTime));
col.Caption = "Date ";
table.Columns.Add(col);

// Commentaire fiche
col = new DataColumn("Comment", typeof(string));
col.Caption = "Commentaire fiche";
table.Columns.Add(col);

table.BeginLoadData();

// Liste des vins
ObjectCollection oc = manager.Application.ActiveCellar.GetCollection((ushort)ObjectType.Wine);

for(int i = 0; i < oc.Count; i++)
{
  Wine w = (Wine)oc[i];
  
  // Fiches achats consos
  for (int j = 0; j < w.Purchases.Count; j++)
  {
	PurchaseSales ps = (PurchaseSales)w.Purchases[j];
      	DataRow r = table.NewRow();
	r["Name"] = w.Name.Trim();
	r["Area"] = w.Area.Name.Trim();
	r["Appellation"] = w.Appellation.Name.Trim();
	r["SysId"] = w.SystemUID;
	r["Comment"] = ps.Comment.Replace("\n", " ");
	r["Year"] = w.Year;
	r["Price"] = ps.Price;	   
	r["Buy"] = ps.PurchaseBottles;
	r["Date"] = ps.Date;
	r["Consume"] = ps.ConsumeBottles;
	table.Rows.Add(r);
 }	
}

table.EndLoadData();

manager.DataSource = table;

manager.EndUpdate();

ITableWindow tableWindow = (ITableWindow)App.GetWindow(WindowType.Table, manager);
if(tableWindow == null)
{
	return;
}

tableWindow.Show();

A noter que sous la 1.2 ce genre de stats sera intégré :-)

Matthieu

24/11/2008 Reply	Re : Export cave/stats
jnbourgoin 2 posts	Super! Merci. A quand la 1.2? JN

24/11/2008 Reply	Re : Export cave/stats
Administrateur 3099 posts	Encore 2 ptites semaines normalement.

29/08/2010 Reply	Re : Export cave/stats
Vincent KOENIG 8 posts	Bonjour, Vous dites que ce script sera integré à la V1.2, j'ai la V1.2 mais je ne vois pas ou et comment utiliser cette fonction. Pour le moment j'utilise l'éditeur de script. Cdlt. V.KOENIG