Mise en place de code-barres UPC-A (US et Canada)

Guide détaillé

Les étapes à exécuter :

Installer les polices de CodeUPC.zip
Créer la formule personnalisée Generate_UPCA
Créer une formule dans l'état UPCA

Genetate_UPCA

Generate_UPCA({CodeArticle.CodeEAN})

Genetate_UPCA

Function (StringVar input)
NumberVar checkDigitSubtotal;
NumberVar i;
StringVar checkDigit;
StringVar temp;

Select Len(input)
Case 12 :
input := Left(input, 11)
Case 14 :
input := Mid(input, 3, 11);

checkDigitSubtotal := Val(input[1]) + Val(input[3]) + Val(input[5]) + Val(input[7]) + Val(input[9]) + Val(Right(input, 1));
checkDigitSubtotal := (3 * checkDigitSubtotal) + Val(input[2]) + Val(input[4]) + Val(input[6]) + Val(input[8]) + Val(input[10]);
checkDigit := Right(ToText(300 - checkDigitSubtotal,"#"), 1);

temp := temp + "y" + Right(input, 5) + Chr(107 + (Val(checkDigit))) + "z";

Select checkDigit
Case "0" :
temp + "U"
Case "1" :
temp + "["
Case "2" :
temp + "V"
Case "3" :
temp + "W"
Case "4" :
temp + "X"
Case "5" :
temp + "Y"
Case "6" :
temp + "Z"
Case "7" :
temp + "u"
Case "8" :
temp + "\"
Case "9" :
temp + "]"

Tests douchette

Tests avec des terminaux portables Datalogic : toutes les polices sont lues

Tests avec des douchettes Datalogic (2430 et Gryphon) : les polices TallNarrow et HalfNarrow en grande taille (>100pt) sont lues

Articles connexes

Browser not supported