como generar y leer codigos de barra desde visual fox 9.0

[hans ortiz]

hola foro, me gustaria conocer como generar un codigo de barra y que a su
vez pueda imprimirlo en reporte(recibo) y como leer este y que almacene los
datos.
es decir, generar un recibo de cobro con codigo de barras y que cuando el
cliente venga a cancelar leer el codigo de barra y asignar su pago a una
tabla.

muchas gracias por su ayuda, de antemano
Bendiciones

[Jose A. Blasco]

Revisa este enlace

-- Codigos de Barra en Reportes de VisualFoxPro --
http://www.portalfox.com/index.php?name=News&file=article&sid=117

[Luis María Guayán]

-- Códigos de barra en reportes de Visual FoxPro --
http://www.portalfox.com/article.php?sid=117
--
Luis María Guayán
Tucumán, Argentina
________________________________
SysOp de www.PortalFox.com
Microsoft Visual FoxPro MVP
________________________________
La palabra imposible solo figura
en el diccionario de los tontos

Post by hans ortiz
hola foro, me gustaria conocer como generar un codigo de barra y que a su
vez pueda imprimirlo en reporte(recibo) y como leer este y que almacene los
datos.
es decir, generar un recibo de cobro con codigo de barras y que cuando el
cliente venga a cancelar leer el codigo de barra y asignar su pago a una
tabla.
muchas gracias por su ayuda, de antemano
Bendiciones

[t***@gmail.com]

Hola amigos

Deseo generar códigos alfanuméricos con la siguiente secuencia de correlativos de 4 digitos:
0001...9999...A000...Z999...AA00...AZ00...

Pero del Z999 vuelve al Z100 y no llega a generar el correlativo AA00.

Qué puede estar pasando. Agradeceré sus comentarios.

Esta es la estructura:

lccodmax=maximos.correla
if isdigit(left(lccodmax,1))
lccodmax=padl(allt(STR(val(lccodmax)+1)),4,'0')
if lccodmax=='9999'
lccodmax='A'+'000'
endif
else
if val(right(lccodmax,3))==999 AND asc(left(lccodmax,1))<90
lccodmax=chr(asc(left(lccodmax,1))+1)+'000'
ELSE lccodmax=left(lccodmax,1)+PADL(allt(str(val(right(lccodmax,3))+1)),3,'0')
IF lccodmax=='Z999'
lccodmax='A'+'A'+'00'

IF val(right(lccodmax,2))==99 AND asc(SUBSTR(lccodmax,2,1))<90
lccodmax='A'+chr(asc(SUBSTR(lccodmax,2,1))+1)+'00'
ELSE
lccodmax=left(lccodmax,2)+PADL(allt(str(val(right(lccodmax,2))+1)),2,'0')
ENDIF

ENDIF
ENDIF
endif