Clique abaixo para nos ajudar
Conectar-se

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 :: 1 Motor de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Espessura do cursor intermitente

7/3/2017, 09:08 por Jefferson Matakas

Bom dia a todos !!

Existe uma opcao no windows que pode ser acessada atraves da 'central da …

Comentários: 0

DESENVOLVIMENTO EM REDES

4/3/2017, 18:45 por AJC

Pessoal tem ou conhece livros ou material para programação em
redes usando banco de dados nativo …

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: 4

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

Estatísticas
Temos 7037 usuários registrados
O último usuário registrado atende pelo nome de GETULIO

Os nossos membros postaram um total de 31 mensagens em 17 assuntos

Erro na Pesquisa usando SET FILTER

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

Resolvido Erro na Pesquisa usando SET FILTER

Mensagem por renatojunior2009 em 3/4/2012, 15:09

Boa tarde galera,

Estou querendo pesquisar por parte da palavra, tenho uma grid e quero ao digitar a descrição do meu produto achar registros tanto no inicio, quanto no meio ou no fim...por exemplo ao digitar Renato no meu campo texto o mesmo me mostre os nomes que contenham renato no inicio no meio ou fim , estou fazendo o seguinte codigo mais nao esta dando certo , alguem pode me disser como fazer.


Obrigado.

Código:

SELECT Cliente
SET FILTER TO fnome $ This.Value
IF !FOUND()
   This.Value = ''
   ThisForm.lblmsg.Caption="Registro não encontrado"
   This.Value = ''
   RETURN .f.
ELSE
   ThisForm.lblmsg.Caption=""
ENDIF

ThisForm.Pesqcliente.Value = Cliente.fNome
avatar
renatojunior2009
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: Erro na Pesquisa usando SET FILTER

Mensagem por alceu11 em 3/4/2012, 17:31

Código:
SELECT * FROM CLIENTES WHERE UPPER(CLIENTES.nombre) LIKE '%'+ UPPER('ANTONIO')+'%' INTO CURSOR LISTA
IF _TALLY > 0
BROWSE LAST
ELSE
WAIT WINDOW 'NAO ENCONTREI' TIMEOUT 3
ENDIF
ThisForm.Pesqcliente.Value = LISTA.NOMBRE
THISFORM.PESQCLIENTE.REFRESH
USE IN LISTA
O PROBLEMA SE TIVER MAIS DE UM ANTONIO TRARAR OS NOMES COM ANTONIO
avatar
alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Erro na Pesquisa usando SET FILTER

Mensagem por Sub-Zero em 20/4/2012, 19:01

Voce pode fazer assim

*** coloque no init do Form .

Código:
thisform.atualizar_grid

*** crie um metodo atualizar_grid e coloque nele

Código:
THISFORM.GRID1.RecordSource = "CADLISTA"

IF _tally = 0
  = MESSAGEBOX("Não Existe Informações ",48,"Aviso")
thisform.grid1.column1.header1.Caption = "Codigo"
thisform.grid1.column1.Fontsize = 8
thisform.grid1.column1.header1.Fontsize = 8
thisform.grid1.column1.Text1.Value  = "" 
thisform.grid1.column1.width = 46

thisform.grid1.column2.header1.Caption = "Nome"
thisform.grid1.column2.Fontsize = 8
thisform.grid1.column2.header1.Fontsize = 8
thisform.grid1.column2.Text1.Value  = "" 
thisform.grid1.column2.width = 200       

ELSE

thisform.grid1.column1.header1.Caption = "Codigo"
thisform.grid1.column1.Fontsize = 8
thisform.grid1.column1.header1.Fontsize = 8
thisform.grid1.column1.Text1.Value  = "cadlista.clie_cod" 
thisform.grid1.column1.width = 46

thisform.grid1.column2.header1.Caption = "Nome"
thisform.grid1.column2.Fontsize = 8
thisform.grid1.column2.header1.Fontsize = 8
thisform.grid1.column2.Text1.Value  = "cadlista.clie_nom" 
thisform.grid1.column2.width = 200

ENDIF

*** No interactivechange do Text1 coloque

Código:
lcPesq =  '%'+ ALLTRIM(thisform.text1.Value) + '%'
SELECT clie_cod, clie_nom FROM CADCLIE ;
WHERE CLIE_NOM LIKE lcPesq ;
INTO CURSOR cadlista
THISFORM.Atualizar_grid


AGORA SÓ RODAR
FICOU UMA PESQUISA MULTICAMPOS COM INCREMENTAL

SE QUISER COLOCAR OUTROS CAMPOS FICA FACIM

Código:
WHERE CLIE_COD LIKE lcPesq  AND CLIE_NOM LIKE lcPesq AND CLIE_ENDE LIKE lcPesq ;


Sub-Zero
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Erro na Pesquisa usando SET FILTER

Mensagem por renatojunior2009 em 21/4/2012, 13:34

Obrigado a todos tem me ajudado muito !

Abraços
avatar
renatojunior2009
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: Erro na Pesquisa usando SET FILTER

Mensagem por Marcos Guedes em 23/4/2012, 14:04

Resolveu?

_________________
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: Erro na Pesquisa usando SET FILTER

Mensagem por renatojunior2009 em 27/4/2012, 11:40

Resolveu
avatar
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