Clipper On Line • Ver Tópico - SetFocus em Loop

SetFocus em Loop

Projeto MiniGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

Postar uma resposta
 

SetFocus em Loop

Mensagempor rubens » 14 Jul 2014 11:08

Olá bom dia...

Estou com um problema com o setfocus...
Tenho um fechamento de venda que quando clica no botao gravar faz uma verificação nos dados do cliente, caso seja vazio mostra uma mensagem de erro e deveria focar o nome do campo vazio. Só que quando clica no ok do msgexclamation ele volta para o msgexclamation novamente, como se tivesse pressionado enter no campo vazio.

Essa é a tela do fechamento.
Erro loop2.png


Esse é o código que faz a verificação quando pressiona o botão gravarvenda, daí ele verifica se o campo tá vazio, se tiver mostra a mensagem e vai para o campo através do setfocus. Mas aí entra em loop, como se tivesse ido para o campo vazio, pressionado enter e feito a verificação novamente. Para fechar o programa só pressionando ctrl+alt+del. 

*-------------------------------------------------------------------------------
STATIC FUNCTION VERVAZIO()

IF FORM_FECHA_VENDA.TBOX_NOME_CLIENTE.VALUE=''
   MSGEXCLAMATION( 'E OBRIGATORIO O PREENCHIMENTO DO NOME !!!','ERRO')
   FORM_FECHA_VENDA.TBOX_NOME_CLIENTE.SETFOCUS
ELSEIF FORM_FECHA_VENDA.TBOX_ENDERECO.VALUE=''
   MSGEXCLAMATION( 'E OBRIGATORIO O PREENCHIMENTO DO ENDERECO !!!','ERRO')
   FORM_FECHA_VENDA.TBOX_ENDERECO.SETFOCUS
ELSEIF FORM_FECHA_VENDA.TBOX_NUMERO.VALUE=''
   MSGEXCLAMATION( 'E OBRIGATORIO O PREENCHIMENTO DO NUMERO !!!','ERRO')
   FORM_FECHA_VENDA.TBOX_NUMERO.SETFOCUS
ELSEIF FORM_FECHA_VENDA.TBOX_BAIRRO.VALUE=''
   MSGEXCLAMATION( 'E OBRIGATORIO O PREENCHIMENTO DO BAIRRO !!!','ERRO')
   FORM_FECHA_VENDA.TBOX_BAIRRO.SETFOCUS
ELSEIF FORM_FECHA_VENDA.TBOX_CIDADE.VALUE=''
   MSGEXCLAMATION( 'E OBRIGATORIO O PREENCHIMENTO DA CIDADE !!!','ERRO')
   FORM_FECHA_VENDA.TBOX_CIDADE.SETFOCUS
ELSEIF FORM_FECHA_VENDA.TBOX_CEP.VALUE=''
   MSGEXCLAMATION( 'E OBRIGATORIO O PREENCHIMENTO DO CEP !!!','ERRO')
   FORM_FECHA_VENDA.TBOX_CEP.SETFOCUS
ELSEIF FORM_FECHA_VENDA.TBOX_UF.VALUE=''
   MSGEXCLAMATION( 'E OBRIGATORIO O PREENCHIMENTO DO UF !!!','ERRO')
   FORM_FECHA_VENDA.TBOX_UF.SETFOCUS
ENDIF 

RETURN(NIL)


Código do botão gravar. 
   @ 465,620 BUTTONEX BTN_GRAVAR;
           CAPTION '&GRAVAR VENDA';
           PICTURE 'IMG_GRAVAR';
           FLAT;
           WIDTH 250;
           HEIGHT 50;
           FONT 'VERDANA';
           SIZE 16;
           FONTCOLOR BLUE;
           BOLD;
           BACKCOLOR {255,255,255};
           ACTION GRAVA_VENDA();
           ON GOTFOCUS VERVAZIO()

Se alguém souber como resolver ou sugerir algom agradeço...

Obrigado
Rubens
"Eu e minha casa servimos ao Senhor e você ???"
Avatar de usuário

rubens
Colaborador

Colaborador
 
Mensagens: 1518
Data de registro: 16 Ago 2003 09:05
Cidade/Estado: Nova Xavantina - MT
Curtiu: 77 vezes
Mens.Curtidas: 104 vezes
Voltar ao topo

SetFocus em Loop

Mensagempor luiz antonio da silva » 14 Jul 2014 12:16

Olá !

