#Titre 3b) OK Assuj. TVA, dette fiscale selon les encaissements, avec code TVA (plusieurs comptes) #Factures #Cumul 1 #Versements #Cumul 1 #Date @PDates[@SComptabilisationMen] #Débit SI(@Total<0; DEFAUT(@RefArticles.CompteCrédit[DEFAUT(@Monnaie;0)];@VCptDefautArticleCrédit) ;"...") #Crédit SI(@Total<0; "..." ; DEFAUT(@RefArticles.CompteCrédit[DEFAUT(@Monnaie;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; -((DEFAUT(@ATotauxLignesNetHT;0) + DEFAUT(@ATotauxLignesTVA ;0))/ @Total * @PMontants[@SComptabilisationMen]); (DEFAUT(@ATotauxLignesNetHT;0) + DEFAUT(@ATotauxLignesTVA ;0))/ @Total * @PMontants[@SComptabilisationMen] ) #Tva @ACodeTVA +"|"+CHAINE(DEFAUT(@ATVATauxArticle;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 ; @VCptFraisPortVente ; SI (@Monnaie = 1 ; @VCptFraisPortVenteME1; @VCptFraisPortVenteME2)) ;"..." ) #Crédit SI(@Total<0; "..." ; SI(DEFAUT(@Monnaie;0)=0 ; @VCptFraisPortVente ; SI (@Monnaie = 1 ; @VCptFraisPortVenteME1; @VCptFraisPortVenteME2)) ) #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. ")+SI(@Total<0;"Frais à ";"Frais de ")+ CHAINE(@Numéro)+"/"+CHAINE(@RefClient)+" "+GAUCHE(@NomRéférence;@VLongueurTxtCompta) #Somme SI(@Total<0; -((DEFAUT(@FraisEmballageHT;0) + DEFAUT(@TVATotalEmballage ;0))/ @Total * @PMontants[@SComptabilisationMen]); (DEFAUT(@FraisEmballageHT;0) + DEFAUT(@TVATotalEmballage ;0))/ @Total * @PMontants[@SComptabilisationMen] ) #Tva SI(DEFAUT(MAX(@ATVATauxArticle);@TVATauxNormal) = @TVATauxNormal ; @VCodeTVAVenteNormal+"|"+CHAINE(@TVATauxNormal); SI(DEFAUT(MAX(@ATVATauxArticle);@TVATauxRéduit) = @TVATauxRéduit ; @VCodeTVAVenteRéduit+"|"+CHAINE(@TVATauxRéduit); SI(DEFAUT(MAX(@ATVATauxArticle);@TVATauxHeb) = @TVATauxHeb ; @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 ; @VCptFraisVente ; SI (@Monnaie = 1 ; @VCptFraisVenteME1; @VCptFraisVenteME2)) ;"..." ) #Crédit SI(@Total<0; "..." ; SI(DEFAUT(@Monnaie;0)=0 ; @VCptFraisVente ; SI (@Monnaie = 1 ; @VCptFraisVenteME1; @VCptFraisVenteME2)) ) #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)+ ", arrondi" #Somme "0"+"+/-0.99" #Tva #Monnaie SI (DEFAUT(@Monnaie;0)=0 ; ""; @Monnaie + "|"+CHAINE(DEFAUT(@TauxChange;1);5) ) #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 SI (DEFAUT(@Monnaie;0)=0 ; ""; @Monnaie + "|"+CHAINE(DEFAUT(@TauxChange;1);5) ) #Analytique #Final #Cumul 1 #Payé @Payé=1 #Accompte @PMontants #Commandes #Cumul 1 #Versements #Cumul 1 #Date SI (CONTIENT ( @DTAEtat[@SComptabilisationMen]; "*P*" );@PDates[@SComptabilisationMen];"") #Débit SI(@Total<0; DEFAUT(@RefArticles.CompteCrédit[DEFAUT(@Monnaie;0)];@VCptDefautArticleCrédit) ;"...") #Crédit SI(@Total<0; "..." ; DEFAUT(@RefArticles.CompteCrédit[DEFAUT(@Monnaie;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é. F ";"Fac. F ")+ CHAINE(@Numéro)+"/"+CHAINE(@RefFournisseur)+" "+GAUCHE(@NomRéférence;@VLongueurTxtCompta)+ ", Articles" #Somme SI(@Total<0; -((DEFAUT(@ATotauxLignesNetHT;0) + DEFAUT(@ATotauxLignesTVA ;0))/ @Total * @PMontants[@SComptabilisationMen]); (DEFAUT(@ATotauxLignesNetHT;0) + DEFAUT(@ATotauxLignesTVA ;0))/ @Total * @PMontants[@SComptabilisationMen] ) #Tva @ACodeTVA +"|"+CHAINE(DEFAUT(@ATVATauxArticle;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 ; @VCptFraisPortAchat ; SI (@Monnaie = 1 ; @VCptFraisPortAchatME1; @VCptFraisPortAchatME2)) ;"..." ) #Crédit SI(@Total<0; "..." ; SI(DEFAUT(@Monnaie;0)=0 ; @VCptFraisPortAchat ; SI (@Monnaie = 1 ; @VCptFraisPortAchatME1; @VCptFraisPortAchatME2)) ) #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 ")+SI(@Total<0;"Frais à ";"Frais de ")+ CHAINE(@Numéro)+"/"+CHAINE(@RefFournisseur)+" "+GAUCHE(@NomRéférence;@VLongueurTxtCompta) #Somme SI(@Total<0; -((DEFAUT(@FraisEmballageHT;0) + DEFAUT(@FraisPort;0)+ DEFAUT(@TVATotalEmballage ;0)) / @Total * @PMontants[@SComptabilisationMen]); (DEFAUT(@FraisEmballageHT;0) + DEFAUT(@FraisPort;0)+ DEFAUT(@TVATotalEmballage ;0)) / @Total * @PMontants[@SComptabilisationMen] ) #Tva SI(DEFAUT(MAX(@ATVATauxArticle);@TVATauxNormal) = @TVATauxNormal ; @VCodeTVAVenteNormal+"|"+CHAINE(@TVATauxNormal); SI(DEFAUT(MAX(@ATVATauxArticle);@TVATauxRéduit) = @TVATauxRéduit ; @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 ; @VCptFraisAchat ; SI (@Monnaie = 1 ; @VCptFraisAchatME1; @VCptFraisAchatME2)) ;"..." ) #Crédit SI(@Total<0; "..." ; SI(DEFAUT(@Monnaie;0)=0 ; @VCptFraisAchat ; SI (@Monnaie = 1 ; @VCptFraisAchatME1; @VCptFraisAchatME2)) ) #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)+ ", arrondi" #Somme CHAINE( SI(@Total<0; -(DEFAUT(@MontantCorrectif;0)/ @Total * @PMontants[@SComptabilisationMen]); DEFAUT(@MontantCorrectif;0)/ @Total * @PMontants[@SComptabilisationMen] ) ) +"+/-0.50" #Tva #Monnaie SI (DEFAUT(@Monnaie;0)=0 ; ""; @Monnaie + "|"+CHAINE(DEFAUT(@TauxChange;1);5) ) #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 SI (DEFAUT(@Monnaie;0)=0 ; ""; @Monnaie + "|"+CHAINE(DEFAUT(@TauxChange;1);5) ) #Analytique #Final #Cumul 1 #Payé @Payé=1 #Accompte @PMontants