Script réalisé pour Garage des Quinze /// ‘Le programme calcul les ventes (En qté et en Montant) réalisées pour chaque pièce ‘Nota : ‘Il faut créer 3 champs supplémentaires dans la table PIECE ‘GQPERIODECA, texte, 30 caractères ‘GQQTE, Numérique ‘GQCAHT, Numérique ‘———————————————————————————- PageDef « HautPage…BasPage » ‘Formulaire ‘———- FORM Demander « Date de début : « , DD, DATE, JMA Demander « Date de fin : « , DF, DATE, JMA FINFORM Si DD = « » alors DD = « 01/01/2000 » Si DF = « » alors DF = « 01/01/2000 » VDD = format(DD, « MM/DD/YYYY ») VDF = format(DF, « MM/DD/YYYY ») ‘Mise à zéro des champs statistique dans les articles ‘—————————————————- SQL = « UPDATE PIECE » SQL = SQL & « set GQPERIODECA = », » SQL = SQL & « GQQTE = 0, » SQL = SQL & « GQCAHT = 0 » EXECUTE SQL ‘Calcul des ventes ‘—————— SQL = « SELECT PI.Code, » SQL = SQL & « Sum(IIf([EF]![Type]=’F’,[LF]![Quantite],[LF]![Quantite])) AS Qte, » SQL = SQL & « Sum(IIf([EF]![Type]=’F’,[LF]![TotalLigneHT],[LF]![TotalLigneHT])) AS CAHT » SQL = SQL & « FROM (Piece AS PI INNER JOIN [Ligne Facture] AS LF ON PI.Code = LF.CodeArticle) » SQL = SQL & « INNER JOIN [Entete Facture] AS EF ON LF.CodeFacture = EF.Code » SQL = SQL & « WHERE LF.DateFacture between # »&VDD& »# AND # »&VDF& »# » SQL = SQL & « GROUP BY PI.Code » SQL = SQL & « ORDER BY PI.Code » LPIECES = Liste SQL ‘Mise à jour des pièces ‘————————- Pour chaque LPIECES SQL = « UPDATE PIECE » SQL = SQL & « SET GQQte = CDBL(‘ »& LPIECES.Qte & »‘), » SQL = SQL & « GQCAHT = CDBL(‘ »& LPIECES.CAHT & »‘), » SQL = SQL & « GQPERIODECA = ‘Du ‘ & ‘ » SQL = SQL & DD SQL = SQL & « ‘ & ‘ au : ‘ & ‘ » SQL = SQL & DF SQL = SQL & « ‘ WHERE » SQL = SQL & « PIECE.CODE = ‘ »& LPIECES.Code & »‘ » EXECUTE SQL Boucler Imprimer « Page » ///