Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
10 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 10 Visitantes

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Como preencher campos vazios

9/2/2017, 11:55 por Linghston

Pessoal boa tarde,

É o seguinte, eu preciso preencher os campos de uma coluna da tabela DBF que …

Comentários: 2

Enviar msg para WhatsAPP via VFP

7/2/2017, 10:31 por Eliana

Olá Pessoal!

Alguém sabe se é possível enviar mensagem para o WhatsAPP via VFP?


Grata


Comentários: 0

Tudo dá errado

3/2/2017, 16:50 por Douglas Pascini

Troquei de maquina, achei que seria uma boa, [Você precisa estar registrado e conectado para ver esta imagem.]  pois passei para uma maquina melhor.

Instalei o …

Comentários: 1

URGENTE - Instalação do aplicativo

24/1/2017, 08:51 por Douglas Pascini

Bom dia. Estou com um problema, ao fazer a instalação (colocar os arquivo) do aplicativo na …

Comentários: 0

USAR REPORT FORM

30/12/2016, 09:06 por AJC

Pessoal bom dia,
Estou com um grande problema, já pesquisei muita coisa sobre report form, mas o …

Comentários: 3

Estatísticas
Temos 7022 usuários registrados
O último usuário registrado atende pelo nome de Cicero Reis

Os nossos membros postaram um total de 21 mensagens em 12 assuntos

Busca Clicando na Grid

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Resolvido Busca Clicando na Grid

Mensagem por renatojunior2009 em 31/7/2012, 14:26

Boa tarde Galera,

A situação é a seguinte, tenho um form e nele possuo alguns campos tais como Nome , Endereco, Cidade , CEP, Telefone entre outros e nesse mesmo form possuo um botão que será utilizado para realizar as pesquisas, no form de pesquisa possuo uma GRID e um EditBox , essa GRID contem duas colunas Nome,Telefone , como fazer para que ao clicar em determinado Nome na GRID o formulário de trás preenche os campos de acordo com o que foi clicado ? , O EditBox uso apenas para posicionar de uma forma mais rápida em cima do cliente que quero, o foco é como fazer para que ao clicar no nome na grid no formulário carregue todos os dados do mesmo.

Conto com a colaboração de todos vocês

Abraços

Renato

renatojunior2009
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: Busca Clicando na Grid

Mensagem por Marcos Guedes em 31/7/2012, 14:42

Você deseja trocar dados entre formulários, é isto?
Temos alguns exemplos no fórum.

Dá uma olhada, por favor.

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Resolvido Re: Busca Clicando na Grid

Mensagem por renatojunior2009 em 31/7/2012, 15:02

[Você precisa estar registrado e conectado para ver este link.] escreveu:Você deseja trocar dados entre formulários, é isto?
Temos alguns exemplos no fórum.

Dá uma olhada, por favor.

Não seria troca de informações Marcos, quero que ao clicar em determinado nome na grid , carregue as informações desse nome como endereço,bairro,telefone no form , deu pra entender ?


renatojunior2009
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: Busca Clicando na Grid

Mensagem por Julio em 31/7/2012, 17:14

Renato, veja se isto lhe ajuda?
O codigo abaixo deve ser colocado do metodo KeyPress da Grid.
Aqui estou utilizando pageframe para mostrar os dados e na page 2 faço a pesquisa e mostro voltando para page1.

Código:
LPARAMETERS nKeyCode, nShiftAltCtrl

IF nkeycode = 13 .or. nkeycode =  9 
  Thisform.pg.pg1.txtclientes.Value = clientes.codclientes
  Thisform.pg.pg1.txtUsuario.Value = clientes.usuario
  Thisform.pg.pg1.txtApelido.Value = clientes.apelido
  Thisform.pg.pg1.txtNomepessoa.Value = clientes.nomepessoa
  Thisform.pg.pg1.txtEndereco.Value = clientes.endereco
  Thisform.pg.pg1.txtNro.Value = clientes.nro
  Thisform.pg.pg1.txtBairro.Value = clientes.bairro


  *!* Ativo a page 1
  THISFORM.Pg.activepage = 1
 
ENDIF

ou pode colocar no metodo DblClick da grid assim:
Código:
  Thisform.pg.pg1.txtclientes.Value = clientes.codclientes
  Thisform.pg.pg1.txtUsuario.Value = clientes.usuario
  Thisform.pg.pg1.txtApelido.Value = clientes.apelido
  Thisform.pg.pg1.txtNomepessoa.Value = clientes.nomepessoa
  Thisform.pg.pg1.txtEndereco.Value = clientes.endereco
  Thisform.pg.pg1.txtNro.Value = clientes.nro
  Thisform.pg.pg1.txtBairro.Value = clientes.bairro


  *!* Ativo a page 1
  THISFORM.Pg.activepage = 1

Julio
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Busca Clicando na Grid

Mensagem por renatojunior2009 em 31/7/2012, 17:48

[Você precisa estar registrado e conectado para ver este link.] escreveu:Renato, veja se isto lhe ajuda?
O codigo abaixo deve ser colocado do metodo KeyPress da Grid.
Aqui estou utilizando pageframe para mostrar os dados e na page 2 faço a pesquisa e mostro voltando para page1.

