#Titre
  1)OK Assuj. TVA, dette fiscale selon la facturation (normal), avec code TVA

#Factures
#Cumul
1

#Date
@DateFacture
#Débit
SI(@Total<0;
    DEFAUT(@RefArticles.CompteCrédit[DEFAUT(@Monnaie;0)];
       SI(DEFAUT(@Monnaie;0)=0 ;
      @VCptDefautArticleCrédit ;
      SI (@Monnaie = 1 ; 
          @VCptDefautArticleCréditME1;
          @VCptDefautArticleCréditME2))
          );
    "")
#Crédit
SI(@Total<0;
    "...";
    "")
#Pièce
CHAINE(@Numéro)
#Libellé
"Crédit  "+
    CHAINE(@Numéro)+"/"+CHAINE(@RefClient)+" "+GAUCHE(@NomRéférence;@VLongueurTxtCompta)+", articles"
#Somme
-(@ATotauxLignesNetHT+@ATotauxLignesTVA) 
#Tva
SI( DEFAUT(@ACodeTVA;"")="" ;
    "" 
    ;           
    @ACodeTVA +"|"+CHAINE(TVACASE(@ACodeTVA;@TVATauxNormal;@TVATauxRéduit;@TVATauxHeb))
    )
#Monnaie
SI (DEFAUT(@Monnaie;0)=0 ;
    "";
    @Monnaie + "|"+CHAINE(DEFAUT(@TauxChange;1);5)
    )
#Analytique


#Date

#Débit
SI(@Total<0;"";"...")
#Crédit
SI(@Total<0;
    "";
    DEFAUT(@RefArticles.CompteCrédit[DEFAUT(@Monnaie;0)];
       SI(DEFAUT(@Monnaie;0)=0 ;
      @VCptDefautArticleCrédit ;
      SI (@Monnaie = 1 ; 
          @VCptDefautArticleCréditME1;
          @VCptDefautArticleCréditME2))
          )
)

#Pièce
CHAINE(@Numéro)
#Libellé
"Facture "+
    CHAINE(@Numéro)+"/"+CHAINE(@RefClient)+" "+GAUCHE(@NomRéférence;@VLongueurTxtCompta)+", articles"
#Somme
@ATotauxLignesNetHT+@ATotauxLignesTVA
#Tva
SI( DEFAUT(@ACodeTVA;"")="" ;
    "" 
    ;           
    @ACodeTVA +"|"+CHAINE(TVACASE(@ACodeTVA;@TVATauxNormal;@TVATauxRéduit;@TVATauxHeb))
    )
#Monnaie
SI (DEFAUT(@Monnaie;0)=0 ;
    "";
    @Monnaie + "|"+CHAINE(DEFAUT(@TauxChange;1);5)
    )
#Analytique


#Date

#Débit
SI(@Total<0;
    SI(DEFAUT(@Monnaie;0)=0 ;
        @VCptFraisVente ;
        SI (@Monnaie = 1 ; 
            @VCptFraisVenteME1;
            @VCptFraisVenteME2)
    )
;
    "..."
)
#Crédit
SI(@Total<0;"...";
    SI(DEFAUT(@Monnaie;0)=0 ;
        @VCptFraisVente ;
        SI (@Monnaie = 1 ; 
            @VCptFraisVenteME1;
            @VCptFraisVenteME2
        )
    )
)
#Pièce
CHAINE(@Numéro)
#Libellé
SI(@Total<0;"Crédit  ";"Facture ")+
    CHAINE(@Numéro)+"/"+CHAINE(@RefClient) +" "+GAUCHE(@NomRéférence;@VLongueurTxtCompta)+", frais"
#Somme
SI(@Total=0;
    "";
    CHAINE(SI(@Total<0;
                -(@FraisEmballageHT+@TVATotalEmballage);
                  @FraisEmballageHT+@TVATotalEmballage)
    )+" +/-0.05"
)
#Tva
SI (ET(MAX(@ATVATauxArticle)=@TVATauxRéduit ;@TVATauxRéduit<>0) ;
    @VCodeTVAVenteRéduit+"|"+CHAINE(@TVATauxRéduit)
;
    SI (ET(MAX(@ATVATauxArticle)=@TVATauxHeb;@TVATauxHeb<>0);
        @VCodeTVAVenteHeb+"|"+CHAINE(@TVATauxHeb)
    ;
        SI (ET(MAX(@ATVATauxArticle)=@TVATauxNormal;@TVATauxNormal<>0);
            @VCodeTVAVenteNormal+"|"+CHAINE(@TVATauxNormal)
        ;
            " "
        )
    )
)  
#Monnaie
SI (DEFAUT(@Monnaie;0)=0 ;
    "";
    @Monnaie + "|"+CHAINE(DEFAUT(@TauxChange;1);5)
    )