Tente tirar o "ON GOTFOCUS" do botão BTN_GRAVAR, o que entendi foi, "quando clicar executa e quando receber o foco executa também.."

espero que ajude.

Luiz.
HMG 3.4.4 - SQL SERVER - ORACLE
luiz antonio da silva
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 161
Data de registro: 21 Nov 2006 21:12
Cidade/Estado: serrana-sp
Curtiu: 13 vezes
Mens.Curtidas: 10 vezes
Voltar ao topo

SetFocus em Loop

Mensagempor rubens » 14 Jul 2014 15:04

Luiz são duas ações diferentes eu acho... No On GotFocus vervazio(), quando o botão recebe o foco ele faz a verificação dos campos e quando existe uma ação no botão ele teria que executar a função grava_venda(), duas funções distintas e mesmo que estivesse executando duas vezes a rotina não ficaria em loop, me corrijam se eu estiver errado.
Bom de qualquer forma o comando FORM_FECHA_VENDA.TBOX_NOME_CLIENTE.SETFOCUS não está executando a ação desejada que é colocar o foco no TBOX_NOME_CLIENTE. Ainda está no mesmo form, então não creio que seja direitos de acesso também. Como não sei debugar linha a linha não sei o que acontece mas achei uma forma de contornar a situação. Aproveitei a dica do Luiz e coloquei a chamada da função vervazio() no início da função grava_venda(). Usei um flag na função vervazio() que retorna verdadeiro quando os campos estão preenchidos ou falso quando está os campos estão vazios. E uma condição para dar um return caso vervazio() retorne verdadeiro.

Ficou dessa forma:
STATIC FUNCTION GRAVA_VENDA()
// SE O CPF NAO E VAZIO 
IF lTEMCPF .AND. !VERVAZIO()
   RETURN NIL
ENDIF

...
...
RETURN NIL       


e a função vervazio() ficou assim
*-------------------------------------------------------------------------------
STATIC FUNCTION VERVAZIO()
LOCAL lRETORNO := .T. 
// SE ALGUM CAMPO OBRIGATORIO ESTIVER VAZIO RETORNA FALSO
IF FORM_FECHA_VENDA.TBOX_NOME_CLIENTE.VALUE=''
   MSGEXCLAMATION( 'E OBRIGATORIO O PREENCHIMENTO DO NOME !!!','ERRO')
   FORM_FECHA_VENDA.TBOX_NOME_CLIENTE.SETFOCUS
   lRETORNO := .F. 
ELSEIF FORM_FECHA_VENDA.TBOX_ENDERECO.VALUE=''
   MSGEXCLAMATION( 'E OBRIGATORIO O PREENCHIMENTO DO ENDERECO !!!','ERRO')
   FORM_FECHA_VENDA.TBOX_ENDERECO.SETFOCUS
   lRETORNO := .F. 
ELSEIF FORM_FECHA_VENDA.TBOX_NUMERO.VALUE=''
   MSGEXCLAMATION( 'E OBRIGATORIO O PREENCHIMENTO DO NUMERO !!!','ERRO')
   FORM_FECHA_VENDA.TBOX_NUMERO.SETFOCUS
   lRETORNO := .F. 
ELSEIF FORM_FECHA_VENDA.TBOX_BAIRRO.VALUE=''
   MSGEXCLAMATION( 'E OBRIGATORIO O PREENCHIMENTO DO BAIRRO !!!','ERRO')
   FORM_FECHA_VENDA.TBOX_BAIRRO.SETFOCUS
   lRETORNO := .F. 
ELSEIF FORM_FECHA_VENDA.TBOX_CIDADE.VALUE='' 
   MSGEXCLAMATION( 'E OBRIGATORIO O PREENCHIMENTO DA CIDADE !!!','ERRO')
   FORM_FECHA_VENDA.TBOX_CIDADE.SETFOCUS
   lRETORNO := .F. 
ELSEIF FORM_FECHA_VENDA.TBOX_CEP.VALUE=''
   MSGEXCLAMATION( 'E OBRIGATORIO O PREENCHIMENTO DO CEP !!!','ERRO')
   FORM_FECHA_VENDA.TBOX_CEP.SETFOCUS
   lRETORNO := .F. 
ELSEIF FORM_FECHA_VENDA.TBOX_ESTADO.VALUE=''
   MSGEXCLAMATION( 'E OBRIGATORIO O PREENCHIMENTO DO UF !!!','ERRO')
   FORM_FECHA_VENDA.TBOX_ESTADO.SETFOCUS
   lRETORNO := .F. 
