#Titre
  2) OK Assuj. TVA, comme 1, commandes = saisie sans articles, 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(@RefArticles.CodeTVAVente;"")="" ;
    SI( DEFAUT(@ATVATauxArticle;0) = @TVATauxRéduit ;
        @VCodeTVAVenteRéduit +"|"+CHAINE(@TVATauxRéduit);
        SI( DEFAUT(@ATVATauxArticle;0) = @TVATauxHeb ;
            @VCodeTVAVenteHeb +"|"+CHAINE(@TVATauxHeb);
            SI (DEFAUT(@ATVATauxArticle;0) = @TVATauxNormal ;
                @VCodeTVAVenteNormal+"|"+CHAINE(@TVATauxNormal);
                ""        )  ) );
         @RefArticles.CodeTVAVente +"|"+
         CHAINE(TVACASE(@RefArticles.CodeTVAVente;@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(@RefArticles.CodeTVAVente;"")="" ;
    SI( DEFAUT(@ATVATauxArticle;0) = @TVATauxRéduit ;
        @VCodeTVAVenteRéduit +"|"+CHAINE(@TVATauxRéduit);
        SI( DEFAUT(@ATVATauxArticle;0) = @TVATauxHeb ;
            @VCodeTVAVenteHeb+"|"+CHAINE(@TVATauxHeb);
            SI (DEFAUT(@ATVATauxArticle;0) = @TVATauxNormal ;
                @VCodeTVAVenteNormal+"|"+CHAINE(@TVATauxNormal);
                ""
                )
            )
        )
    ;
      @RefArticles.CodeTVAVente +"|"+
      CHAINE(TVACASE(@RefArticles.CodeTVAVente;@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 (MAX(@ATVATauxArticle)=@TVATauxRéduit ;
   @VCodeTVAVenteRéduit+"|"+CHAINE(@TVATauxRéduit);
   SI (MAX(@ATVATauxArticle)=@TVATauxHeb ;
      @VCodeTVAVenteHeb+"|"+CHAINE(@TVATauxHeb);
       SI (MAX(@ATVATauxArticle)=@TVATauxNormal;
           @VCodeTVAVenteNormal+"|"+CHAINE(@TVATauxNormal);
           @VCodeTVAExclu
       )
   )
)
#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
0

#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é);    @PEscompteAccordé))
#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;
"...";
DEFAUT(@CompteDébit;
    SI(DEFAUT(@Monnaie;0)=0 ;
        @VCptDefautArticleDébit ;
        SI (@Monnaie = 1 ; 
            @VCptDefautArticleDébitME1;
            @VCptDefautArticleDébitME2)))
 )
#Crédit
SI(@Total<0;
DEFAUT(@CompteDébit;
    SI(DEFAUT(@Monnaie;0)=0 ;
        @VCptDefautArticleDébit ;
        SI (@Monnaie = 1 ; 
            @VCptDefautArticleDébitME1;
            @VCptDefautArticleDébitME2)))
;"...")
#Pièce
CHAINE(@Numéro)
#Libellé
SI(@Total<0;"Créd";"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
SI(@Total<0;-DEFAUT(@ATotalNonSoumisTVA;0);             DEFAUT(@ATotalNonSoumisTVA;0))
#Tva
SI( CONTIENT(NOMCOMPTE(@CompteDébit); "*TVA*" );    @VCodeTVAAchatNormal +"|"+CHAINE(@TVATauxNormal);    @VCodeTVAExclu)
#Monnaie
SI (DEFAUT(@Monnaie;0)=0 ;
    "";
    @Monnaie + "|"+CHAINE(DEFAUT(@TauxChange;1);5)
    )
    
#Analytique


#Date

#Débit
SI(@Total<0;
"...";
DEFAUT(@CompteDébit;
    SI(DEFAUT(@Monnaie;0)=0 ;
        @VCptDefautArticleDébit ;
        SI (@Monnaie = 1 ; 
            @VCptDefautArticleDébitME1;
            @VCptDefautArticleDébitME2)))
)
#Crédit
SI(@Total<0;
DEFAUT(@CompteDébit;
    SI(DEFAUT(@Monnaie;0)=0 ;
        @VCptDefautArticleDébit ;
        SI (@Monnaie = 1 ; 
            @VCptDefautArticleDébitME1;
            @VCptDefautArticleDébitME2)))
;"...")
#Pièce
CHAINE(@Numéro)
#Libellé
SI(@Total<0;"Créd";"Fact")+". achat "
+CHAINE(@Numéro)+"/"+CHAINE(@RefFournisseur)+" "+GAUCHE(@NomRéférence;@VLongueurTxtCompta)+
", articles"
#Somme
SI(@Total<0;             -( DEFAUT(@ATotalHTSoumisTVARéd;0)+DEFAUT(@TVATotalTauxRéduit;0));                DEFAUT(@ATotalHTSoumisTVARéd;0)+DEFAUT(@TVATotalTauxRéduit;0))
#Tva
DEFAUT(@CodeTVAAchatRéduit;@VCodeTVAAchatRéduit)+"|"+CHAINE(@TVATauxRéduit)
#Monnaie
SI (DEFAUT(@Monnaie;0)=0 ;
    "";
    @Monnaie + "|"+CHAINE(DEFAUT(@TauxChange;1);5)
    )
    
#Analytique


#Date

#Débit
SI(@Total<0;
"...";
DEFAUT(@CompteDébit;
    SI(DEFAUT(@Monnaie;0)=0 ;
        @VCptDefautArticleDébit ;
        SI (@Monnaie = 1 ; 
            @VCptDefautArticleDébitME1;
            @VCptDefautArticleDébitME2)))
)
#Crédit
SI(@Total<0;
DEFAUT(@CompteDébit;
    SI(DEFAUT(@Monnaie;0)=0 ;
        @VCptDefautArticleDébit ;
        SI (@Monnaie = 1 ; 
            @VCptDefautArticleDébitME1;
            @VCptDefautArticleDébitME2)))
;"...")
#Pièce
CHAINE(@Numéro)
#Libellé
SI(@Total<0;"Créd";"Fact")+". achat "
+CHAINE(@Numéro)+"/"+CHAINE(@RefFournisseur)+" "+GAUCHE(@NomRéférence;@VLongueurTxtCompta)+
", articles"
#Somme
SI(@Total<0;             -( DEFAUT(@ATotalHTSoumisTVANor;0)+DEFAUT(@TVATotalTauxNormal;0));                DEFAUT(@ATotalHTSoumisTVANor;0)+DEFAUT(@TVATotalTauxNormal;0))
#Tva
DEFAUT(@CodeTVAAchatNormal;@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 ;
        @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;
"...";
@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;       -@CorrectifTVARéduit;        @CorrectifTVARéduit))
#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;   -@CorrectifTVANormal;    @CorrectifTVANormal)    )    
#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 ;
        @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

#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
0

#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
DEFAUT(@CodeTVAAchatNormal;@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
DEFAUT(@CodeTVAAchatNormal;@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(@PSoldeDû=0;""; SI(@Total<0; -(@PEscompteObtenu );   @PEscompteObtenu ))
#Tva

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


#Payé
@Payé=1

#Accompte
@PMontants