Discussion :

[zizalajones]

Bonjour,
je travail présentement avec la base de données Access Northwind, j'essai de l'adapté à nos besoins, car je n'ai pas beaucoup de connaissance en Access. l'état FACTURE doit inclure la TPS et la TVQ, mais ce n'est pas le cas en ce moment. en mode création, j'ai vu qu'il y a un regroupement pour le total, alors je me demande comment faire pour y ajouter le calcul de taxes ? je n'ai pas modifier les tables, requêtes de Northwind, car je ne sais tout simplement pas où et quoi doit être fait pour adapter les taxes. Est ce que quelqu'un parmi vous a déjà procédé à ce genre d'adaptation ?

présentement la base de données est tel quel que fourni avec Access.

merci du coup de pouce

[marot_r]

Pour faire cela sérieusement il te faut une table des taux de taxes et éventuellement du code pour gérer la TPS + TVQ ou la taxe harmonisée selon la province ou le territoire.

Pour faire simple je vais supposer que tu ne factures qu'au Québec et de toute façon la modification pour la taxe harmonisée est assez simple après.

Créer la table

Table TauxTaxe
ClefTauxTaxe (AutoNum)
DateDebutTaux (date, permet de gérer l'évolution des taux dans le temps)
DateFinTaux (date, mettre 9999-12-31 pour le taux courrant)
TauxTVQ (réel double)
TauxTPS (réel double)

Créer un module et y mettre les codes suivants

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
public function LireTauxTVQ(prmDate as date) as double
   dim result as double
   dim tauxTaxe as variant
 
   tauxTaxe=DFirst("TauxTVQ", "TauxTaxe", "#" & Format(prmDate, "yyyy-mm-dd") & "# Between [DateDebutTaxe] and [DateFinTaux]") 'Récupère le taux de taxe courant en fonction de la date choisie
 
   if isnull(tauxTaxe) then
        result=0 'Taux de taxe non défini
     else
        resullt=cdbl(tauxTaxe)  
   end if
 
   LireTauxTVQ=result
end function

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
public function LireTauxTPS(prmDate as date) as double
   dim result as double
   dim tauxTaxe as variant
 
   tauxTaxe=DFirst("TauxTPS", "TauxTaxe", "#" & Format(prmDate, "yyyy-mm-dd") & "# Between [DateDebutTaxe] and [DateFinTaux]") 'Récupère le taux de taxe courant en fonction de la date choisie
 
   if isnull(tauxTaxe) then
        result=0 'Taux de taxe non défini
     else
        resullt=cdbl(tauxTaxe)  
   end if
 
   LireTauxTPS=result
end function

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
public function CalculerMontantTaxe(prmMontant as double, prmTPSouTVQ as string, prmDate as date) as double
   dim result as double
   dim tauxTaxe as double
 
   select case prmTPSouTVQ 
      case "TPS" 
         tauxTaxe=lireTauxTPS(prmDate)
 
      case "TVQ"
         tauxTaxe=lireTauxTVQ(prmDate)
 
      case esle
         error 5' Cas impossible
 
   end select
 
   result=((prmMontant*tauxTaxe)
end function

Je n'a pas NorthWind sous la main mais je suppose qu'il y a un état (rapport) pour la facture avec un endroit où on imprime la date de la facture (supposée se nommer DateFacture) et un endroit où on imprime le total hors taxe (supposé se nommer TotalHT).

il faut à l'endroit où on imprime TotalHT ajouter

• un champ texte pour la TPS, le nommer MontantTPS
• un champ texte pour la TVQ, le nommer MontantTVQ
• un champ texte pour le total avec taxe, le nommer MontantTTX

ensuite il suffit de mettre

=CalculerMontantTaxe([TotalHT]; "TPS"; [DateFacture]) comme source de MontantTPS

=CalculerMontantTaxe([TotalHT]+[MontantTPS]; "TVQ"; [DateFacture]) comme source de MontantTVQ

=[TotalHT]+[MontantTPS]+[MontantTVQ] comme source de MontantTTX

A+

[zizalajones]

merci beaucoup pour le coup de main, c'est parfait