Discussion :

[maringot]

Bonjour User,

Nous avons eu en novembre dernier la discussion suivante : https://www.developpez.net/forums/d1...l/tableaux-ca/, qui m'a permis de mettre en place un tableau de bord du CA facturé.

Ce jour j'ai voulu imprimé ce tableau et voici ce que j'ai eu :
Pièce jointe 343003

J'ai eu l'idée de modifier la date de mon PC au 31/12/2017 et de relancer l'impression, voici le résultat :
Pièce jointe 343007

Il semble donc que le passage à la nouvelle année bascule le N en N-1, alors qu'il était prévu dans les requêtes que les dates de mon exercice (avril à mars) soient prise en compte. Savez-vous pourquoi il y a ce problème ?
Avec mes remerciements,
Maringot

[Jean-Philippe André]

Salut,

ton mode de calcul des N/N-1 et compagnie n'étant pas explicités ici, je sors ma boule de cristal et te dis que oui c'Est un problème

[maringot]

Bonjour,

Voici la BD envoyée par User lors de son post du 21/11, avec laquelle j'ai pu mettre en place les tableaux de CA : Pièce jointe 343068.

Les requêtes avec lesquelles les cumuls se font d'avril à mars sont établies de la manière suivante :
R_cumul (N-1):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
SELECT DISTINCT Year([DateFacture]) AS Annee, Month([DateFacture]) AS Mois, Format([DateFacture],"yyyy/mm") AS LeMois, (select Sum(MontantHT) From R_Facture T1 where Format(T1.DateFacture,"yyyy/mm") between (year(Date())-1) & "/04" and Format(R_Facture.DateFacture,"yyyy/mm");) AS CumulCA
FROM R_Facture
WHERE (((Format([DateFacture],"yyyy/mm")) Between (Year(Date())-1) & "/04" And Year(Date()) & "/03"));

R_cumul (N):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
SELECT DISTINCT Year([DateFacture]) AS Annee, Month([DateFacture]) AS Mois, Format([DateFacture],"yyyy/mm") AS LeMois, (select Sum(MontantHT) From R_Facture T1 where Format(T1.DateFacture,"yyyy/mm") between year(Date()) & "/04" and Format(R_Facture.DateFacture,"yyyy/mm");) AS CumulCA
FROM R_Facture
WHERE (((Format([DateFacture],"yyyy/mm")) Between (Year(Date())) & "/04" And (Year(Date())+1) & "/03"));

Donc je suppose que les requêtes ne fonctionnent pas correctement depuis le passage en 2018 car dès que je change la date du PC le tableau est juste et affiche même le CA de janvier.

Pour info dans la BD de User j'ai ajouter une facture en date du 16.01.2018, et le problème se produit également.

[Jean-Philippe André]

Donc tu as bien un problème.

Si tu es entre janvier et avril, tu vas avoir un ecart...
tu peux commencer par transformer ton

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

between (year(Date())-1) & "/04" and Format(R_Facture.DateFacture,"yyyy/mm")

en

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Between (Year(Date())-(IIF(Month(Date())>3,1,2)) & "/04" And Year(Date())-IIF((Month(Date())>3,0,1) & "/03"));

[User]

Bonsoir,

Etant à l'origine du problème, je me permet d'intervenir :

En reprenant l'idée de Jean-Philippe , je crois que le plus simple c'est de remplacer dans toutes les requêtes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Année(Date())

par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

EvalYear()

La fonction EvalYear évalue l'année du début de la période en cours qui commence en avril:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Public Function EvalYear() As Long
 
   If Month(Date) <= 3 Then ' Si on vient de passer à une nouvelle année 
      EvalYear = Year(Date) - 1 ' alors on retranche 1 pour avoir l'année du début de la période
   Else ' Sinon
      EvalYear = Year(Date) ' On est dans un cas normal
   End If
 
End Function

On perdra en performance avec l'utilisation d'une fonction publique dans un module, mais on gagnera en lisibilité

Ci-joint la base de tests.

Cdlt,

PS: merci à J.P pour avoir trouvé l'idée

[maringot]

Bonjour User,

Merci pour votre correctif, j'ai adapté le code pour R_cumul n ainsi:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
SELECT DISTINCT Year([DateFacture]) AS Annee, Month([DateFacture]) AS Mois, Format([DateFacture],"yyyy/mm") AS LeMois, (select Sum(MontantHT) From R_Facture T1 where Format(T1.DateFacture,"yyyy/mm") between (EvalYear()) & "/04" and Format(R_Facture.DateFacture,"yyyy/mm");) AS CumulCA
FROM R_Facture
WHERE (((Format([DateFacture],"yyyy/mm")) Between (EvalYear()) & "/04" And (EvalYear()+1) & "/03"));

et tout fonctionne parfaitement.
Encore merci ainsi qu'à Jean-Philippe, cordialement,
Maringot

[User]

Bonjour User,

Merci pour votre correctif, j'ai adapté le code pour R_cumul n ainsi:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
SELECT DISTINCT Year([DateFacture]) AS Annee, Month([DateFacture]) AS Mois, Format([DateFacture],"yyyy/mm") AS LeMois, (select Sum(MontantHT) From R_Facture T1 where Format(T1.DateFacture,"yyyy/mm") between (EvalYear()) & "/04" and Format(R_Facture.DateFacture,"yyyy/mm");) AS CumulCA
FROM R_Facture
WHERE (((Format([DateFacture],"yyyy/mm")) Between (EvalYear()) & "/04" And (EvalYear()+1) & "/03"));

et tout fonctionne parfaitement.
Encore merci ainsi qu'à Jean-Philippe, cordialement,
Maringot

Un tag "Résolu", ça fait toujours plaisir