Hola invitado         02 Sep, 2010 - 04:32
Menú principal
 
Ads
 
Patrocinadores
 
Anuncios
 
© 2009 PortalFox

Re: Calcular el dígito verificador del código de barras EAN13

(Puntuación: 1)
por LuisMaria(luismaria@portalfoxxx.com) en 06 Jul, 2006 - 12:18

Una funcióm mas simple y que contempla el codigo EAN 13, EAN 8 y UCC 12:

FUNCTION CheckDigitEan(tcCodigo)
  LOCAL lnSuma, lnI, lnPos
  STORE 0 TO lnSuma, lnPos
  FOR lnI = LEN(tcCodigo) TO 1 STEP -1
  lnPos = lnPos + 1 
    lnSuma = lnSuma + (VAL(SUBSTR(tcCodigo,lnI,1)) * IIF(MOD(lnPos,2)=0,1,3))
  ENDFOR
  RETURN tcCodigo + TRANSFORM(MOD(10-MOD(lnSuma,10),10))
ENDFUNC

Luis María



Todas las marcas y los logos utilizados en este sitio son propiedad de sus respectivos dueños.
Los artículos, noticias y comentarios son propiedad y responsabilidad de sus respectivos autores.
Copyright © 2000-2010 PortalFox. Todos los derechos reservados.