FoxPro/Visual FoxPro - problemas con codigo de barras!!

como leer codigo de barras desde un lector optico y como imprimirlo.

Hola, mira para leer un codigo es sencillo..........
normalmente los lectores que leen los codigos de barras
actuan igual que el teclado, la mayoria retorna automaticamente un enter y otros no.
logicamente eso es programable desde un cuadro de texto....ya sea empleando el evento KEYPRESS o el evento INTERACTIVECHANGE
u Otro Evento.......OK

por ejemplo....(Evento Keypress de un cuadro de texto...TEXT1)

IF NKEYCODE=13
CODIGO=VAL(THISFORM.TEXT1.VALUE)
SELECT 1
SEEK CODIGO
IF FOUND()
MESSAGEBOX("CODIOG EXISTENTE.........")
ELSE
MESSAGEBOX("CODIOG NO EXISTE.........")
ENDIF
ENDIF

Ahora para imprimirlo, necesitas tener una fuente que es la que convierte los datos del codigo a formato de barras: Eanp72Tt.TTF

thisform.text2.fontname="Eanp72Tt"
thisform.text2.value=allt(thisform.text1.value)

OK

Si necesitas mas informacion, mandame u email..

saludos desde Veracruz, ver. Mexico