#Analytique


#Date

#Débit
SI(@Total<0;
    "...";
    DEFAUT(@RefClient.CompteDébit;@VCptDefautDébiteur)
)
#Crédit
SI(@Total<0;
    DEFAUT(@RefClient.CompteDébit;@VCptDefautDébiteur);
    "..."
)
#Pièce
CHAINE(@Numéro)
#Libellé
SI(@Total<0;"Crédit  ";"Facture ")+
   CHAINE(@Numéro)+"/"+CHAINE(@RefClient)+ " "+GAUCHE(@NomRéférence;@VLongueurTxtCompta)+", brut"
#Somme
SI(@Total<0;
 -(@Total) ;
  @Total )
#Tva

#Monnaie
SI (DEFAUT(@Monnaie;0)=0 ;
    "";
    @Monnaie + "|"+CHAINE(DEFAUT(@TauxChange;1);5)
    )
#Analytique


#Versements
#Cumul
1

#Date
@PDates[@SComptabilisationMen]
#Débit
SI(@Total<0;
  DEFAUT(@RefClient.CompteDébit;@VCptDefautDébiteur)
  ;
  CASE (@PTypePaiement[@SComptabilisationMen] ;
  @VCptPaiement00;
  @VCptPaiement01;
  @VCptPaiement02;
  @VCptPaiement03;
  @VCptPaiement04;
  @VCptPaiement05;
  @VCptPaiement06;
  @VCptPaiement07;
  @VCptPaiement08;
  @VCptPaiement09;
  @VCptPaiement10;
  @VCptPaiement11;
  @VCptPaiement12;
  @VCptPaiement13;
  @VCptPaiement14;
  @VCptPaiement10)
)
#Crédit
SI(@Total>0;
    DEFAUT(@RefClient.CompteDébit;@VCptDefautDébiteur)
    ;
    CASE (@PTypePaiement[@SComptabilisationMen] ;
  @VCptPaiement00;
  @VCptPaiement01;
  @VCptPaiement02;
  @VCptPaiement03;
  @VCptPaiement04;
  @VCptPaiement05;
  @VCptPaiement06;
  @VCptPaiement07;
  @VCptPaiement08;
  @VCptPaiement09;
  @VCptPaiement10;
  @VCptPaiement11;
  @VCptPaiement12;
  @VCptPaiement13;
  @VCptPaiement14;
  @VCptPaiement10)
    )
#Pièce
CHAINE(@Numéro)+"-V"
#Libellé
SI(@Total<0;"Crédit  ";"Facture ")+
   CHAINE(@Numéro)+"/"+CHAINE(@RefClient)+
    " "+GAUCHE(@NomRéférence;@VLongueurTxtCompta)+", versement" 
#Somme
SI(@Total<0;
     -@PMontants[@SComptabilisationMen];
      @PMontants[@SComptabilisationMen])
#Tva

#Monnaie
SI (DEFAUT(@Monnaie;0)=0 ;
    "";
    @Monnaie + "|"+CHAINE(DEFAUT(@TauxChange;1);5)
    )
#Analytique


#Final
#Cumul
1

#Date
DEFAUT(@DateRappel3 ; DEFAUT(@DateRappel2 ; DEFAUT (@DateRappel1 ;@PDates[COMPTE(@PDates)-1])))
#Débit
SI(@Total<0; 
    "" ;
    DEFAUT(@RefClient.CompteDébit;@VCptDefautDébiteur)
)
#Crédit
SI(@Total<0; 
    "" ;
       SI(DEFAUT(@Monnaie;0)=0 ;
        @VCptFraisRappel ;
        SI (@Monnaie = 1 ; 
            @VCptFraisRappelME1;
            @VCptFraisRappelME2)
            )
            )
#Pièce
CHAINE(@Numéro)+"-D"
#Libellé
SI(@Total<0;"Crédit  ";"Facture " )+
  CHAINE(@Numéro)+"/"+CHAINE(@RefClient)+" "+GAUCHE(@NomRéférence;@VLongueurTxtCompta)+
  ", Frais de rappel"
