AYUDA URGENTE!!! PARA SOLUCIONA UN GET

[prm_pedro]

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....-

[Antonio Linares]

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

[prm_pedro]

GRACIAS .....