Clipper/FiveWin - ayuda con lastkey

hola amigos clipperianos, tengo un problema con lastkey, lee cuento lo tengo asignado a una variable nkey dentro de un dbedit, cuando presiono esc se supone te me tiene quedar la tecla 27, pero me da la tecla 13 (enter), como puedo inicializar estas teclas. de ante mano muchas gracias.

La variable donde asignas es lastkey la tienes dentro de una función de usuario o fuera del dbedit ?

Hola maria fernanda, como estas, gracias por responder y sobre tu pregunta lo asigno dentro de una funcion

Puedes poner un trozo de la funcion donde detectas la tecla, asi te podemos ayudar mejor

Saludos

Hola jose como estas, gracias por responder, mira aqui te mando la rutina.

Function Busca
nom:=0
save screen to pant2
se:=select()
sele &se
if reccount()>0
go top
if swe=1
a1:=10; a2:=31; a3:=12; a4:=75; a5:=13
arreglo:={"space(1)+rut_cli+' ³ '+nom_cli+space(12)"}
titulo :={" RUT ³ CLIENTES"}
elseif swe=2
a1:=10; a2:=35; a3:=12; a4:=74; a5:=10
if gg=1
set index to ub_ge2
elseif gg=2
set index to ub_ge1
endif
arreglo:={"space(1)+str(cod_geog,5)+' ³ '+desc_geog+space(12)"}
titulo :={" CODIGO ³ COMUNA "}
elseif swe=3
a1:=10; a2:=35; a3:=12; a4:=77; a5:=10
if gg=1
set index to giro2
elseif gg=2
set index to giro1
endif
arreglo:={"space(1)+str(cod_giro,4)+' ³ '+desc_giro+space(12)"}
titulo :={" CODIGO ³ DESCRIPCION "}
endif
y1=iif(reccount()>=7,6,reccount())
f_color:=setcolor()
setcolor('w+/b,n/w+')
sombra(a1+1,a2+2,a3+2+y1,a4+2)
@a1,a2,a3+1+y1,a4 box 'ÚÄ¿³ÙÄÀ³ '
@a1,a2+a5 say 'Â';@a1+2,a2 say chr(198);@a1+2,a4 say chr(181);@a3+1+y1,a2+a5 say 'Á'
dbedit(a1+1,a2+1,a1+2+y1,a4-1,arreglo,'cfunr',.t.,t

Me imagino que dentro de la función cfunr tiene la asignación a una variable de la última tecla presionada.
Haz revisado que antes o después de presionar ESC, no modifiques buffer de teclado )
De todos modos te envío un trozo de código para que revises.

Function MiFunc
Local nRetorn := 1

UltTecla := LastKey()

If UltTecla = 27
nRetorn := 0 // Valor de Retorno (Abortar dbedit)
Elseif UltTecla = 13
nRetorn := 2 // Valor de Retorno (Forzar lectura y continuar)
Endif
Return nRetorn

Espero que te sirva de algo