TECLA ESC PARA DE FUNCIONAR OS VALID

[Fernando queiroz]

Tenho uma tela de venda e esta acontecendo o seguinte problema:
Entro normal e digito tudo normal, passando pelo VALID de cada GET sem problemas, até que
se pressionar o ESC para tudo de funcionar.

Código: Selecionar todos

SET KEY 0,VK_F2 TO {|| IF(MEMVAR->w_vNF > 0.00 ,PAGAMENTO_GRAFICO(  ), FormVendas:Close() ) } 

  INIT DIALOG oDlg TITLE "Nota de Pedido"    AT 0, 0 SIZE 1008,600 CLIPPER NOEXIT NOEXITESC ;
		STYLE WS_POPUP+WS_CAPTION+DS_CENTER+DS_ABSALIGN
    FormVendas := oDlg

já testei com NOEXIT, NOESCEXIT e com os dois juntos e nada.

se clicar nos BOTOES funciona mas se usar as teclas nada acontece :'( :'( :'(

[Itamar M. Lins Jr.]

Ola!
O :SETFOCUS() é seu amigo!

Saudações,
Itamar M. Lins Jr.

[Fernando queiroz]

Ola!
O :SETFOCUS() é seu amigo!

Saudações,
Itamar M. Lins Jr.

Na realidade o SETFOCUS() não resolve, os VALID() da tela toda param de funcionar se você teclar ESC.

entre em uma tela onde tenham criticas dos campos com valid, a tela não sai com ESC , mas se for teclado ESC todos os valids da tela
param de funcionar.
Acho que é uma falha na GETSYS quando esta ativa a opção NOESCEXIT , ate não sai da tela com ESC mas os VALID param de funcionar

[Itamar M. Lins Jr.]

Ola!
Como está o ultimo get da dialog ?
A dica é colocar um fantasma.

Código: Selecionar todos

LOCAL cPhantom:=""
@ x,y get oPhantom var cPhantom size 0,0 

Ps. Quem me passou essa dica foi o Kresin

Saudações,
Itamar M. Lins Jr.

[Itamar M. Lins Jr.]

Ola!
O foco fica preso entre o get e a saída da dialog.
Coloca o cPhantom ai que vai resolver.

Saudações,
Itamar M. Lins Jr.

[Itamar M. Lins Jr.]

Ola!
E o VALID assim como no clipper tem que retornar .f. ou .t.

Código: Selecionar todos

... valid {|| fA(),fB(),f...,.t. ou .f.}

Saudações,
Itamar M. Lins Jr.

[Fernando queiroz]

Vou explicar melhor:

eu tenho uma tela de venda e não quero que ela saia se teclar ESC , para não sair eu uso o NOESCEXIT,
que desativa a saída do Dialog via ESC, só que na tela tem campos com VALID, se por um acaso do destino o cliente teclar ESC as
validações de todos os campos param de funcionar, ele ate pula de um campo para o outro na sequencia da tela , mas não tem mais nenhuma validação.

o que você comentou do Phantom eu já uso para os casos de telas que eu quero fazer a critica no ultimo campo da tela, só que em
telas com NOESCEXIT todas a criticas de campos param de funcionar.
:'( :'( :'(

https://youtu.be/S130jLcBjWw Video com o que esta acontecendo

[Itamar M. Lins Jr.]

Ola!
Caiu a ficha!
Pq vc não fez um simples dialog com o problema ? Vou criar um pequeno aqui pra ver o resultado.

Saudações,
Itamar M. Lins Jr.

[Itamar M. Lins Jr.]

Ola!
Aqui o problema isolado.

Código: Selecionar todos

#include 'hwgui.ch'

Function Main

Local oDlg, cA:= space(5), cB:=Space(5)

INIT Dialog oDlg AT 0,0 SIZE 350,220 CLIPPER NOEXIT NOEXITESC 

   @ 010,010 say "XYZ:" SIZE 65,15
   @ 010,030 get oA VAR cA SIZE 100,30 valid {|| hwg_msginfo('ok'),.t.}

   @ 010,090 say "ABC:" SIZE 65,15
   @ 010,110 get oB VAR cB SIZE 100,30 

   @ 010,160 SAY "Key ESC disable valid and gets !" size 270,20

ACTIVATE Dialog oDlg center

Return Nil

Mandando para ele ver o bug e se ele corrige.

Saudações,
Itamar M. Lins Jr.

[Fernando queiroz]

Ola!
Aqui o problema isolado.

Código: Selecionar todos

#include 'hwgui.ch'

Function Main

Local oDlg, cA:= space(5), cB:=Space(5)

INIT Dialog oDlg AT 0,0 SIZE 350,220 CLIPPER NOEXIT NOEXITESC 

   @ 010,010 say "XYZ:" SIZE 65,15
   @ 010,030 get oA VAR cA SIZE 100,30 valid {|| hwg_msginfo('ok'),.t.}

   @ 010,090 say "ABC:" SIZE 65,15
   @ 010,110 get oB VAR cB SIZE 100,30 

   @ 010,160 SAY "Key ESC disable valid and gets !" size 270,20

ACTIVATE Dialog oDlg center

Return Nil

Mandando para ele ver o bug e se ele corrige.

Saudações,
Itamar M. Lins Jr.

:-Y :-Y :-Y :-Y :-Y É isso mesmo, ia mandar mas já que você mandou vou aguardar a solução