#Somme
DEFAUT(@FraisRappel;0)
#Tva
SI (MAX(@ATVATauxArticle)=@TVATauxRéduit ;
    @VCodeTVAVenteRéduit+"|"+CHAINE(@TVATauxRéduit);
    SI (MAX(@ATVATauxArticle)=@TVATauxHeb ;
        @VCodeTVAVenteHeb+"|"+CHAINE(@TVATauxHeb);  
        SI (MAX(@ATVATauxArticle)=@TVATauxNormal;
            @VCodeTVAVenteNormal+"|"+CHAINE(@TVATauxNormal)
        ;" ")
    )
)
#Monnaie
SI (DEFAUT(@Monnaie;0)=0 ;
    "";
    @Monnaie + "|"+CHAINE(DEFAUT(@TauxChange;1);5)
    )
#Analytique


#Date
@PDates[COMPTE(@PDates)-1]
#Débit
SI(@Total<0;
"...";
    SI(DEFAUT(@Monnaie;0)=0 ;
        @VCptEscAccordé ;
        SI (@Monnaie = 1 ; 
            @VCptEscAccordéME1;
            @VCptEscAccordéME2))
)
#Crédit
SI(@Total<0; 
    SI(DEFAUT(@Monnaie;0)=0 ;
        @VCptEscAccordé ;
        SI (@Monnaie = 1 ; 
            @VCptEscAccordéME1;
            @VCptEscAccordéME2))
            
    ;"...")
#Pièce
CHAINE(@Numéro)+"-D"
#Libellé
SI(@Total<0;"Crédit  ";"Facture " )+
  CHAINE(@Numéro)+"/"+CHAINE(@RefClient)+" "+GAUCHE(@NomRéférence;@VLongueurTxtCompta)+
  ", esc. acc."
#Somme
SI(@Total<0; 
    -@EscompteSoumisTVANor; 
     @EscompteSoumisTVANor
)
#Tva
@VCodeTVAVenteNormal+"|"+CHAINE(@TVATauxNormal)
#Monnaie
SI (DEFAUT(@Monnaie;0)=0 ;
    "";
    @Monnaie + "|"+CHAINE(DEFAUT(@TauxChange;1);5)
    )
#Analytique


#Date

#Débit
SI(@Total<0;
"...";
    SI(DEFAUT(@Monnaie;0)=0 ;
        @VCptEscAccordé ;
        SI (@Monnaie = 1 ; 
            @VCptEscAccordéME1;
            @VCptEscAccordéME2))
)
#Crédit
SI(@Total<0;
    SI(DEFAUT(@Monnaie;0)=0 ;
        @VCptEscAccordé ;
        SI (@Monnaie = 1 ; 
            @VCptEscAccordéME1;
            @VCptEscAccordéME2))
            ;"...")
#Pièce
CHAINE(@Numéro)+"-D"
#Libellé
SI(@Total<0;"Crédit  ";"Facture " )+
  CHAINE(@Numéro)+"/"+CHAINE(@RefClient)+" "+GAUCHE(@NomRéférence;@VLongueurTxtCompta)+
  ", esc. acc."
#Somme
SI(@Total<0;
-@EscompteSoumisTVAHeb;
 @EscompteSoumisTVAHeb
)
#Tva
@VCodeTVAVenteHeb+"|"+CHAINE(@TVATauxHeb)
#Monnaie
SI (DEFAUT(@Monnaie;0)=0 ;
    "";
    @Monnaie + "|"+CHAINE(DEFAUT(@TauxChange;1);5)
    )
#Analytique


#Date

#Débit
SI(@Total<0;
"...";
    SI(DEFAUT(@Monnaie;0)=0 ;
        @VCptEscAccordé ;
        SI (@Monnaie = 1 ; 
            @VCptEscAccordéME1;
            @VCptEscAccordéME2))
)
#Crédit
SI(@Total<0;
    SI(DEFAUT(@Monnaie;0)=0 ;
        @VCptEscAccordé ;
        SI (@Monnaie = 1 ; 
            @VCptEscAccordéME1;
            @VCptEscAccordéME2))
            ;"...")
#Pièce
CHAINE(@Numéro)+"-D"
#Libellé
SI(@Total<0;"Crédit  ";"Facture " )+
  CHAINE(@Numéro)+"/"+CHAINE(@RefClient)+" "+GAUCHE(@NomRéférence;@VLongueurTxtCompta)+
  ", esc. acc."
