Livre de cave

01/08/2007 Répondre	Livre de cave
Jean-Pierre VARNIER 189 posts	Comment éditer le livre de cave en éliminant les vins à stock nul?

01/08/2007
Répondre

Re : Livre de cave

Administrateur Voir son blog

3099 posts

En copiant collant le script suivant :-)

)

/*
=====================================================================
File:

Summary:

Date : Juillet 2007

Origin:

Revision:

Aut: Matthieu DUCROCQ

---------------------------------------------------------------------
Copyright (C) N/A
=====================================================================
*/

// Envoi l'animation
App.Animate(AnimationType.Work, true);
// Affiche le curseur d'attente
App.SetCursor(true);

ArrayList wines = new ArrayList();
ObjectCollection winesCol = App.ActiveCellar.GetCollection((ushort)ObjectType.Wine);

// Alimente la source de données du report
for (int i = 0; i < winesCol.Count; i++)
{
      Wine w = (Wine)winesCol[i];

if((!w.ManualManagement)
         && (w.RackItems.Count == 0))
      {
         continue;
      }

if((w.ManualManagement)
         && (w.Bottles == 0))
      {
         continue;
      }
      wines.Add(w);
}

if(wines.Count > 0)
{
    // Recupere une reference vers le report
    IReport report = App.ReportEngine.GetSystemReport(PredefinedReport.WineCellarBook);
    if(report != null)
    {
       string destFileName = App.Path + "Cache\\ListeDesVinsStockSup0.pdf";
       bool success = false;
       try
       {
	 report.Create(wines, destFileName);
	 success = true;
       }
       catch(Exception ex)
       {
         MessageBox.Show("Erreur");
       }
       if(success)
       {
           //
	   // On lance le fichier généré
           //
	   IShellWindow shellWindow = (IShellWindow)App.GetWindow(WindowType.Shell, null);
	   if(shellWindow != null)
	   {
	     shellWindow.Start(destFileName);
	   }
       }
    }
}

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

02/08/2007 Répondre	Livre de cave
Jean-Pierre VARNIER 189 posts	Merci pour la réponse rapide