Liste d'achat

01/01/2007
Répondre

Liste d'achat

Mindaiste
7 posts

Bonjour et bonne année 2007 à tous !
Un grand bravo et merci pour ce magnifique programme, et tout le travail qui va avec.
Une idée comme ça, serait-il possible de créer automatiquement une liste d'achat? Par exemple, en utilisant le système des alertes, générer un fichier pdf quand le nombre de bouteilles arrive à un certain seuil.
Je ne sais pas si ça peut déjà se faire (je ne l'ai pas trouvé en tous cas).
cordialement,

Jean-Emmanuel Simiand

02/01/2007 Répondre	Re : Liste d'achat
Administrateur 3099 posts	Bonjour et merci Il est possible, via un script, de sortir un listing de tous les vins dont le seuil d'alerte est dépassé. Quelles sont les colonnes que vous souhaiteriez avoir ? Cordialement, Matthieu

02/01/2007 Répondre	Re : Liste d'achat
Mindaiste 7 posts	Bonjour, personnellement, je serai intéressé par les infos suivantes : Nom Millésime Région Appelation Couleur Prix d'achat Nombre de bouteilles restantes Je ne sais pas si d'autres voudraient compléter. Merci beaucoup Jean-Emmanuel Simiand

03/01/2007
Répondre

Re : Liste d'achat

Administrateur Voir son blog

3099 posts

Bonjour,

Vous trouverez ci apres le script de creation du listing.
Comme le forum ne conserve pas la mise en forme vous pouvez aussi le telecharger ici :
http://www.open-cellar.com/usralert.zip

Note : pour ouvrir la fenetre de script Menu Préferences -> Editeur de scripts

// Début du script

App.Animate(AnimationType.Work, true);
App.SetCursor(true);

//
// Modifiez ici le titre du report
//
string reportName = "Liste des vins dépassant le seuil d'alerte";

//
// Creation entete report
//
ReportTable rt = new ReportTable(reportName);

//
// Nom
//
ReportColumn rcName = rt.NewColumn("Nom");
rcName.Size = 260;

//
// Année
//
ReportColumn rcYear = rt.NewColumn("Année");
rcYear.Size = 40;
rcYear.ContentAlignment = ReportContentAlignment.Right;
rcYear.DataType = ReportColumnType.Numeric;

//
// Région
//
ReportColumn rcArea = rt.NewColumn("Région");
rcArea.Size = 100;

//
// Appellation
//
ReportColumn rcApp = rt.NewColumn("Appellation");
rcApp.Size = 140;

//
// Couleur
//
ReportColumn rcColor = rt.NewColumn("Couleur");
rcColor.Size = 75;

//
// Prix achat
//
ReportColumn rcBuy = rt.NewColumn("Prix achat");
rcBuy.Size = 80;
rcBuy.ContentAlignment = ReportContentAlignment.Right;

//
// Nombre bouteilles
//
ReportColumn rcBottles = rt.NewColumn("Btles");
rcBottles.Size = 40;
rcBottles.ContentAlignment = ReportContentAlignment.Right;
rcBottles.DataType = ReportColumnType.Numeric;

//
// Alimentation de la source
//
ObjectCollection trackers = App.ActiveCellar.GetCollection((ushort)ObjectType.Tracker);

for (int i = 0; i < trackers.Count; i++)
{
Tracker track = (Tracker)trackers[i];
if(track.Indicator != IndicatorType.Red)
{
continue;
}
Wine wine = track.Wine;
if(wine == null)
{
continue;
}
ReportRow row = rt.NewRow();
row[0] = wine.Name;

if(wine.Year != 0)
{
row[1] = wine.Year.ToString();
}

row[2] = wine.Area.Name;
row[3] = wine.Appellation.Name;

row[4] = "Champagne";

if(wine.WineColor == ColorType.Red)
{
row[4] = "Rouge";
}
else if(wine.WineColor == ColorType.White)
{
row[4] = "Blanc";
}
else if(wine.WineColor == ColorType.Rosy)
{
row[4] = "Rosé";
}
else if(wine.WineColor == ColorType.Yellow)
{
row[4] = "Champagne";
}
else if(wine.WineColor == ColorType.LiqueurLike)
{
row[4] = "Liquoreux";
}
else if(wine.WineColor == ColorType.Misc)
{
row[4] = "Autre";
}

row[5] = wine.BuyPrice.ToString() + " E";

//
// Gestion manuelle
//
if(wine.ManualManagement)
{
row[6] = wine.Bottles.ToString();
}
else
{
row[6] = wine.RackItems.Count.ToString();
}
}

//
// Tri des elements
//
rt.Sort("0-0;1-1");

//
// Génération
//
System.Collections.ArrayList list = new System.Collections.ArrayList();
list.Add(rt);

IReport report = App.ReportEngine.GetSystemReport(PredefinedReport.Grid);

string destFileName = App.Path + "Cache\\UserWinesAlertGrid.pdf";
bool success = false;
try
{
report.Create(list, destFileName);
success = true;
}
catch(Exception ex)
{
MessageBox.Show("Erreur (1)");
}

//
// Affichage du report
//
if(success)
{
IShellWindow shellWindow = (IShellWindow)App.GetWindow(WindowType.Shell, null);
if(shellWindow != null)
{
shellWindow.Start(destFileName);
}
}

App.SetCursor(false);
App.StopAnimate();

// Fin

03/01/2007 Répondre	Re : Liste d'achat
Mindaiste 7 posts	Bonjour Matthieu, ça marche parfaitement. Merci beaucoup. Cordialement, Jean-Emmanuel Simiand