(1)
'Script modifié
'<Origine REAPR>
PageDef "HautPage...BasPage"
Requete = _MySql
Si Requete = 0 alors Requete = "SELECT Article.Code as CodeArticle, Sum(ARTICLE.StockMaxGen) AS StockMaxi, Sum(ARTICLE.StockPhyGen) AS StockPhysique, Sum(ARTICLE.StockMinGen) AS SeuilMini, Sum(ARTICLE.ReliquatFseur) as ReliquatFour, Sum(ARTICLE.StockPhyGen + ARTICLE.ReliquatFseur)AS StockTheo, (StockMaxi - StockTheo) as QteACommander FROM Article INNER JOIN Stock ON Article.Code = Stock.CodeArticle GROUP BY Article.Code"
Selection = Liste Requete
Article = Liste "Article" Classée par "Code"
Pour Chaque Selection
Si Changement(Page) alors Imprimer "Début Corps...FinCorps"
'Positionnement Article
Lit Article, selection.CodeArticle
Imprimer "Article"
Boucler
Partager