8print les formules

  • 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 quelle que soit l’option 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 donne :

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 “Facture” est affiché. Dans le cas contraire, “Avoir” est affiché.

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

Dans 8print, vous pouvez 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