RE:problemas con codigo de barras!!
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