#Titre 3) OK Assuj. TVA, dette fiscale selon les encaissements, avec code TVA (1 compte) #Factures #Cumul 1 #Versements #Cumul 1 #Date @PDates[@SComptabilisationMen] #Débit SI(@Total<0; @VCptDefautArticleCrédit ; "...") #Crédit SI(@Total<0; "..." ; @VCptDefautArticleCrédit) #Pièce SI(@Total<0; SI(@Payé=1; SI(COMPTE(@PMontants)=1; CHAINE(@Numéro)+"-C"; SI(DEFAUT(@PMontants[@SComptabilisationMen+1];0)=0; CHAINE(@Numéro)+"-CF"; CHAINE(@Numéro)+"-CA")); CHAINE(@Numéro)+"-CA"); SI(@Payé=1; SI(COMPTE(@PMontants)=1; CHAINE(@Numéro)+"-F"; SI(DEFAUT(@PMontants[@SComptabilisationMen+1];0)=0; CHAINE(@Numéro)+"-FF"; CHAINE(@Numéro)+"-F")); CHAINE(@Numéro)+"-V")) #Libellé SI(@Total<0;"Cré. ";"Fac. ")+ CHAINE(@Numéro)+"/"+CHAINE(@RefClient)+" "+GAUCHE(@NomRéférence;@VLongueurTxtCompta)+ ", Articles" #Somme SI(@Total<0; -@PHTNonSoumis[@SComptabilisationMen]; @PHTNonSoumis[@SComptabilisationMen] ) #Tva @VCodeTVAExonéré #Monnaie #Analytique #Date #Débit SI(@Total<0; @VCptDefautArticleCrédit ; "...") #Crédit SI(@Total<0; "..." ; @VCptDefautArticleCrédit) #Pièce SI(@Total<0; SI(@Payé=1; SI(COMPTE(@PMontants)=1; CHAINE(@Numéro)+"-C"; SI(DEFAUT(@PMontants[@SComptabilisationMen+1];0)=0; CHAINE(@Numéro)+"-CF"; CHAINE(@Numéro)+"-CA")); CHAINE(@Numéro)+"-CA"); SI(@Payé=1; SI(COMPTE(@PMontants)=1; CHAINE(@Numéro)+"-F"; SI(DEFAUT(@PMontants[@SComptabilisationMen+1];0)=0; CHAINE(@Numéro)+"-FF"; CHAINE(@Numéro)+"-F")); CHAINE(@Numéro)+"-V")) #Libellé SI(@Total<0;"Cré. ";"Fac. ")+ CHAINE(@Numéro)+"/"+CHAINE(@RefClient)+" "+GAUCHE(@NomRéférence;@VLongueurTxtCompta)+ ", Articles" #Somme SI(@Total<0; -(@PHTNonSoumisExclu[@SComptabilisationMen]); @PHTNonSoumisExclu[@SComptabilisationMen] ) #Tva @VCodeTVAExclu #Monnaie #Analytique #Date #Débit SI(@Total<0; @VCptDefautArticleCrédit ; "...") #Crédit SI(@Total<0; "..." ; @VCptDefautArticleCrédit) #Pièce SI(@Total<0; SI(@Payé=1; SI(COMPTE(@PMontants)=1; CHAINE(@Numéro)+"-C"; SI(DEFAUT(@PMontants[@SComptabilisationMen+1];0)=0; CHAINE(@Numéro)+"-CF"; CHAINE(@Numéro)+"-CA")); CHAINE(@Numéro)+"-CA"); SI(@Payé=1; SI(COMPTE(@PMontants)=1; CHAINE(@Numéro)+"-F"; SI(DEFAUT(@PMontants[@SComptabilisationMen+1];0)=0; CHAINE(@Numéro)+"-FF"; CHAINE(@Numéro)+"-F")); CHAINE(@Numéro)+"-V")) #Libellé SI(@Total<0;"Cré. ";"Fac. ")+ CHAINE(@Numéro)+"/"+CHAINE(@RefClient)+" "+GAUCHE(@NomRéférence;@VLongueurTxtCompta)+ ", Articles" #Somme SI(@Total<0; -(@PHTNonSoumisExport[@SComptabilisationMen]); @PHTNonSoumisExport[@SComptabilisationMen] ) #Tva @VCodeTVAExportation #Monnaie #Analytique #Date #Débit SI(@Total<0; @VCptDefautArticleCrédit ; "...") #Crédit SI(@Total<0; "..." ; @VCptDefautArticleCrédit) #Pièce SI(@Total<0; SI(@Payé=1; SI(COMPTE(@PMontants)=1; CHAINE(@Numéro)+"-C"; SI(DEFAUT(@PMontants[@SComptabilisationMen+1];0)=0; CHAINE(@Numéro)+"-CF"; CHAINE(@Numéro)+"-CA")); CHAINE(@Numéro)+"-CA"); SI(@Payé=1; SI(COMPTE(@PMontants)=1; CHAINE(@Numéro)+"-F"; SI(DEFAUT(@PMontants[@SComptabilisationMen+1];0)=0; CHAINE(@Numéro)+"-FF"; CHAINE(@Numéro)+"-F")); CHAINE(@Numéro)+"-V")) #Libellé SI(@Total<0;"Cré. ";"Fac. ")+ CHAINE(@Numéro)+"/"+CHAINE(@RefClient)+" "+GAUCHE(@NomRéférence;@VLongueurTxtCompta)+ ", Articles" #Somme SI(@Total<0; -(@PHTSoumisTVARéduit[@SComptabilisationMen]+@PTVATauxRéduit[@SComptabilisationMen]); @PHTSoumisTVARéduit[@SComptabilisationMen]+@PTVATauxRéduit[@SComptabilisationMen] ) #Tva @VCodeTVAVenteRéduit+"|"+CHAINE(@TVATauxRéduit) #Monnaie #Analytique #Date #Débit SI(@Total<0; @VCptDefautArticleCrédit ; "...") #Crédit SI(@Total<0; "..." ; @VCptDefautArticleCrédit) #Pièce SI(@Total<0; SI(@Payé=1; SI(COMPTE(@PMontants)=1; CHAINE(@Numéro)+"-C"; SI(DEFAUT(@PMontants[@SComptabilisationMen+1];0)=0; CHAINE(@Numéro)+"-CF"; CHAINE(@Numéro)+"-CA")); CHAINE(@Numéro)+"-CA"); SI(@Payé=1; SI(COMPTE(@PMontants)=1; CHAINE(@Numéro)+"-F"; SI(DEFAUT(@PMontants[@SComptabilisationMen+1];0)=0; CHAINE(@Numéro)+"-FF"; CHAINE(@Numéro)+"-F")); CHAINE(@Numéro)+"-V")) #Libellé SI(@Total<0;"Cré. ";"Fac. ")+ CHAINE(@Numéro)+"/"+CHAINE(@RefClient)+" "+GAUCHE(@NomRéférence;@VLongueurTxtCompta)+ ", Articles" #Somme SI(@Total<0; -(@PHTSoumisTVAHeb[@SComptabilisationMen]+@PTVATauxHeb[@SComptabilisationMen]); @PHTSoumisTVAHeb[@SComptabilisationMen]+@PTVATauxHeb[@SComptabilisationMen] ) #Tva @VCodeTVAVenteHeb+"|"+CHAINE(@TVATauxHeb) #Monnaie #Analytique #Date #Débit SI(@Total<0; @VCptDefautArticleCrédit ; "...") #Crédit SI(@Total<0; "..." ; @VCptDefautArticleCrédit) #Pièce SI(@Total<0; SI(@Payé=1; SI(COMPTE(@PMontants)=1; CHAINE(@Numéro)+"-C"; SI(DEFAUT(@PMontants[@SComptabilisationMen+1];0)=0; CHAINE(@Numéro)+"-CF"; CHAINE(@Numéro)+"-CA")); CHAINE(@Numéro)+"-CA"); SI(@Payé=1; SI(COMPTE(@PMontants)=1; CHAINE(@Numéro)+"-F"; SI(DEFAUT(@PMontants[@SComptabilisationMen+1];0)=0; CHAINE(@Numéro)+"-FF"; CHAINE(@Numéro)+"-F")); CHAINE(@Numéro)+"-V")) #Libellé SI(@Total<0; "Cré. ";"Fac. ")+ CHAINE(@Numéro)+"/"+CHAINE(@RefClient)+" "+GAUCHE(@NomRéférence;@VLongueurTxtCompta)+ ", Articles" #Somme SI(@Total<0; -(@PHTSoumisTVANormal[@SComptabilisationMen]+@PTVATauxNormal[@SComptabilisationMen]); @PHTSoumisTVANormal[@SComptabilisationMen]+@PTVATauxNormal[@SComptabilisationMen]) #Tva @VCodeTVAVenteNormal+"|"+CHAINE(@TVATauxNormal) #Monnaie #Analytique #Date #Débit SI(@Total<0; "..."; CASE (@PTypePaiement[@SComptabilisationMen] ; @VCptPaiement00; @VCptPaiement01; @VCptPaiement02; @VCptPaiement03; @VCptPaiement04; @VCptPaiement05; @VCptPaiement06; @VCptPaiement07; @VCptPaiement08; @VCptPaiement09; @VCptPaiement10; @VCptPaiement11; @VCptPaiement12; @VCptPaiement13; @VCptPaiement14; @VCptPaiement10) ) #Crédit SI(@Total<0; CASE (@PTypePaiement[@SComptabilisationMen] ; @VCptPaiement00; @VCptPaiement01; @VCptPaiement02; @VCptPaiement03; @VCptPaiement04; @VCptPaiement05; @VCptPaiement06; @VCptPaiement07; @VCptPaiement08; @VCptPaiement09; @VCptPaiement10; @VCptPaiement11; @VCptPaiement12; @VCptPaiement13; @VCptPaiement14; @VCptPaiement10) ; "..." ) #Pièce SI(@Total<0; SI(@Payé=1; SI(COMPTE(@PMontants)=1; CHAINE(@Numéro)+"-C"; SI(DEFAUT(@PMontants[@SComptabilisationMen+1];0)=0; CHAINE(@Numéro)+"-CF"; CHAINE(@Numéro)+"-CA")); CHAINE(@Numéro)+"-CA"); SI(@Payé=1; SI(COMPTE(@PMontants)=1; CHAINE(@Numéro)+"-F"; SI(DEFAUT(@PMontants[@SComptabilisationMen+1];0)=0; CHAINE(@Numéro)+"-FF"; CHAINE(@Numéro)+"-FA")); CHAINE(@Numéro)+"-FA")) #Libellé SI(@Total<0;"Cré. ";"Fac. ") + CHAINE(@Numéro)+"/"+CHAINE(@RefClient)+" "+GAUCHE(@NomRéférence;@VLongueurTxtCompta)+ ", brut" #Somme SI(@Total<0; -@PMontants[@SComptabilisationMen] ; @PMontants[@SComptabilisationMen] ) #Tva #Monnaie #Analytique #Final #Cumul 1 #Payé @Payé=1 #Accompte @PMontants #Commandes #Cumul 1 #Versements #Cumul 1 #Date @PDates[@SComptabilisationMen] #Débit SI(@Total>0;DEFAUT(@CompteDébit;@VCptDefautArticleDébit);"...") #Crédit SI(@Total>0;"..." ;DEFAUT(@CompteDébit;@VCptDefautArticleDébit)) #Pièce SI(@Total<0; SI(@Payé=1; SI(COMPTE(@PMontants)=1; CHAINE(@Numéro)+"-C"; SI(DEFAUT(@PMontants[@SComptabilisationMen+1];0)=0; CHAINE(@Numéro)+"-CF"; CHAINE(@Numéro)+"-CA")); CHAINE(@Numéro)+"-CA"); SI(@Payé=1; SI(COMPTE(@PMontants)=1; CHAINE(@Numéro)+"-F"; SI(DEFAUT(@PMontants[@SComptabilisationMen+1];0)=0; CHAINE(@Numéro)+"-FF"; CHAINE(@Numéro)+"-F")); CHAINE(@Numéro)+"-V")) #Libellé SI(@Total<0;"Cré. F ";"Fac. F ")+ CHAINE(@Numéro)+"/"+CHAINE(@RefFournisseur)+" "+GAUCHE(@NomRéférence;@VLongueurTxtCompta)+ ", articles" #Somme SI(@Total<0; -ARRONDI( ( @PMontants / @TotalFournisseur) * DEFAUT(@ATotalNonSoumisTVA;0) ;0.01); ARRONDI( ( @PMontants / @TotalFournisseur) * DEFAUT(@ATotalNonSoumisTVA;0) ;0.01) ) #Tva #Monnaie #Analytique #Date #Débit SI(@Total>0;DEFAUT(@CompteDébit;@VCptDefautArticleDébit);"...") #Crédit SI(@Total>0;"..." ;DEFAUT(@CompteDébit;@VCptDefautArticleDébit)) #Pièce SI(@Total<0; SI(@Payé=1; SI(COMPTE(@PMontants)=1; CHAINE(@Numéro)+"-C"; SI(DEFAUT(@PMontants[@SComptabilisationMen+1];0)=0; CHAINE(@Numéro)+"-CF"; CHAINE(@Numéro)+"-CA")); CHAINE(@Numéro)+"-CA"); SI(@Payé=1; SI(COMPTE(@PMontants)=1; CHAINE(@Numéro)+"-F"; SI(DEFAUT(@PMontants[@SComptabilisationMen+1];0)=0; CHAINE(@Numéro)+"-FF"; CHAINE(@Numéro)+"-F")); CHAINE(@Numéro)+"-V")) #Libellé SI(@Total<0;"Cré. F ";"Fac. F ") +CHAINE(@Numéro)+"/"+CHAINE(@RefFournisseur)+" "+GAUCHE(@NomRéférence;@VLongueurTxtCompta)+ ", Articles" #Somme SI(@Total<0;-ARRONDI( ( @PMontants / @TotalFournisseur) * ( DEFAUT(@ATotalHTSoumisTVARéd;0) + DEFAUT(@TVATotalTauxRéduit;0)+DEFAUT(@CorrectifTVARéduit;0)) ;0.01);ARRONDI( ( @PMontants / @TotalFournisseur) * (DEFAUT(@ATotalHTSoumisTVARéd;0) + DEFAUT(@TVATotalTauxRéduit;0)+DEFAUT(@CorrectifTVARéduit;0)) ;0.01)) #Tva DEFAUT(@CodeTVAAchatRéduit ;@VCodeTVAAchatRéduit)+"|"+CHAINE(@TVATauxRéduit) #Monnaie #Analytique #Date #Débit SI(@Total>0;DEFAUT(@CompteDébit;@VCptDefautArticleDébit);"...") #Crédit SI(@Total>0;"..." ;DEFAUT(@CompteDébit;@VCptDefautArticleDébit)) #Pièce SI(@Total<0; SI(@Payé=1; SI(COMPTE(@PMontants)=1; CHAINE(@Numéro)+"-C"; SI(DEFAUT(@PMontants[@SComptabilisationMen+1];0)=0; CHAINE(@Numéro)+"-CF"; CHAINE(@Numéro)+"-CA")); CHAINE(@Numéro)+"-CA"); SI(@Payé=1; SI(COMPTE(@PMontants)=1; CHAINE(@Numéro)+"-F"; SI(DEFAUT(@PMontants[@SComptabilisationMen+1];0)=0; CHAINE(@Numéro)+"-FF"; CHAINE(@Numéro)+"-F")); CHAINE(@Numéro)+"-V")) #Libellé SI(@Total<0;"Cré. F ";"Fac. F ") +CHAINE(@Numéro)+"/"+CHAINE(@RefFournisseur)+" "+GAUCHE(@NomRéférence;@VLongueurTxtCompta)+ ", Articles" #Somme SI(@Total<0;-ARRONDI( ( @PMontants / @TotalFournisseur) * (DEFAUT(@ATotalHTSoumisTVANor;0) + DEFAUT(@TVATotalTauxNormal;0)+DEFAUT(@CorrectifTVANormal;0)) ;0.01);ARRONDI( ( @PMontants / @TotalFournisseur) * ( DEFAUT(@ATotalHTSoumisTVANor;0) + DEFAUT(@TVATotalTauxNormal;0)+DEFAUT(@CorrectifTVANormal;0)) ;0.01)) #Tva DEFAUT(@CodeTVAAchatNormal;@VCodeTVAAchatNormal)+"|"+CHAINE(@TVATauxNormal) #Monnaie #Analytique #Date #Débit SI(@Total>0;DEFAUT(@VCptFraisPortVente;@VCptDefautArticleDébit);"...") #Crédit SI(@Total<0;"..." ;DEFAUT(@VCptFraisPortVente;@VCptDefautArticleDébit)) #Pièce SI(@Total<0; SI(@Payé=1; SI(COMPTE(@PMontants)=1; CHAINE(@Numéro)+"-C"; SI(DEFAUT(@PMontants[@SComptabilisationMen+1];0)=0; CHAINE(@Numéro)+"-CF"; CHAINE(@Numéro)+"-CA")); CHAINE(@Numéro)+"-CA"); SI(@Payé=1; SI(COMPTE(@PMontants)=1; CHAINE(@Numéro)+"-F"; SI(DEFAUT(@PMontants[@SComptabilisationMen+1];0)=0; CHAINE(@Numéro)+"-FF"; CHAINE(@Numéro)+"-F")); CHAINE(@Numéro)+"-V")) #Libellé SI(@Total<0;"Cré. F ";"Fac. F ") +CHAINE(@Numéro)+"/"+CHAINE(@RefFournisseur)+" "+GAUCHE(@NomRéférence;@VLongueurTxtCompta)+ ", frais emballage" #Somme SI(@Total<0;-ARRONDI( ( @PMontants / @TotalFournisseur) * SI(@FraisEmballageHTTTC=1; (DEFAUT(@FraisEmballage;0)+ DEFAUT(@TVATotalEmballage;0)); DEFAUT(@FraisEmballage;0) ) ;0.01);ARRONDI( SI(@FraisEmballageHTTTC=1; (DEFAUT(@FraisEmballage;0)+ DEFAUT(@TVATotalEmballage;0)); DEFAUT(@FraisEmballage;0) ) ;0.01)) #Tva SI(DEFAUT(@TVATotalTauxNormal;0)=0; SI(DEFAUT(@TVATotalTauxRéduit;0)=0; 0; @VCodeTVAAchatRéduit+"|"+CHAINE(@TVATauxRéduit)); @VCodeTVAAchatNormal+"|"+CHAINE(@TVATauxNormal)) #Monnaie #Analytique #Date #Débit SI(@Total>0;DEFAUT(@VCptFraisVente;@VCptDefautArticleDébit);"...") #Crédit SI(@Total>0;"..." ;DEFAUT(@VCptFraisVente;@VCptDefautArticleDébit)) #Pièce SI(@Total<0; SI(@Payé=1; SI(COMPTE(@PMontants)=1; CHAINE(@Numéro)+"-C"; SI(DEFAUT(@PMontants[@SComptabilisationMen+1];0)=0; CHAINE(@Numéro)+"-CF"; CHAINE(@Numéro)+"-CA")); CHAINE(@Numéro)+"-CA"); SI(@Payé=1; SI(COMPTE(@PMontants)=1; CHAINE(@Numéro)+"-F"; SI(DEFAUT(@PMontants[@SComptabilisationMen+1];0)=0; CHAINE(@Numéro)+"-FF"; CHAINE(@Numéro)+"-F")); CHAINE(@Numéro)+"-V")) #Libellé SI(@Total<0;"Cré. F ";"Fac. F ") +CHAINE(@Numéro)+"/"+CHAINE(@RefFournisseur)+" "+GAUCHE(@NomRéférence;@VLongueurTxtCompta)+ ", port et arrondi" #Somme CHAINE(SI(@Total<0;-ARRONDI( ( @PMontants / @TotalFournisseur) * DEFAUT(@FraisPort;0) ;0.01);ARRONDI( ( @PMontants / @TotalFournisseur) * DEFAUT(@FraisPort;0);0.01) ) )+"+/-1" #Tva SI(DEFAUT(@TVATotalTauxNormal;0)=0; SI(DEFAUT(@TVATotalTauxRéduit;0)=0; ""; @VCodeTVAAchatRéduit+"|"+CHAINE(@TVATauxRéduit)) ; @VCodeTVAAchatNormal+"|"+CHAINE(@TVATauxNormal) ) #Monnaie #Analytique #Date #Débit SI(@Total>0; "..."; CASE (@PTypePaiement[@SComptabilisationMen] ; @VCptPaiement00; @VCptPaiement01; @VCptPaiement02; @VCptPaiement03; @VCptPaiement04; @VCptPaiement05; @VCptPaiement06; @VCptPaiement07; @VCptPaiement08; @VCptPaiement09; @VCptPaiement10; @VCptPaiement11; @VCptPaiement12; @VCptPaiement13; @VCptPaiement14; @VCptPaiement10) ) #Crédit SI(@Total>0; CASE (@PTypePaiement[@SComptabilisationMen] ; @VCptPaiement00; @VCptPaiement01; @VCptPaiement02; @VCptPaiement03; @VCptPaiement04; @VCptPaiement05; @VCptPaiement06; @VCptPaiement07; @VCptPaiement08; @VCptPaiement09; @VCptPaiement10; @VCptPaiement11; @VCptPaiement12; @VCptPaiement13; @VCptPaiement14; @VCptPaiement10) ; "..." ) #Pièce SI(@Total<0; SI(@Payé=1; SI(COMPTE(@PMontants)=1; CHAINE(@Numéro)+"-C"; SI(DEFAUT(@PMontants[@SComptabilisationMen+1];0)=0; CHAINE(@Numéro)+"-CF"; CHAINE(@Numéro)+"-CA")); CHAINE(@Numéro)+"-CA"); SI(@Payé=1; SI(COMPTE(@PMontants)=1; CHAINE(@Numéro)+"-F"; SI(DEFAUT(@PMontants[@SComptabilisationMen+1];0)=0; CHAINE(@Numéro)+"-FF"; CHAINE(@Numéro)+"-FA")); CHAINE(@Numéro)+"-FA")) #Libellé SI(@Total<0;"Cré. F ";"Fac. F ") +CHAINE(@Numéro)+"/"+CHAINE(@RefFournisseur)+" "+GAUCHE(@NomRéférence;@VLongueurTxtCompta)+ ", brut" #Somme SI(@Total<0; -@PMontants[@SComptabilisationMen] ; @PMontants[@SComptabilisationMen] ) #Tva #Monnaie #Analytique #Final #Cumul 1 #Payé @Payé=1 #Accompte @PMontants