ENDIF 

RETURN lRETORNO


Bom funcionou para o que preciso mas o que me intriga é o fato de que:
o comando FORM_FECHA_VENDA.TBOX_NOME_CLIENTE.SETFOCUS deveria colocar o foco no objeto tbox;
porque houve a necessidade de um return?
Será que tem uma qtde de níveis para o FORM_FECHA_VENDA.TBOX_NOME_CLIENTE.SETFOCUS funcionar... ?
Isso me deixa preocupado. Foi necessário tencologia gambiarrechion para funcionar uma coisa que parece ser simples...
Ou eu estou com o conceito errado do negócio... Se for isso, ufa... porque estou até gostando de programar na minigui... um visual bancana e muito rápida..

Vlw..

Rubens
"Eu e minha casa servimos ao Senhor e você ???"
Avatar de usuário

rubens
Colaborador

Colaborador
 
Mensagens: 1518
Data de registro: 16 Ago 2003 09:05
Cidade/Estado: Nova Xavantina - MT
Curtiu: 77 vezes
Mens.Curtidas: 104 vezes
Voltar ao topo

SetFocus em Loop

Mensagempor Claudio Soto » 03 Ago 2014 00:48

rubens escreveu:Olá bom dia...

Estou com um problema com o setfocus...
Tenho um fechamento de venda que quando clica no botao gravar faz uma verificação nos dados do cliente, caso seja vazio mostra uma mensagem de erro e deveria focar o nome do campo vazio. Só que quando clica no ok do msgexclamation ele volta para o msgexclamation novamente, como se tivesse pressionado enter no campo vazio.

Essa é a tela do fechamento.
Erro loop2.png


Esse é o código que faz a verificação quando pressiona o botão gravarvenda, daí ele verifica se o campo tá vazio, se tiver mostra a mensagem e vai para o campo através do setfocus. Mas aí entra em loop, como se tivesse ido para o campo vazio, pressionado enter e feito a verificação novamente. Para fechar o programa só pressionando ctrl+alt+del. 

*-------------------------------------------------------------------------------
STATIC FUNCTION VERVAZIO()

IF FORM_FECHA_VENDA.TBOX_NOME_CLIENTE.VALUE=''
   MSGEXCLAMATION( 'E OBRIGATORIO O PREENCHIMENTO DO NOME !!!','ERRO')
   FORM_FECHA_VENDA.TBOX_NOME_CLIENTE.SETFOCUS
ELSEIF FORM_FECHA_VENDA.TBOX_ENDERECO.VALUE=''
   MSGEXCLAMATION( 'E OBRIGATORIO O PREENCHIMENTO DO ENDERECO !!!','ERRO')
   FORM_FECHA_VENDA.TBOX_ENDERECO.SETFOCUS
ELSEIF FORM_FECHA_VENDA.TBOX_NUMERO.VALUE=''
   MSGEXCLAMATION( 'E OBRIGATORIO O PREENCHIMENTO DO NUMERO !!!','ERRO')
   FORM_FECHA_VENDA.TBOX_NUMERO.SETFOCUS
ELSEIF FORM_FECHA_VENDA.TBOX_BAIRRO.VALUE=''
   MSGEXCLAMATION( 'E OBRIGATORIO O PREENCHIMENTO DO BAIRRO !!!','ERRO')
   FORM_FECHA_VENDA.TBOX_BAIRRO.SETFOCUS
ELSEIF FORM_FECHA_VENDA.TBOX_CIDADE.VALUE=''
   MSGEXCLAMATION( 'E OBRIGATORIO O PREENCHIMENTO DA CIDADE !!!','ERRO')
   FORM_FECHA_VENDA.TBOX_CIDADE.SETFOCUS
ELSEIF FORM_FECHA_VENDA.TBOX_CEP.VALUE=''
   MSGEXCLAMATION( 'E OBRIGATORIO O PREENCHIMENTO DO CEP !!!','ERRO')
   FORM_FECHA_VENDA.TBOX_CEP.SETFOCUS
ELSEIF FORM_FECHA_VENDA.TBOX_UF.VALUE=''
   MSGEXCLAMATION( 'E OBRIGATORIO O PREENCHIMENTO DO UF !!!','ERRO')
   FORM_FECHA_VENDA.TBOX_UF.SETFOCUS
ENDIF 

RETURN(NIL)


