Formules

Un article de Documentation 8sens.
Jump to: navigation, search
  • Affichage dans une pièce de vente du montant ligne en TTC que l'option TTC de l'entête de pièce soit cochée ou non.
If [PcvIsTTC] then
print format([PlvMtNet], "-###,###,##0.00")
else
print format([PlvMtNet]*(1+[PlvGTaxTaux]/100), "-###,###,##0.00")
end

(Cette base de formule peut être utilisée pour afficher automatiquement les lignes en ttc ou ht quelque soit l'option qui est cochée. Et permet de ne pas avoir à créer plusieurs modèles.)

(il faut penser à cocher la case "Rien si valeur nulle" pour ne pas voir apparaître "0,00" sur les lignes de texte)

Pour le HT cela donnerait:

If [PcvIsTTC] then
print format([PlvMtNet]/(1+[PlvGTaxTaux]/100), "-###,###,##0.00")
else
print format([PlvMtNet], "-###,###,##0.00")
end
  • Affichage automatique du libellé "Facture" ou "avoir"
if([PcvMtTotal]>=0) then
print "Facture n° "
else
print "Avoir n° "
end

(Placer cette formule dans un champ texte devant le champ "[PcvCode]". Si le montant total de la facture est supérieur à 0 alors on affichera "Facture". Dans le cas contraire, on affichera "Avoir".)

  • Affichage automatique du libellé "Facture" ou "Invoice" selon la langue
if([PcvGLagCode] = "EN") then
print "Invoice"
else
print "Facture n°"
end


  • Fonctionnement avancé

Il est aussi possible dans 8print d'utiliser certaines fonctions de realbasic. La formule ci-dessous permet par exemple de supprimer les lettres du champ référence pour ne conserver que les chiffres :

dim wst as string
dim wi as integer
dim test as integer
dim retour as string
wst = [PcvRef]
wi = 0
for wi = 1 to len(wst)
test = asc(mid(wst, wi, 1))
if test >= asc("0") and test <= asc("9") then
retour = retour + mid(wst, wi, 1)
end
next
print retour