#Somme
SI(@Total<0;
-@EscompteSoumisTVARéd;
 @EscompteSoumisTVARéd
)
#Tva
@VCodeTVAVenteRéduit+"|"+CHAINE(@TVATauxRéduit)
#Monnaie
SI (DEFAUT(@Monnaie;0)=0 ;
    "";
    @Monnaie + "|"+CHAINE(DEFAUT(@TauxChange;1);5)
    )
#Analytique


#Date

#Débit
SI(@Total<0;
    "...";
    SI(DEFAUT(@Monnaie;0)=0 ;
        @VCptEscAccordé ;
        SI (@Monnaie = 1 ; 
            @VCptEscAccordéME1;
            @VCptEscAccordéME2))
            )
#Crédit
SI(@Total<0;
    SI(DEFAUT(@Monnaie;0)=0 ;
        @VCptEscAccordé ;
        SI (@Monnaie = 1 ; 
            @VCptEscAccordéME1;
            @VCptEscAccordéME2))
            ;"...")
#Pièce
CHAINE(@Numéro)+"-D"
#Libellé
SI(@Total<0;"Crédit  ";"Facture " )+
  CHAINE(@Numéro)+"/"+CHAINE(@RefClient)+" "+GAUCHE(@NomRéférence;@VLongueurTxtCompta)+
  ", esc. acc."
#Somme
SI(@Total<0;-(@EscompteNonSoumis); @EscompteNonSoumis
)
#Tva

#Monnaie
SI (DEFAUT(@Monnaie;0)=0 ;
    "";
    @Monnaie + "|"+CHAINE(DEFAUT(@TauxChange;1);5)
    )
#Analytique


#Date

#Débit
SI(@Total<0;
DEFAUT(@RefClient.CompteDébit;@VCptDefautDébiteur)
;"...")
#Crédit
SI(@Total<0;
"...";
DEFAUT(@RefClient.CompteDébit;@VCptDefautDébiteur))
#Pièce
CHAINE(@Numéro)+"-D"
#Libellé
SI(@Total<0;"Crédit  ";"Facture " )+
    CHAINE(@Numéro)+"/"+CHAINE(@RefClient)+" "+GAUCHE(@NomRéférence;@VLongueurTxtCompta)+
    ", décompte final"
#Somme
SI(DEFAUT(@PEscompteAccordé;0)=0;"";
SI(@Total<0;
 -(@PEscompteAccordé);
 DEFAUT(@PEscompteAccordé;0) ))
#Tva

#Monnaie
SI (DEFAUT(@Monnaie;0)=0 ;
    "";
    @Monnaie + "|"+CHAINE(DEFAUT(@TauxChange;1);5)
    )
#Analytique


#Payé
@Payé=1

#Accompte
@PMontants

#Commandes
#Cumul
1

#Date
@DateFacture
#Débit
SI(@Total<0;"...";"")
#Crédit
SI(@Total<0;
DEFAUT(@RefArticles.CompteDébit[DEFAUT(@Monnaie;0)];DEFAUT(@CompteDébit;
    SI(DEFAUT(@Monnaie;0)=0 ;
        @VCptDefautArticleDébit ;
        SI (@Monnaie = 1 ; 
            @VCptDefautArticleDébitME1;
            @VCptDefautArticleDébitME2))))
;"")
#Pièce
CHAINE(@Numéro)
#Libellé
"Créd. achat "+CHAINE(@Numéro)+"/"+CHAINE(@RefFournisseur)+" "+GAUCHE(@NomRéférence;@VLongueurTxtCompta)+
 ", articles"
#Somme
-(@ATotauxLignesNetHT + @ATotauxLignesTVA)
#Tva
SI (DEFAUT(@ACodeTVA;"")="";
   SI (DEFAUT(@RefArticles.CodeTVAAchat;"")=""; 
      SI (DEFAUT(@ATVATauxArticle;0) = @TVATauxRéduit ; 
         @VCodeTVAAchatRéduit+"|"+ CHAINE(@TVATauxRéduit)
      ;
         SI (DEFAUT(@ATVATauxArticle;0) = @TVATauxNormal ; 
            @VCodeTVAAchatNormal+"|"+CHAINE(@TVATauxNormal)
        ;
            ""
        )
      )
   ;
      @RefArticles.CodeTVAAchat+"|"+
      CHAINE(TVACASE(@RefArticles.CodeTVAAchat;@TVATauxNormal;@TVATauxRéduit;DEFAUT(@TVATauxHébergement;0)))
   )
  
;
  @ACodeTVA+"|"+
  CHAINE(TVACASE(@ACodeTVA;@TVATauxNormal;@TVATauxRéduit;DEFAUT(@TVATauxHébergement;0)))
)
#Monnaie
SI (DEFAUT(@Monnaie;0)=0 ;
    "";
    @Monnaie + "|"+CHAINE(DEFAUT(@TauxChange;1);5)
    )