Código do botão gravar. 
   @ 465,620 BUTTONEX BTN_GRAVAR;
           CAPTION '&GRAVAR VENDA';
           PICTURE 'IMG_GRAVAR';
           FLAT;
           WIDTH 250;
           HEIGHT 50;
           FONT 'VERDANA';
           SIZE 16;
           FONTCOLOR BLUE;
           BOLD;
           BACKCOLOR {255,255,255};
           ACTION GRAVA_VENDA();
           ON GOTFOCUS VERVAZIO()

Se alguém souber como resolver ou sugerir algom agradeço...

Obrigado
Rubens


Hola Rubens,
tu teoría es correcta, el problema es la implementación interna en C de los MsgXXX tanto en HMG como en MiniGUI.
Normalmente se implementan así:

HB_FUNC( C_MSGEXCLAMATION )
{
MessageBox ( GetActiveWindow() , hb_parc(1), hb_parc(2), MB_ICONEXCLAMATION | MB_OK | MB_SYSTEMMODAL );
}

el problema es el primer parámetro de la función en C MessageBox, este parámetro es handle de la ventana a la que windows devuelve el foco cuando se cierra la caja de dialogo.

Como la funcion en C GetActiveWindow() retorna el handle de la ventana activa, que en tu ejemplo es el boton BTN_GRAVAR, cuando este gana el foco ejecuta la función VERVAZIO(), que le devuelve el foco boton BTN_GRAVAR, y este a su vez ejecuta nuevamente el ON GOTFOCUS VERVAZIO() entrando en un loop continuo.

La forma de solucionarlo es definir como:

HB_FUNC( C_MSGEXCLAMATION )
{
MessageBox ( NULL , hb_parc(1), hb_parc(2), MB_ICONEXCLAMATION | MB_OK | MB_SYSTEMMODAL );
}

el NULL hace que no se devuelva el foco a ninguna ventana y por lo tanto escapa del loop.

Espero no haber sido tan enredado y aburrido en la explicación. #-)
Saludos,
Claudio.
Saludos.
Dr. Claudio Soto
(Uruguay)
http://srvet.blogspot.com
Avatar de usuário

Claudio Soto
Colaborador

Colaborador
 
Mensagens: 555
Data de registro: 27 Ago 2012 12:31
Cidade/Estado: Uruguay
Curtiu: 35 vezes
Mens.Curtidas: 166 vezes
Voltar ao topo

SetFocus em Loop

Mensagempor Claudio Soto » 03 Ago 2014 01:31

En MiniGUI extended podes usar esta función:

#include "minigui.ch"
#include "i_winuser.ch"

#xtranslate Mi_MsgExclamation (<cMessage>, <cTitle>) ;
            => ;
            MessageBoxIndirect ( 0, <cMessage>, <cTitle>, MB_OK + MB_ICONEXCLAMATION + MB_SYSTEMMODAL + MB_TOPMOST )

Function Main

   Mi_MsgExclamation ("Hola", "MiniGUI")

Return Nil
Saludos.
Dr. Claudio Soto
(Uruguay)
http://srvet.blogspot.com
Avatar de usuário

Claudio Soto
Colaborador

Colaborador
 
Mensagens: 555
Data de registro: 27 Ago 2012 12:31
Cidade/Estado: Uruguay
Curtiu: 35 vezes
Mens.Curtidas: 166 vezes
Voltar ao topo

SetFocus em Loop

Mensagempor rubens » 03 Ago 2014 17:43

Muitissimo Claro, Sr. Claudio Soto...

Eu consegui "resolver/contornar" a situação validando a saída de cada textbox.
Vou estudar as suas observações e tentar fazer as modificações indicadas...

Muito obrigado.

Muchas Gracias...

Rubens
"Eu e minha casa servimos ao Senhor e você ???"
Avatar de usuário

rubens
Colaborador

Colaborador
 
Mensagens: 1518
Data de registro: 16 Ago 2003 09:05
Cidade/Estado: Nova Xavantina - MT
Curtiu: 77 vezes
Mens.Curtidas: 104 vezes
Voltar ao topo
Postar uma resposta


Retornar para MiniGui

Quem está online

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

Mudar para estilo Celular

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
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Traduzido por phpBB Brasil
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro
Conversão Sistema Clipper para Harbour - Você tem um programa desenvolvido em Clipper e quer atualizar ele para executar em versões mais recentes do Windows (7, 8, 10, etc)? Então o melhor caminho é converter seu programa Clipper para Harbour. Clique aqui para mais detalhes.