Archivage fiches vins

11/11/2007
Répondre

WINI
4 posts

Bonjour et félicitations pour ce programme,
J'ai une question concernant la possibilité de pouvoir archiver des fiches de vins consommés avec nombre de bouteille à zéro que je voudrais faire sortir de la liste des vins de la cave principale , mais garder une trace dans une liste de cave archive pour consultations ultérieures des vins bus.
On peut supprimer une fiche de la liste de la cave, mais on perd alors toutes infos sur ce vin.
J'ai donc créé une cave archive, j'exporte le vin voulu de la liste de la cave principale et ensuite je l'importe dans la cave archive.
Le problème est que je perds une série d'informations (exemple: les champs: référence, boire de , boire à ...) et les indications achat-consom, dégustation...
Grand merci si quelqu'un à une solution ou si un script existe, car je n'ai pas trouvé sur le forum.
A plus
WINI

11/11/2007 Répondre	Re : Archivage fiches vins
Administrateur 3099 posts	Bonjour, merci et bienvenue Il y a un complément disponible dans la section téléchargement qui permet l'importation de données en provenance d'autres caves sous OC. Vous le trouverez ici : http://www.open-cellar.com/Pack3.zip Matthieu

12/11/2007
Répondre

Re : Archivage fiches vins

WINI
4 posts

Bonsoir et grand merci pour votre réponse aussi rapide.
Je n'avais effectivement pas vu ce complément qui marche bien et permet effectivement de copier un vin avec toute les donneées et sous-fiches dans une aure cave.
Je me permet encore de vous solliciter, je trouverai intéressant d'avoir dans la liste en texte également le fournisseur qui est encodé dans la sous-fiche achats-consom.
Il serait également intéressant de pouvoir imprimer une liste des vins sélectionnés en prévision d'achat avec les champs principaux: nom, appelation, fournisseur, producteur, note, couleur, année, prix, pays, région...
En tout cas bravo pour vos développements et la mise à disposition de ce beau programme.
WINI

15/11/2007
Répondre

Re : Archivage fiches vins

Administrateur Voir son blog

3099 posts

Bonjour,

Ci apres un exemple de script, celui ci imprime les vins présents dans la fenetre ma cave en mode texte.

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

App.SetCursor(true);

//
// Modifiez ici le titre du report
//
string reportName = "Liste des vins";

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

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

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

//
// Classement
//
ReportColumn rcCl = rt.NewColumn("Classement");
rcCl.Size = 100;

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

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

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

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

//
// Prix
//
ReportColumn rcPrice = rt.NewColumn("Prix");
rcPrice.Size = 55;
rcPrice.ContentAlignment = ReportContentAlignment.Right;
rcPrice.DataType = ReportColumnType.Numeric;

IWineListWindow listWindow = (IWineListWindow)App.GetWindow(WindowType.WineList);
if(listWindow != null)
{
	listWindow.Show();

BindingList list = listWindow.Wines;
        for (int i = 0; i < list.Count; i++)
	{
                Wine wine = list[i];
  		ReportRow row = rt.NewRow();
  		int colorIndex = 4;
  		row[0] = wine.Area.Name;
  		row[1] = wine.Appellation.Name;
  		row[2] = wine.Classification.Name;
  		row[3] = wine.Name;

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

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

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

row[7] = wine.BuyPrice.ToString("f");		
        }
}

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

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

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

string destFileName = App.Path + "Cache\\UserReport2.pdf";
bool success = false;
try
{
   report.Create(list2, 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);

N'hésitez pas si vous souhaitez un autre affichage ou d'autres colonnes.

Matthieu

17/11/2007 Répondre	Re : Archivage fiches vins
WINI 4 posts	Grand merci, en fait je cherche un moyen d'imprimer une liste comme reprise dans votre script ci-dessus , mais avec en plus le nom du fournisseur repris dans la fiche achats-conso. Ceci afin d'avoir sous la main la liste des vins avec le fournisseur pour faciliter les achats à faire. :wink:

18/11/2007
Répondre

Re : Archivage fiches vins

Administrateur Voir son blog

3099 posts

Bonjour,

Voici vottre script :

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

App.SetCursor(true);

//
// Modifiez ici le titre du report
//
string reportName = "Liste des vins";

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

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

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

//
// Fournisseurs
//
ReportColumn rcOw = rt.NewColumn("Fournisseur");
rcOw.Size = 140;

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

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

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

//
// Prix
//
ReportColumn rcPrice = rt.NewColumn("Prix");
rcPrice.Size = 55;
rcPrice.ContentAlignment = ReportContentAlignment.Right;
rcPrice.DataType = ReportColumnType.Numeric;

IWineListWindow listWindow = (IWineListWindow)App.GetWindow(WindowType.WineList);
if(listWindow != null)
{
	listWindow.Show();

string ow = string.Empty;
		for (int j = 0; j < wine.Purchases.Count; j++)
		{
		  PurchaseSales psales = (PurchaseSales)wine.Purchases[j];
		  if((psales.Price > 0)
			&& (psales.Provider.Name.Trim() != string.Empty))
		  {
		     ow+=psales.Provider.Name.Trim() + " ";
		  }
		}

row[2] = ow;

row[3] = wine.Name;

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

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

row[7] = wine.BuyPrice.ToString("f");		
        }
}

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

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

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

App.SetCursor(false);

Matthieu

18/11/2007 Répondre	Re : Archivage fiches vins
WINI 4 posts	Encore une foi merci pour votre réponse et solution si rapide. Ceci me donne effectivement une liste pratique pour préparer mes achats de vins A plus Wini