#Analytique


#Date

#Débit
SI(@Total<0;"";
DEFAUT(@RefArticles.CompteDébit[DEFAUT(@Monnaie;0)];
DEFAUT(@CompteDébit;    SI(DEFAUT(@Monnaie;0)=0 ;
        @VCptDefautArticleDébit ;
        SI (@Monnaie = 1 ; 
            @VCptDefautArticleDébitME1;
            @VCptDefautArticleDébitME2)))))
#Crédit
SI(@Total<0;"";"...")
#Pièce
CHAINE(@Numéro)
#Libellé
"Fact. achat "+CHAINE(@Numéro)+"/"+CHAINE(@RefFournisseur)+    
" "+GAUCHE(@NomRéférence;@VLongueurTxtCompta)+
", articles"
//SI  (CONTIENT(NOMCOMPTE(DEFAUT(@CompteDébit;"xxxx"));"*TVA*");    ",  TVA seule (douane)";
   
#Somme
@ATotauxLignesNetHT + @ATotauxLignesTVA
#Tva
SI (DEFAUT(@ACodeTVA;"")="";
   SI (DEFAUT(@RefArticles.CodeTVAAchat;"")=""; 
      SI (DEFAUT(@ATVATauxArticle;0) = @TVATauxRéduit ; 
         @VCodeTVAAchatRéduit+"|"+ CHAINE(@TVATauxRéduit)
      ;
         SI (DEFAUT(@ATVATauxArticle;0) = @TVATauxNormal ; 
            @VCodeTVAAchatNormal+"|"+CHAINE(@TVATauxNormal)
        ;
            ""
        )
      )
   ;
      @RefArticles.CodeTVAAchat+"|"+
      CHAINE(TVACASE(@RefArticles.CodeTVAAchat;@TVATauxNormal;@TVATauxRéduit;DEFAUT(@TVATauxHébergement;0)))
   )
  
;
  @ACodeTVA+"|"+
  CHAINE(TVACASE(@ACodeTVA;@TVATauxNormal;@TVATauxRéduit;DEFAUT(@TVATauxHébergement;0)))
)
#Monnaie
SI (DEFAUT(@Monnaie;0)=0 ;
    "";
    @Monnaie + "|"+CHAINE(DEFAUT(@TauxChange;1);5)
    )
#Analytique


#Date

#Débit
SI(@Total<0;
"...";
    SI(DEFAUT(@Monnaie;0)=0 ;
        @VCptFraisAchat ;
        SI (@Monnaie = 1 ; 
            @VCptFraisAchatME1;
            @VCptFraisAchatME2))    
           )
#Crédit
SI(@Total<0;

    SI(DEFAUT(@Monnaie;0)=0 ;
        @VCptFraisAchat ;
        SI (@Monnaie = 1 ; 
            @VCptFraisAchatME1;
            @VCptFraisAchatME2))
;"...")
#Pièce
CHAINE(@Numéro)
#Libellé
SI(@Total<0;"Créd. achat ";"Fact. achat ")+
  CHAINE(@Numéro)+"/"+CHAINE(@RefFournisseur)+" "+GAUCHE(@NomRéférence;@VLongueurTxtCompta)+
  ", frais"
#Somme
SI(@Total<0;
   -(DEFAUT(@FraisEmballageHT;0)+DEFAUT(@TVATotalEmballage;0));
     DEFAUT(@FraisEmballageHT;0)+DEFAUT(@TVATotalEmballage;0)
     )
#Tva
SI  (@TVATauxEmballage = @TVATauxNormal;
    @VCodeTVAAchatNormal+"|"+CHAINE(@TVATauxNormal);
    SI  (@TVATauxEmballage = @TVATauxRéduit;
        @VCodeTVAAchatRéduit+"|"+CHAINE(@TVATauxRéduit);
        @VCodeTVAExclu
    )
 )
#Monnaie
SI (DEFAUT(@Monnaie;0)=0 ;
    "";
    @Monnaie + "|"+CHAINE(DEFAUT(@TauxChange;1);5)
    )
