1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41
| PROCEDURE InitialiserTable()
mTotalCol est un monétaire = 0
mTotalSupp est un monétaire = 0
mSolde est un monétaire = 0
mExigible est un monétaire = 0
mCrédit est un monétaire = 0
Sablier(Vrai)
// Initialiser la requête de détermination du solde de la TVA
HExécuteRequête(REQ_Determ_TVA,hRequêteInterruptible)
mExigible = REQ_Determ_TVA.TotalCollecté-(REQ_Determ_TVA.TotalCollecté-REQ_Determ_TVA.TotalDéductible) //donne comme résultat : mExigible = REQ_Determ_TVA.TotalDéductible
mExigible = REQ_Determ_TVA.TotalCollecté-(REQ_Determ_TVA.TotalCollecté-REQ_Determ_TVA.TotalDéductible)
POUR TOUT REQ_Determ_TVA
// Afficher le solde
mExigible =REQ_Determ_TVA.TotalCollecté-(REQ_Determ_TVA.TotalCollecté-REQ_Determ_TVA.TotalDéductible)
mCrédit = REQ_Determ_TVA.TotalCollecté-(REQ_Determ_TVA.TotalCollecté+REQ_Determ_TVA.TotalDéductible)
//mSolde = mSolde+mCrédit-mExigible
//Sauf erreur de ma part, c'est le solde qui est exigible ou créditeur
//Vous mélangez dangereusement les termes : un solde est débiteur ou créditeur, pas exigible ou créditeur, la notion de débit et crédit indiquant par qui il est exigible.
mSolde = REQ_Determ_TVA.TotalCollecté-REQ_Determ_TVA.TotalDéductible
//
SI REQ_Determ_TVA.TotalCollecté > REQ_Determ_TVA.TotalDéductible ALORS
//SI mSolde < 0 ALORS
// Afficher le solde TVA Exigible
TableAjouteLigne(TABLE_Liquidations_Mois,REQ_Determ_TVA.Période,REQ_Determ_TVA.TotalCollecté,REQ_Determ_TVA.TotalDéductible,mExigible,"",mSolde)
SINON
TableAjouteLigne(TABLE_Liquidations_Mois,REQ_Determ_TVA.Période,REQ_Determ_TVA.TotalCollecté,REQ_Determ_TVA.TotalDéductible,"",mCrédit,mSolde)
FIN
FIN
TableTrie(TABLE_Liquidations_Mois,"COL_Période")
Sablier(Faux) |
Partager