Clipper On Line • Ver Tópico - TECLA ESC PARA DE FUNCIONAR OS VALID

TECLA ESC PARA DE FUNCIONAR OS VALID

Projeto HwGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

 

TECLA ESC PARA DE FUNCIONAR OS VALID

Mensagempor Fernando queiroz » 17 Set 2019 11:59

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 :'( :'( :'(
HARBOUR 3.2, HWGUI 2.23 B3, SEFAZCLASS, PDFClass, ADO + MariaDB/MySQL, RMChart
Fernando queiroz
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 737
Data de registro: 12 Nov 2014 23:41
Cidade/Estado: Porto Alegre/RS
Curtiu: 12 vezes
Mens.Curtidas: 58 vezes

TECLA ESC PARA DE FUNCIONAR OS VALID

Mensagempor Itamar M. Lins Jr. » 17 Set 2019 14:38

Ola!
O :SETFOCUS() é seu amigo!

Saudações,
Itamar M. Lins Jr.
Avatar de usuário

Itamar M. Lins Jr.
Colaborador

Colaborador
 
Mensagens: 6927
Data de registro: 30 Mai 2007 11:31
Cidade/Estado: Ilheus Bahia
Curtiu: 309 vezes
Mens.Curtidas: 503 vezes

TECLA ESC PARA DE FUNCIONAR OS VALID

Mensagempor Fernando queiroz » 17 Set 2019 14:54

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
HARBOUR 3.2, HWGUI 2.23 B3, SEFAZCLASS, PDFClass, ADO + MariaDB/MySQL, RMChart
Fernando queiroz
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 737
Data de registro: 12 Nov 2014 23:41
Cidade/Estado: Porto Alegre/RS
Curtiu: 12 vezes
Mens.Curtidas: 58 vezes

TECLA ESC PARA DE FUNCIONAR OS VALID

Mensagempor Itamar M. Lins Jr. » 17 Set 2019 16:09

Ola!
Como está o ultimo get da dialog ?
A dica é colocar um fantasma.
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.
Avatar de usuário

Itamar M. Lins Jr.
Colaborador

Colaborador
 
Mensagens: 6927
Data de registro: 30 Mai 2007 11:31
Cidade/Estado: Ilheus Bahia
Curtiu: 309 vezes
Mens.Curtidas: 503 vezes

TECLA ESC PARA DE FUNCIONAR OS VALID

Mensagempor Itamar M. Lins Jr. » 17 Set 2019 16:12

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.
Avatar de usuário

Itamar M. Lins Jr.
Colaborador

Colaborador
 
Mensagens: 6927
Data de registro: 30 Mai 2007 11:31
Cidade/Estado: Ilheus Bahia
Curtiu: 309 vezes
Mens.Curtidas: 503 vezes

TECLA ESC PARA DE FUNCIONAR OS VALID

Mensagempor Itamar M. Lins Jr. » 17 Set 2019 16:16

Ola!
E o VALID assim como no clipper tem que retornar .f. ou .t.
... valid {|| fA(),fB(),f...,.t. ou .f.}

Saudações,
Itamar M. Lins Jr.
Avatar de usuário

Itamar M. Lins Jr.
Colaborador

Colaborador
 
Mensagens: 6927
Data de registro: 30 Mai 2007 11:31
Cidade/Estado: Ilheus Bahia
Curtiu: 309 vezes
Mens.Curtidas: 503 vezes

TECLA ESC PARA DE FUNCIONAR OS VALID

Mensagempor Fernando queiroz » 17 Set 2019 18:49

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
HARBOUR 3.2, HWGUI 2.23 B3, SEFAZCLASS, PDFClass, ADO + MariaDB/MySQL, RMChart
Fernando queiroz
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 737
Data de registro: 12 Nov 2014 23:41
Cidade/Estado: Porto Alegre/RS
Curtiu: 12 vezes
Mens.Curtidas: 58 vezes

TECLA ESC PARA DE FUNCIONAR OS VALID

Mensagempor Itamar M. Lins Jr. » 17 Set 2019 19:50

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.
Avatar de usuário

Itamar M. Lins Jr.
Colaborador

Colaborador
 
Mensagens: 6927
Data de registro: 30 Mai 2007 11:31
Cidade/Estado: Ilheus Bahia
Curtiu: 309 vezes
Mens.Curtidas: 503 vezes

TECLA ESC PARA DE FUNCIONAR OS VALID

Mensagempor Itamar M. Lins Jr. » 17 Set 2019 20:07

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.
Avatar de usuário

Itamar M. Lins Jr.
Colaborador

Colaborador
 
Mensagens: 6927
Data de registro: 30 Mai 2007 11:31
Cidade/Estado: Ilheus Bahia
Curtiu: 309 vezes
Mens.Curtidas: 503 vezes

TECLA ESC PARA DE FUNCIONAR OS VALID

Mensagempor Fernando queiroz » 17 Set 2019 20:11

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
HARBOUR 3.2, HWGUI 2.23 B3, SEFAZCLASS, PDFClass, ADO + MariaDB/MySQL, RMChart
Fernando queiroz
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 737
Data de registro: 12 Nov 2014 23:41
Cidade/Estado: Porto Alegre/RS
Curtiu: 12 vezes
Mens.Curtidas: 58 vezes




Retornar para HwGui

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 2 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro