Clipper/FiveWin - Digito Verificador

   
Vista:

Digito Verificador

Publicado por Alberto (8 intervenciones) el 11/05/2009 17:01:47
Estimados tengo que calcular el Digito Verificador de los codigos de barras que genera el programa, antes de imprimir.
Alguien tiene alguna rutina armada o algun ejemplo de como hacerlo.?
Muchas gracias, Alberto.-
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Clipper/FiveWin
- Código fuente de Clipper/FiveWin
- Cursos de Clipper/FiveWin
- Temas de Clipper/FiveWin
información
Códigos de Clipper/FiveWin
- Digito verificador RUT
- Invertir Cadena
- Visor de archivos DBF

RE:Digito Verificador

Publicado por ANTONIO (216 intervenciones) el 15/05/2009 16:59:06
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar