Sr. Antonio - possivel bug na classe TGET

[MGA]

Sr. Antonio,

Se o OBJ do GET estiver com foco e teclar F3(obtn:click()) o sistema não valida o GET.

Ex. digite -1 no get do exemplo abaixo e tecle F3.

function Main()
local oDlg, oGet1, n1 := 0, OBTN
DEFINE DIALOG oDlg TITLE "Testing Gets"

@ 1, 1 GET oGet1 VAR n1 SIZE 80, 11 VALID n1>=0
@ 3, 11 BUTTON OBTN PROMPT "Ok" ACTION (MSGINFO("TECLANDO F3 NAO VALIDA O GET"))

odlg:bkeydown:={|nkey| if(nkey==VK_F3,obtn:click(),) }

ACTIVATE DIALOG oDlg CENTERED
return nil

[Antonio Linares]

Ubiratan,

En tu ejemplo estas llamando directamente al método Click() del botón por lo que no le das opción a poder validar nada. Es decir, le estas "ordenando" que ejecute la acción.

Cambia estas líneas y verás como funciona bien

@ 1, 1 GET oGet1 VAR n1 SIZE 80, 11 VALID n1 > 0

y

odlg:bkeydown:={|nkey| if(nkey==VK_F3,obtn:setfocus(),) }

[MGA]

Sr. Antonio,

O que eu preciso é:

Quando o usuário teclar F3 já executar ação do botão, do jeito que o senhor me falou, o usuário teria que teclar F3 e depois ENTER.

function Main()
local oDlg, oGet1, n1 := 0, OBTN
DEFINE DIALOG oDlg TITLE "Testing Gets"

@ 1, 1 GET oGet1 VAR n1 SIZE 80, 11 VALID n1>=0
@ 3, 11 BUTTON OBTN PROMPT "F3-OK" ACTION (MSGINFO("TECLANDO F3 NAO VALIDA O GET"))

odlg:bkeydown:={|nkey| if(nkey==VK_F3,(obtn:setfocus(),obtn:click()),) }

ACTIVATE DIALOG oDlg CENTERED
return nil

[Antonio Linares]

Prueba asi:

odlg:bkeydown:={|nkey| if(nkey==VK_F3 .and. oGet1:lValid(), obtn:click(),) }

[MGA]

Sr. Antonio,

odlg:bkeydown:={|nkey| if(nkey==VK_F3 .and. oGet1:lValid(), obtn:click(),) }

Assim funciona

[Antonio Linares]

bien!