Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
12 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 12 Visitantes :: 2 Motores de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Últimos assuntos
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

Impressora Ticket

15/11/2016, 09:20 por clima238

Bom dia,
Por favor alguém me explique porque o código abaixo imprime no ecrã em vez do printer: …

Comentários: 2

Visite meu canal no Youtube

20/1/2017, 00:45 por ImRicoh

VFP Unlimited


Comentários: 0

Bloquear edição do ListBox

17/6/2010, 15:13 por Julio

Pessoal

Boa Tarde!

Tnho uma listbox apenas para exibir o resultado.
Preciso bloquear a listbox …

Comentários: 17

automação do mozilla e chrome

15/1/2017, 12:16 por Handerson Mildroz

Boa tarde a todos!

Sou iniciante no VFP. Preciso de ajuda, pois tenho um código que usa o …

Comentários: 0

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

Os nossos membros postaram um total de 9 mensagens em 3 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

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

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

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

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