FoxPro/Visual FoxPro - CODIGO BARRAS EAN13

TENGO UN PROGRAMITA PARA IMPRIMIR ETIQUETAS DE CODIGOS DE BARRAS, CON EL CODE39 NO TENGO PROBLEMAS PERO CON EL EAN13 IMPRIME PERO LUEGO NO LO LEE EL LECTOR (NI BIEN NI MAL SIMPLEMENTE NO LO LEE), NO SE SI HAY ALGUNA RUTINA QUE GENERA CODIGOS PARA EAN13 O SI TAMBIEN NECESITO ALGUN FONT DETERMINADO.
HABER SI ALGUIEN ME PUEDE AYUDAR.

Eso es bastante normal , los codigos de barras no son simplemente aplicar una fuente y ya esta , necesitas generalmente transformarlos para aplicar despues la fuente correspondiente ...te envio al correo un programa al que le pasas el numero del codigo de barras y te lo devuelve trasnformado , luego aplicas las fuentes , que tambien te envio ...

Espero te sirva...

yo tambien estaba necesitando esas rutinas, si alguien me puede enviar agradeceria infinitamente.
Gracias.

descargalas de www.solges.net , soluciones , esta aun sin terminar la pagina pero esa parte esta lista ....

Espero te sirva...

hola no tendrías la función o subrutina de ean-13 para pasarme ¿tiene costo?

esta es la rutina de codigo verificador
pero tiene 3 separadores entre el 1 digito y el segundo y entre 7mo y 8vo y luego el utlimo
¿como se genera entonces?

*****************************************************
** digito verificador para codigo de barras ean-13 **
*****************************************************

tcCodigoBarras = "117123456789"
cifra = digito_verificador_ean(tcCodigoBarras)

? cifra


return

FUNCTION DIGITO_VERIFICADOR_EAN
LPARAMETERS tcCodigoBarras
LOCAL lnSuma, lnI, lnDigito, lnDigitoVerificador

lnSuma = 0

FOR lnI = Len(tcCodigoBarras) TO 1 STEP -1
lnDigito = Val(Substr(tcCodigoBarras, lnI, 1))
IF (Mod(Len(tcCodigoBarras) - lnI + 1, 2)) <> 0 THEN
lnSuma = lnSuma + lnDigito * 3
ELSE
lnSuma = lnSuma + lnDigito
ENDIF
ENDFOR

lnDigitoVerificador = Mod(10 - Mod(lnSuma, 10), 10)

RETURN (lnDigitoVerificador)

ENDFUNC