#Analytique


#Date

#Débit
SI(@Total<0;
"...";
    SI(DEFAUT(@Monnaie;0)=0 ;
        @VCptFraisPortAchat ;
        SI (@Monnaie = 1 ; 
            @VCptFraisPortAchatME1;
            @VCptFraisPortAchatME2))

)
#Crédit
SI(@Total<0;
SI(DEFAUT(@Monnaie;0)=0 ;
        @VCptFraisPortAchat ;
        SI (@Monnaie = 1 ; 
            @VCptFraisPortAchatME1;
            @VCptFraisPortAchatME2))
            ;"...")
#Pièce
CHAINE(@Numéro)
#Libellé
SI(@Total<0;"Créd. achat ";"Fact. achat ")+
  CHAINE(@Numéro)+"/"+CHAINE(@RefFournisseur)+" "+GAUCHE(@NomRéférence;@VLongueurTxtCompta)+
  ", frais port"
#Somme
SI(@Total<0;-(DEFAUT(@FraisPort;0)); DEFAUT(@FraisPort;0))
#Tva
@VCodeTVAExclu
#Monnaie
SI (DEFAUT(@Monnaie;0)=0 ;
    "";
    @Monnaie + "|"+CHAINE(DEFAUT(@TauxChange;1);5)
    )
#Analytique


#Date

#Débit
SI(@Total<0;
"...";
@VCptTVAàRécupérer)
#Crédit
SI(@Total<0;
@VCptTVAàRécupérer;
"...")
#Pièce
CHAINE(@Numéro)
#Libellé
SI(@Total<0;"Créd. achat ";"Fact. achat ")+
  CHAINE(@Numéro)+"/"+CHAINE(@RefFournisseur)+" "+GAUCHE(@NomRéférence;@VLongueurTxtCompta)+
  ", adaptation TVA"
#Somme
SI(DEFAUT(@TVATotalTauxRéduitPr;0)=0 ;"" ;
    SI(@Total<0;
       -DEFAUT(@CorrectifTVARéduit;0);
        DEFAUT(@CorrectifTVARéduit;0))
)
#Tva

#Monnaie
SI (DEFAUT(@Monnaie;0)=0 ;
    "";
    @Monnaie + "|"+CHAINE(DEFAUT(@TauxChange;1);5)
    )
#Analytique


#Date

#Débit
SI(@Total<0;"...";@VCptTVAàRécupérer)
#Crédit
SI(@Total<0;@VCptTVAàRécupérer;"...")
#Pièce
CHAINE(@Numéro)
#Libellé
SI(@Total<0;"Créd. achat ";"Fact. achat ")+
  CHAINE(@Numéro)+"/"+CHAINE(@RefFournisseur)+" "+GAUCHE(@NomRéférence;@VLongueurTxtCompta)+
  ", adaptation TVA"
#Somme
SI(DEFAUT(@TVATotalTauxNormalPr;0)=0 ;"" ;
    SI(@Total<0;
   -DEFAUT(@CorrectifTVANormal;0);
    DEFAUT(@CorrectifTVANormal;0))
    )
    
#Tva

#Monnaie
SI (DEFAUT(@Monnaie;0)=0 ;
    "";
    @Monnaie + "|"+CHAINE(DEFAUT(@TauxChange;1);5)
    )
#Analytique


#Date

#Débit
SI(@Total<0;"...";

SI(DEFAUT(@Monnaie;0)=0 ;
        @VCptFraisAchat ;
        SI (@Monnaie = 1 ; 
            @VCptFraisAchatME1;
            @VCptFraisAchatME2))
)
#Crédit
SI(@Total<0;

SI(DEFAUT(@Monnaie;0)=0 ;
        @VCptFraisAchat ;
        SI (@Monnaie = 1 ; 
            @VCptFraisAchatME1;
            @VCptFraisAchatME2))
;"...")
#Pièce
CHAINE(@Numéro)
#Libellé
SI(@Total<0; "Créd. achat " ; "Fact. achat ")+
   CHAINE(@Numéro)+"/"+CHAINE(@RefFournisseur)+" "+GAUCHE(@NomRéférence;@VLongueurTxtCompta)+
   ", correctif"
