Apúntate a la Zona De Descargas Reservadas (ZDDR). Solo son 20 Euros
Con solo 20€ ayudarás
a mantener el foro.


Seguir a udias en Twitter
Directorio de Empresas de Foros de informática


Todo lo que sueñas, se puede diseñar.
We build your dreams.

 - Principal - Responder - Estadísticas - Registrarse - Buscar - Lista de usuarios -  - Zona de Descargas
 -Privacidad y política de cookies -
Ayuda al foro con tu donación

Búsqueda en los foros

Foros en Udias.com / FileMaker / digito de control ean 13
Autor Mensaje

Miembro

Adicto

  Karma               1166

#1 Publicado: 14 Sep 2021 20:48



Hola Hace ya mucho tiempo Perezoso hizo un verificador de código ean 13 lo que pasa esta en fm5 y no lo puedo ver.

Alguien tiene a mano el calculo para que verifique o que saque el digito de control

Gracias


Si este mensaje te ha servido de ayuda dale tu voto Voto positivo, si quieres penalizarlo Voto positivo
jose antonio win 10 - fm 19

Moderador


  Karma               8569

#2 Publicado: 14 Sep 2021 21:23



Hola
Let (
[
_ean = "400638133393" ; // asignar a _ean el campo con el código de 12 dígitos
_chk12 = 1 * Middle ( _ean ; 1 ; 1 ) ;
_chk11 = 3 * Middle ( _ean ; 2 ; 1 ) ;
_chk10 = 1 * Middle ( _ean ; 3 ; 1 ) ;
_chk9 = 3 * Middle ( _ean ; 4 ; 1 ) ;
_chk8 = 1 * Middle ( _ean ; 5 ; 1 ) ;
_chk7 = 3 * Middle ( _ean ; 6 ; 1 ) ;
_chk6 = 1 * Middle ( _ean ; 7 ; 1 ) ;
_chk5 = 3 * Middle ( _ean ; 8 ; 1 ) ;
_chk4 = 1 * Middle ( _ean ; 9 ; 1 ) ;
_chk3 = 3 * Middle ( _ean ; 10 ; 1 ) ;
_chk2 = 1 * Middle ( _ean ; 11 ; 1 ) ;
_chk1 = 3 * Middle ( _ean ; 12 ; 1 ) ;
_chk = _chk12 + _chk11 +_chk10 + _chk9 + _chk8 + _chk7 + _chk6 + _chk5 + _chk4 + _chk3 + _chk2 + _chk1 ;
_ceilchk = Ceiling ( _chk / 10 ) * 10 ;
_checkSum = _ceilchk - _chk
] ;

Case ( Length ( _ean ) ≠ 12 ;
"?" ;
_checkSum
)
)


Seguro que se puede hacer más elegante mediante recursividad, pero este funciona bien.
Introduciendo 12 dígitos te da el dígito de control.
Sls.


Si este mensaje te ha servido de ayuda dale tu voto Voto positivo, si quieres penalizarlo Voto positivo
Pon tu sistema operativo y versión de FileMaker en tu perfil. Windows 10 + FileMaker Pro 11/19

Miembro

Adicto

  Karma               1166

#3 Publicado: 14 Sep 2021 21:32



lo pruebo y te cuento

pero lo del chk me ha dejado fuera se sitio
gracias


Si este mensaje te ha servido de ayuda dale tu voto Voto positivo, si quieres penalizarlo Voto positivo
jose antonio win 10 - fm 19

Moderador


  Karma               8569

#4 Publicado: 14 Sep 2021 22:23 - Editado por: flusheddata



chacalat:
pero lo del chk me ha dejado fuera se sitio

Tienes razón, no se me ocurrió otro nombre . Mejor así:
Let (
[
_ean = "400638133393" ; // asignar a _ean el campo con el código de 12 dígitos
_pos12 = 1 * Middle ( _ean ; 1 ; 1 ) ;
_pos11 = 3 * Middle ( _ean ; 2 ; 1 ) ;
_pos10 = 1 * Middle ( _ean ; 3 ; 1 ) ;
_pos9 = 3 * Middle ( _ean ; 4 ; 1 ) ;
_pos8 = 1 * Middle ( _ean ; 5 ; 1 ) ;
_pos7 = 3 * Middle ( _ean ; 6 ; 1 ) ;
_pos6 = 1 * Middle ( _ean ; 7 ; 1 ) ;
_pos5 = 3 * Middle ( _ean ; 8 ; 1 ) ;
_pos4 = 1 * Middle ( _ean ; 9 ; 1 ) ;
_pos3 = 3 * Middle ( _ean ; 10 ; 1 ) ;
_pos2 = 1 * Middle ( _ean ; 11 ; 1 ) ;
_pos1 = 3 * Middle ( _ean ; 12 ; 1 ) ;
_sumaPos = _pos12 + _pos11 +_pos10 + _pos9 + _pos8 + _pos7 + _pos6 + _pos5 + _pos4 + _pos3 + _pos2 + _pos1 ;
_sumaPosSuperior = Ceiling ( _sumaPos / 10 ) * 10 ;
_checkSum = _sumaPosSuperior - _sumaPos
] ;

Case ( Length ( _ean ) ≠ 12 ;
"?" ;
_checkSum
)
)

Sls.



Si este mensaje te ha servido de ayuda dale tu voto Voto positivo, si quieres penalizarlo Voto positivo
Pon tu sistema operativo y versión de FileMaker en tu perfil. Windows 10 + FileMaker Pro 11/19

Miembro

Adicto

  Karma               1166

#5 Publicado: 15 Sep 2021 00:09





perfecto

gracias


Si este mensaje te ha servido de ayuda dale tu voto Voto positivo, si quieres penalizarlo Voto positivo
jose antonio win 10 - fm 19
Su respuesta

Estilo Negrillas  Estilo Italico  Estilo Subrayado  URL De La Imagen  URL De La Web  Preformatted Text  YouTube URL  Sin código BB
Emoticones
:) ;) :up: :down: :biglol: :confused :cool: :mad: :sad: :shame: :smirk: :tongue: ... Más  Emoticones desactivados
Color de texto
Texto en negro Texto en blanco Texto en gris Texto en rojo Texto en azul Texto en verde Texto en rojo oscuro Texto en cian Texto en azul oscuro Texto en púrpura Texto en amarillo Texto en rosa Texto en naranja Texto en verde oliva Texto en marrón



 » Usuario  » Contraseña 
Solo Usuarios Registrados Pueden Postiar Aqui.
 

Tópicos relacionados con digito de control ean 13

digito de control
CONTROL DE ASISTENCIA
Control de presencia
Control del Stock
Control de Acceso


Conectados: Invitados - 8
Miembros - 0
En verde usuarios ZDDR

Realizado con miniBB © 2001-2021
Para Udias.com © 1996-2021
Hosting con Interdominios