European Article Number es un sistema de códigos de barras adoptado por más de 100 países y cerca de un millón de empresas (2003). En el año 2005, la asociación EAN se ha fusionado con la UCC (Uniform Code Council) para formar una nueva y única organización mundial identificada como GS1, con sede en Bélgica.

El código EAN más usual es EAN13, constituido por 13 dígitos y con una estructura dividida en cuatro partes:

• Los primeros dígitos del código de barras EAN identifican el país que otorgó el código, no el país de origen del producto. Por ejemplo, en Chile se encarga de ello una empresa responsable adscrita al sistema EAN y su código es el '780'.

• Composición del código:

  • Código del país en donde radica la empresa, compuesto por 3 digitos.

  • Código de empresa. Es un número compuesto por 4 o 5 dígitos, que identifica al propietario de la marca.

  • Código de producto. Completa los 12 primeros dígitos.

  • Dígito de control. Para comprobar el dígito de control (por ejemplo, inmediatamente después de leer un código de barras mediante un escáner), numeramos los dígitos de derecha a izquierda. A continuación se suman los dígitos de las posiciones impares, el resultado se multiplica por 3, y se le suman los dígitos de las posiciones pares. Se busca decena inmediatamente superior y se le resta el resultado obtenido. El resultado final es el dígito de control. Si el resultado es múltiplo de 10 el dígito de control será 0.

Por ejemplo, para 123456789041 el dígito de control será:

• Numeramos de derecha a izquierda: 140987654321

• Suma de los números en los lugares impares: 1+0+8+6+4+2 = 21

• Multiplicado (por 3): 21 × 3 = 63

• Suma de los números en los lugares pares: 4+9+7+5+3+1 = 29

• Suma total: 63 + 29 = 92

• Decena inmediatamente superior = 100

• Dígito de control: 100 - 92 = 8

El código quedará así: 1234567890418.

Implementación

Perl

# Cálculo del dígito de control EANmy $ean = '123456789041'; # Valor de pruebamy $checksum = 1000; my $i = 0; for my $digit (split //, reverse $ean) { # Recorremos el $ean de forma inversa, dígito por dígito $checksum # Modificamos $checksum -= $i++ % 2 # según la posición del dígito: ? $digit # posición impar : $digit*3 # posición par ;} $checksum %= 10; # Ajustamos a la decena inmediatamente inferior print "Dígito de control: $checksum\n";print "Código EAN: $ean$checksum\n";

Php

// Cálculo del dígito de control EANfunction ean13_checksum ($message) { $checksum = 0; foreach (str_split(strrev($message)) as $pos => $val) { $checksum += $val * (3 - 2 * ($pos % 2)); } return ((10 - ($checksum % 10)) % 10);} // Valor de prueba (sin dígito de control)$ean = '123456789041';echo 'Digito de control: ', ean13_checksum($ean);

C#

// Cálculo del dígito de control EANint iSum = 0;int iSumInpar = 0;int iDigit = 0;string EAN = "123456789041"; // 12 digitos unicamente EAN=EAN.PadLeft(13,'0'); for (int i = EAN.Length; i >= 1; i--){ iDigit = Convert.ToInt32(EAN.Substring(i - 1, 1)); if (i % 2 != 0) { iSumInpar += iDigit; } else { iSum += iDigit; }} iDigit = (iSumInpar*3) + iSum ; int iCheckSum = (10 - (iDigit % 10)) % 10; Console.Write("Digito de control: " + iCheckSum.ToString());

Python

EAN = "123456789041" def eanCheck(ean): checksum = 0 for i, digit in enumerate(reversed(ean)): checksum += int(digit) * 3 if (i % 2 == 0) else int(digit) return (10 - (checksum % 10)) % 10 print "Digito de control: %d" %eanCheck(EAN)

Visual Basic

'Cálculo del dígito de control EAN Dim iSum As Integer = 0 Dim iDigit As Integer = 0 Dim EAN As String = "123456789041" 'EAN de prueba For i As Integer = EAN.Length To 1 Step -1 iDigit = Convert.ToInt32(EAN.Substring(i - 1, 1)) If (EAN.Length - i + 1) Mod 2 <> 0 Then iSum += iDigit * 3 Else iSum += iDigit End IfNext Dim iCheckSum As Integer = (10 - (iSum Mod 10)) Mod 10 Console.Write("Dígito de control: " & iCheckSum.ToString())

Javascript

// Cálculo del dígito de control EANfunction ean13_checksum(message) { var checksum = 0; message = message.split('').reverse(); for(var pos in message){ checksum += message[pos] * (3 - 2 * (pos % 2)); } return ((10 - (checksum % 10 )) % 10);}// Valor de prueba (sin dígito de control)var ean = '123456789041'; console.log(ean13_checksum(ean));

ABAP

CALL FUNCTION 'MARA_EAN11' EXPORTING P_MATNR = MARA-MATNR P_NUMTP = MARA-NUMTP P_EAN11 = MARA-EAN11 P_MEINH = MARA-MEINS RET_EAN11 = LMARA-EAN11 RET_NUMTP = LMARA-NUMTP BINPT_IN = SY-BINPT P_MESSAGE = ' ' ERROR_FLAG = EAN_FEHLERFLG P_HERKUNFT = 'A' " Für Abmessungen / EAN GDS_RELEVANT = MARA-GDS_RELEVANT IMPORTING P_NUMTP = MARA-NUMTP P_EAN11 = MARA-EAN11 VB_FLAG_MEAN = RMMG2-VB_MEAN MSGID = MSGID " s. weiter unten MSGTY = MSGTY MSGNO = MSGNO MSGV1 = MSGV1 MSGV2 = MSGV2 MSGV3 = MSGV3 MSGV4 = MSGV4 TABLES MARM_EAN = MARM_EAN MEAN_ME_TAB = MEAN_ME_TAB " NEU: AHE 24.10.95 ME_TAB = ME_TAB YDMEAN = YDMEAN EXCEPTIONS EAN_ERROR = 1 OTHERS = 2.