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.
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 :'( :'( :'(
TECLA ESC PARA DE FUNCIONAR OS VALID
Enviado: 17 Set 2019 14:38
por Itamar M. Lins Jr.
Ola!
O :SETFOCUS() é seu amigo!
Saudações,
Itamar M. Lins Jr.
TECLA ESC PARA DE FUNCIONAR OS VALID
Enviado: 17 Set 2019 14:54
por Fernando queiroz
Itamar M. Lins Jr. escreveu: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
TECLA ESC PARA DE FUNCIONAR OS VALID
Enviado: 17 Set 2019 16:09
por Itamar M. Lins Jr.
Ola!
Como está o ultimo get da dialog ?
A dica é colocar um fantasma.
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.
:'( :'( :'(
#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.
TECLA ESC PARA DE FUNCIONAR OS VALID
Enviado: 17 Set 2019 20:11
por Fernando queiroz
Itamar M. Lins Jr. escreveu:Ola!
Aqui o problema isolado.
#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