#Somme
CHAINE( DEFAUT(@MontantCorrectif;0)+
    SI(@Total<0;
         DEFAUT(@CorrectifTVARéduit;0);
        -DEFAUT(@CorrectifTVARéduit;0)
    )+
    
    SI(@Total<0;
      DEFAUT(@CorrectifTVANormal;0);
     -DEFAUT(@CorrectifTVANormal;0)
    )  
)+"+/-0.05"
#Tva

#Monnaie
SI (DEFAUT(@Monnaie;0)=0 ;
    "";
    @Monnaie + "|"+CHAINE(DEFAUT(@TauxChange;1);5)
    )
#Analytique


#Date

#Débit
SI(@Total<0; DEFAUT(@RefFournisseur.CompteCrédit ; @VCptDefautCréancier);"...")
#Crédit
SI(@Total<0; "...";DEFAUT(@RefFournisseur.CompteCrédit ; @VCptDefautCréancier))
#Pièce
CHAINE(@Numéro)
#Libellé
SI(@Total<0; "Créd. achat " ; "Fact. achat ")+
   CHAINE(@Numéro)+"/"+CHAINE(@RefFournisseur)+" "+GAUCHE(@NomRéférence;@VLongueurTxtCompta)+
   ", brut"
#Somme
SI(@Total<0;-(@Total);  @Total)
#Tva

#Monnaie
SI (DEFAUT(@Monnaie;0)=0 ;
    "";
    @Monnaie + "|"+CHAINE(DEFAUT(@TauxChange;1);5)
    )
#Analytique


#Versements
#Cumul
1

#Date
SI (CONTIENT ( @DTAEtat[@SComptabilisationMen]; "*P*" );@PDates[@SComptabilisationMen];"")
#Débit
SI(@Total<0;
    CASE (@PTypePaiement[@SComptabilisationMen] ;
  @VCptPaiement00;
  @VCptPaiement01;
  @VCptPaiement02;
  @VCptPaiement03;
  @VCptPaiement04;
  @VCptPaiement05;
  @VCptPaiement06;
  @VCptPaiement07;
  @VCptPaiement08;
  @VCptPaiement09;
  @VCptPaiement10;
  @VCptPaiement11;
  @VCptPaiement12;
  @VCptPaiement13;
  @VCptPaiement14;
  @VCptPaiement10)
 ;    
  DEFAUT(@RefFournisseur.CompteCrédit;@VCptDefautCréancier))
#Crédit
SI(@Total<0;
  DEFAUT(@RefFournisseur.CompteCrédit;@VCptDefautCréancier)
  ;
   CASE (@PTypePaiement[@SComptabilisationMen] ;
  @VCptPaiement00;
  @VCptPaiement01;
  @VCptPaiement02;
  @VCptPaiement03;
  @VCptPaiement04;
  @VCptPaiement05;
  @VCptPaiement06;
  @VCptPaiement07;
  @VCptPaiement08;
  @VCptPaiement09;
  @VCptPaiement10;
  @VCptPaiement11;
  @VCptPaiement12;
  @VCptPaiement13;
  @VCptPaiement14;
  @VCptPaiement10)
  )
#Pièce
CHAINE(@Numéro)+"-V"
#Libellé
SI(@Total<0;"Créd. achat ";"Fact. achat ")+
  CHAINE(@Numéro)+"/"+CHAINE(@RefFournisseur)+" "+GAUCHE(@NomRéférence;@VLongueurTxtCompta)+
  ", versement"
#Somme
SI (CONTIENT ( @DTAEtat[@SComptabilisationMen]; "*P*" );
    SI (@Total<0;-@PMontants[@SComptabilisationMen];
       @PMontants[@SComptabilisationMen]);
       "")
#Tva

#Monnaie
SI (DEFAUT(@Monnaie;0)=0 ;
    "";
    @Monnaie + "|"+CHAINE(DEFAUT(@TauxChange;1);5)
    )
#Analytique


#Final
#Cumul
1

#Date
@PDates[COMPTE(@PDates)-1]
#Débit
SI(@Total<0;
  SI(DEFAUT(@Monnaie;0)=0 ;
        @VCptEscObtenu ;
        SI (@Monnaie = 1 ; 
            @VCptEscObtenuME1;
            @VCptEscObtenuME2))
;"...")
#Crédit
SI(@Total<0;"..."; 
  SI(DEFAUT(@Monnaie;0)=0 ;
        @VCptEscObtenu ;
        SI (@Monnaie = 1 ; 
            @VCptEscObtenuME1;
            @VCptEscObtenuME2))
            )
