PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEVWEBDEV and WINDEV Mobile

Home → WINDEV 2024 → Imprimer EAN 8
Imprimer EAN 8
Started by simon, May, 26 2017 9:05 AM - 9 replies
Posted on May, 26 2017 - 9:05 AM
Bonjour

Je calcul la clé de contrôle du code EAN 8 dont les 7 premiers chiffres sont 4719-512? alors la clé de contrôle est donc 7, le code EAN 8 complet est donc 47195127.
Mon problème est dans l'impression, lors j'imprime ce code il m'ajoute au début 4(zéros) et un chiffre à la fin.
comme suit : 0000 47195127 6 (format EAN 13)

Pour l'impression de EAN 13 sans problème mais pour EAN 8 j'ai ce souci.

NB : Dans mon programme je peux imprimer les 2 types de code 8 et 13

Merci de m'aider ou de me donner une piste
Posted on May, 26 2017 - 2:48 PM
Bonjour Simon

avec les infos que tu nous donne, la seule piste que je vois est :
ton code est faux.

Cordialement


--
Fabrice Harari
Consultant WinDev, WebDev et WinDev Mobile International

A votre disposition : WXShowroom.com, WXReplication (open source) et
maintenant WXEDM (open source)

Plus d'information sur http://fabriceharari.com


Le 5/26/2017 à 1:05 AM, simon a écrit :
Bonjour

Je calcul la clé de contrôle du code EAN 8 dont les 7 premiers chiffres
sont 4719-512? alors la clé de contrôle est donc 7, le code EAN 8
complet est donc 47195127.
Mon problème est dans l'impression, lors j'imprime ce code il m'ajoute
au début 4(zéros) et un chiffre à la fin.
comme suit : 0000 47195127 6 (format EAN 13)

Pour l'impression de EAN 13 sans problème mais pour EAN 8 j'ai ce souci.

NB : Dans mon programme je peux imprimer les 2 types de code 8 et 13

Merci de m'aider ou de me donner une piste
Posted on May, 26 2017 - 4:40 PM
Bonjour et Merci Fabrice

Quel code est faux?
Posted on May, 26 2017 - 5:14 PM
le tien, celui que tu ne nous montre pas

Le 5/26/2017 à 8:40 AM, simon a écrit :
Bonjour et Merci Fabrice

Quel code est faux?
Posted on May, 26 2017 - 5:48 PM
OK

Désolé, mon code est comme suit

iEscape("^XA")
iEscape( "^PQ"+SAI_QuantiteEAN+"^0,0,Y")
iEscape("^FO100,100^BY2")

SI taille(Code)=13 ALORS
iEscape("^FO25,10^BC")
SINON SI taille(Code)=8 ALORS
iEscape("^FO40,10^BC")
FIN
iEscape("^BEN,100,Y,N")
iEscape("^FD"+Code+"^FS")
iEscape("^XZ")
iFinImprime()

Merci de votre retour
Posted on May, 26 2017 - 11:11 PM
on a donc fini par réussir à savoir que tu envoie des codes de contrôle
à l'imprimante.

Quelle TYPE de code, pour quelle MARQUE d'imprimante, on sait toujours
pas...

Quand à savoir ce que dit la DOCUMENTATION de l'imprimante en question
au sujet des codes EAN8 et EAN13, c'est toujours le mystère aussi

C'est pire que d'arracher une dent sans anesthésie, ton affaire



Le 5/26/2017 à 9:48 AM, simon a écrit :
OK

Désolé, mon code est comme suit

iEscape("^XA") iEscape( "^PQ"+SAI_QuantiteEAN+"^0,0,Y")
iEscape("^FO100,100^BY2")

SI taille(Code)=13 ALORS
iEscape("^FO25,10^BC")
SINON SI taille(Code)=8 ALORS
iEscape("^FO40,10^BC")
FIN
iEscape("^BEN,100,Y,N")
iEscape("^FD"+Code+"^FS")
iEscape("^XZ")
iFinImprime()

Merci de votre retour
Registered member
3 messages
Popularité : +1 (1 vote)
Posted on May, 27 2017 - 7:29 AM
Bonjour Simon,

Les chaînes envoyées par la fonction iEscape sont du code Zebra.

Vous trouverez facilement le protocole ZEBRA sur le net.

Il me semble qu'en Zebra, pour les EAN 128, la clé est calculée automatiquement .

Bonne journée,
Posted on May, 27 2017 - 6:54 PM
Bonjour Hdu

je ne cherche pas comment je calcule EAN 128, lit bien mon problème

Merci
Registered member
940 messages
Popularité : +66 (68 votes)
Posted on May, 29 2017 - 1:35 PM
Bonjour Simon,

vous n'envoyez pas la bonne séquence pour votre code barre.
La commande ^BE du language ZPL permet d'imprimer exclusivement des code barre EAN13.

Si vous souhaitez imprimer de l'EAN-8, il faudra utiliser la commande :
^B8
au format : ^B8o,h,f,g

avec :
Parameters Details
o = orientation Accepted Values:
N = normal
R = rotated 90 degrees (clockwise)
I = inverted 180 degrees
B = read from bottom up, 270 degrees
Default Value: current ^FW value

h = bar code height (in dots)
Accepted Values: 1 to 32000
Default Value: value set by ^BY

f = print interpretation line
Accepted Values:
N = no
Y = yes
Default Value: Y

g = print interpretation line above code
Accepted Values:
N = no
Y = yes
Default Value: N


Exemple :
^XA
^FO100,100^BY3
^B8N,100,Y,N
^FD1234567^FS
^XZ


Bon dèv ;)
Posted on May, 30 2017 - 2:52 AM
Bonjour Christophe

Merci de votre réponse, je vais vais envoyer le code ^B8 concernant le EAN 8