Código:
LPARAMETERS nKeyCode, nShiftAltCtrl

IF nkeycode = 13 .or. nkeycode =  9 
  Thisform.pg.pg1.txtclientes.Value = clientes.codclientes
  Thisform.pg.pg1.txtUsuario.Value = clientes.usuario
  Thisform.pg.pg1.txtApelido.Value = clientes.apelido
  Thisform.pg.pg1.txtNomepessoa.Value = clientes.nomepessoa
  Thisform.pg.pg1.txtEndereco.Value = clientes.endereco
  Thisform.pg.pg1.txtNro.Value = clientes.nro
  Thisform.pg.pg1.txtBairro.Value = clientes.bairro


  *!* Ativo a page 1
  THISFORM.Pg.activepage = 1
 
ENDIF

ou pode colocar no metodo DblClick da grid assim:
Código:
  Thisform.pg.pg1.txtclientes.Value = clientes.codclientes
  Thisform.pg.pg1.txtUsuario.Value = clientes.usuario
  Thisform.pg.pg1.txtApelido.Value = clientes.apelido
  Thisform.pg.pg1.txtNomepessoa.Value = clientes.nomepessoa
  Thisform.pg.pg1.txtEndereco.Value = clientes.endereco
  Thisform.pg.pg1.txtNro.Value = clientes.nro
  Thisform.pg.pg1.txtBairro.Value = clientes.bairro


  *!* Ativo a page 1
  THISFORM.Pg.activepage = 1

Ajudou bastante Julio, mas no meu caso faço a pesquisa em um outro form , como faria para recuperar as informações e leva-las novamente para o form principal ?

Desde já agradeço

renatojunior2009
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: Busca Clicando na Grid

Mensagem por lardecristo em 1/8/2012, 01:39

Renato eu faço da seguinte forma.
No Formulário de busca eu crio uma propriedade, sendo essa a que vai receber o objeto para o direcionamento dos dados citados acima.
Abaixo colocarei o código.

Usarei os seguintes nomes para o form´s.
Cliente - aonde contém os dados a serem preenchidos.
Localizar - o que será usado para fazer a busca.

No click do botão do form Cliente
DO FORM Localizar WITH THISFORM
Explicação: Na linha acima eu passo o form Cliente que vai ter os dados manipulados pelo form Localizar

No Init do form Localizar
PARAMETERS loForm as Form && Aqui é a variável que vai receber o form Cliente
THIS.loForm = loForm && Aqui eu coloca na propriedade que foi criada no form localizar o form Cliente, faço isso para poder manipular os objetos, isto tu verás a frente.

Obs.: Sei que você vai achar estranho o que fiz acima, mas é que a variável que é criado no Parameters o escopo dele é local do Init.

No DblClick do Grid.
THISFORM.loForm.txtNome.Value = curBusca.Nome
THISFORM.loForm.txtEndereco.Value = curBusca.Endereco
Explicação: Aqui eu manipula os dados.

Eu faço desta forma, porque evito de ter que criar variáveis publicas, aqui a propriedade é publica do form localizar e assim me permitindo manipular os objetos do form Cliente.

Qualquer dúvida posta ai.

Abraços.

lardecristo
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Busca Clicando na Grid

Mensagem por Julio em 1/8/2012, 09:42

Renato

No form principal coloque um botão e no click do botão este codigo:
Código:


STORE SPACE(10) TO vcodigo

Do Form PESQUISA with vcodigo

  select especies
  SET ORDER TO cod_alf 
  seek ALLTRIM(vcodigo)
  if found()
   Thisform.txtCodesp.Value    = especies.codigo
   Thisform.txtEspecie.Value    = especies.vulgar
   Thisform.txtNomeCienti.Value = especies.cientifi
   Thisform.txtNomevulgar.Value = especies.vulgar
  ENDIF
ENDIF

Segue um exemplo; no form principal tem um botao com uma lupa clique nele e outro form sera aberto, neste novo form pesquise, e depois da escolha clique no botão retornar. Ai é so ajustar para o que voce precisa.

Clique aqui para baixar o exemplo

Julio
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Busca Clicando na Grid

Mensagem por renatojunior2009 em 1/8/2012, 14:06

Obrigado a todos vocês...ajudou bastante.

Abraços.

renatojunior2009
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: Busca Clicando na Grid

Mensagem por lardecristo em 1/8/2012, 14:20

Bom saber que ajudamos, mas por favor coloque a tua solução para ficar como base aqui.

Abraços.

lardecristo
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Busca Clicando na Grid

Mensagem por Julio em 2/8/2012, 09:11

Legal que ajudamos, mas concordo com lardecristo, poste sua solução; assim fica mais uma dica e exemplo para futuras pesquisas, que possam surgir para outros membros.

Julio
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Busca Clicando na Grid

Mensagem por renatojunior2009 em 3/8/2012, 15:33

Solução:

Como ja tinha minha tabela selecionada no form principal
Apenas codifiquei no evento click do form de pesquisa para que ao clicar em algum cliente da grid que desejo o mesmo de um Refresh() em todo no Form principal , carregando assim todas os valores.

Obrigado a todos pela colaboração mais uma vez

Abraços

Renato

renatojunior2009
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum