WDForge.org - Forums

Re: Gros Pb avec codes barre en EAN13

Sujet: Re: Gros Pb avec codes barre en EAN13
par Totof sur 16/2/2006 23:50:21

Bonjour,

Votre procédure de calcul de clé EAN 13 est fausse ...

En voici une correcte (code tapé à la volée non vérifié):
P.S. : Faire un petit tour dans les dossiers de la forge ...
charte de nommage par exemple.
P.S. 2 : Un code EAN 13 est composé de 12 chiffres + 1 caractère de contrôle sinon ce n'est pas de l'EAN 13 :)

PROCEDURE calculControleEAN13(_codeInitial)
temp est un entier
sommePair, sommeImpair sont des entiers
z est un entier
m est un entier
controle est un entier
chaineControle est une chaîne

i est un entier

pour i=1 à Taille(_codeInitial)
	temp = val( _codeInitial[[i]] )
	SI EstPair(i) ALORS
		sommePair += temp
	SINON
		sommeImpair += (temp * 3)
	FIN
FIN

z = sommeImpair + sommePair

m = modulo(z,10)

controle = 10 - m

chaineControle = controle

RENVOYER chaineControle

Bon dév.,

Totof