#Pièce
CHAINE(@Numéro)+"-D"
#Libellé
SI(@Total<0;"Créd. achat ";"Fact. achat " )
    +CHAINE(@Numéro)+"/"+CHAINE(@RefFournisseur)+" "+GAUCHE(@NomRéférence;@VLongueurTxtCompta)+
    ", esc. obtenu"
#Somme
SI(@Total<0; -(@EscompteSoumisTVANor + @EscompteTVANormal) ;  @EscompteSoumisTVANor + @EscompteTVANormal)
#Tva
@VCodeTVAAchatNormal+"|"+CHAINE(@TVATauxNormal)
#Monnaie
SI (DEFAUT(@Monnaie;0)=0 ;
    "";
    @Monnaie + "|"+CHAINE(DEFAUT(@TauxChange;1);5)
    )
#Analytique


#Date

#Débit
SI(@Total<0;

  SI(DEFAUT(@Monnaie;0)=0 ;
        @VCptEscObtenu ;
        SI (@Monnaie = 1 ; 
            @VCptEscObtenuME1;
            @VCptEscObtenuME2))
            ;"...")
#Crédit
SI(@Total<0;"...";
  SI(DEFAUT(@Monnaie;0)=0 ;
        @VCptEscObtenu ;
        SI (@Monnaie = 1 ; 
            @VCptEscObtenuME1;
            @VCptEscObtenuME2)))
#Pièce
CHAINE(@Numéro)+"-D"
#Libellé
SI(@Total<0;"Créd. achat ";"Fact. achat " )
    +CHAINE(@Numéro)+"/"+CHAINE(@RefFournisseur)+" "+GAUCHE(@NomRéférence;@VLongueurTxtCompta)+
    ", esc. obtenu"
#Somme
 SI(@Total<0;  -(@EscompteSoumisTVARéd + @EscompteTVARéduit) ;   @EscompteSoumisTVARéd + @EscompteTVARéduit)
#Tva
@VCodeTVAAchatRéduit+"|"+CHAINE(@TVATauxRéduit)
#Monnaie
SI (DEFAUT(@Monnaie;0)=0 ;
    "";
    @Monnaie + "|"+CHAINE(DEFAUT(@TauxChange;1);5)
    )
#Analytique


#Date

#Débit
SI(@Total<0;
  SI(DEFAUT(@Monnaie;0)=0 ;
        @VCptEscObtenu ;
        SI (@Monnaie = 1 ; 
            @VCptEscObtenuME1;
            @VCptEscObtenuME2))
;"...")
#Crédit
SI(@Total<0;
"...";
  SI(DEFAUT(@Monnaie;0)=0 ;
        @VCptEscObtenu ;
        SI (@Monnaie = 1 ; 
            @VCptEscObtenuME1;
            @VCptEscObtenuME2))
            )
#Pièce
CHAINE(@Numéro)+"-D"
#Libellé
SI(@Total<0;"Créd. achat ";"Fact. achat " )+
    CHAINE(@Numéro)+"/"+CHAINE(@RefFournisseur)+" "+GAUCHE(@NomRéférence;@VLongueurTxtCompta)+
    ", esc. obtenu, non-soumis"
#Somme
SI(@Total<0; -@EscompteNonSoumis;  @EscompteNonSoumis)
#Tva
""
#Monnaie
SI (DEFAUT(@Monnaie;0)=0 ;
    "";
    @Monnaie + "|"+CHAINE(DEFAUT(@TauxChange;1);5)
    )
#Analytique


#Date

#Débit
SI(@Total<0;"...";DEFAUT(@RefFournisseur.CompteCrédit;@VCptDefautCréancier))
#Crédit
SI(@Total<0;DEFAUT(@RefFournisseur.CompteCrédit;@VCptDefautCréancier);"...")
#Pièce
CHAINE(@Numéro)+"-D"
#Libellé
SI(@Total<0;"Créd. achat ";"Fact. achat " )
    +CHAINE(@Numéro)+"/"+CHAINE(@RefFournisseur)+" "+GAUCHE(@NomRéférence;@VLongueurTxtCompta)+
    ", décompte final"
#Somme
 SI(@Total<0; -(@PEscompteObtenu );   @PEscompteObtenu )
#Tva

#Monnaie
SI (DEFAUT(@Monnaie;0)=0 ;
    "";
    @Monnaie + "|"+CHAINE(DEFAUT(@TauxChange;1);5)
    )
#Analytique


#Payé
@Payé=1

#Accompte
@PMontants