FiveTech Support Forums

HOLA A TODOS....

DE NUEVO MOLESTANDO......

TENGO UN PROBLE DE UN GET... ESTOY LEYENDO UN CODIGO DE BARRAS DESDE ESCANER. Y QUIERO QUE CUANDO TERMINAR LA LECTURA DE ESTE ME MANDE A OTRO EVENTO... Y ESTO LO ESTOY HACIENDO PORQUE SE SUPONE QUE LA LECTURA LA HECE EL CODIGO+UN ENTER, ENTONCES LO QUIERO ACER ASI PERO NO FUNCIONA...

@ 35,20 GET nCodigo VAR mensa PIXEL SIZE 80,10
oDlg:bKeyDown = { | nKey,nFlags | KeyChar(nKey,nFlags)}

FUNCTION KeyChar(nKey,nFlags)
local nColPos := 0, nColInit:= 0, nColGet := 0
IF nKey == 13//K_ENTER // ENTER
// LO QUE DECEO HACER....
ENDIF
RETURN NIL

PERO ESTO FUNCIONA PARA CUALQUIER TECLA MENOS PARA EL ENTER....

ALGUINE ME PODRIA AYUDAR....-

Prueba con bKeyChar en vez de bKeyDown,

de todas formas, el código debiera ser:

@ 35,20 GET oCodigo VAR mensa PIXEL SIZE 80,10

oCodigo:bKeyDown = { | nKey,nFlags | KeyChar(nKey,nFlags)}

ó cambiando bKeyDown por bKeyChar

GRACIAS .....