Indice de Busca por CODIGO/DESCRICAO

[Marcio Zoccal]

Srs.,

Alguem aki poderia me indicar onde posso encontrar um exemplo onde numa consulta de um determinado produto, no mesmo get eu tenha dois tipos de consulta (1) por codigo (2) por descrição ?

No aguardo e agradeço desde já.


Atc.,

Márcio Zoccal
B.do Garças-Mt

[Pablo César]

Seja bem vindo ao fórum.

Assim de cabeça não lembro haver algum exemplo dessa forma que você está solicitando.
A janela contendo os produtos, ora seja por código ou por descrição, você quer que apareça SEMPRE ou que seja mostrada apenas quando o usuário solicitar ?

Se você ja tem uma tabela de produtos ja com os dois índices (codigo produto e descrição produto). A minha indicação seria você fazer através de um TBROWSE mostrando ambas colunas e fazer a pesquisa conforme o númeor da coluna em que o cursor estiver posicionado. Daí irá mostrar o GET com o picture conforme a pesquisa seja por codigo produto ou descrição produto.

[Alcir]

Srs.,

Alguem aki poderia me indicar onde posso encontrar um exemplo

Ele Pediu um Exemplo.

Marcio, de uma olhada no site do Sr. Toledo www.pctoledo.com.br, la tem varias funcões ja prontas é so baixar.

Abraços

[ANDRIL]

Se não achou nada ainda, tenta este esquema aqui. Não testei.

Código: Selecionar todos

//--abre seu banco de produtos, cria os indices por descricao e codigo
use produtos exclusive
index on descricao to proddes
index on codigo    to prodcod
set index to proddes, prodcod

procura=space(25)
@00,00 say"Descrição/Codigo:" get procura pict"@!" valid achaproduto()=.t.
read


Function achaproduto
var=readvar()
conteudo=&var
if isDigit(conteudo)=.t.
    set orde to 2
    go top    
    seek val(conteudo)

elseif empty(conteudo)=.t. 
//comente a linha acima p nao permitir sair do 
//get ao deixar o campo em branco

else
    set orde to 1
    go top    
    seek rtrim(conteudo)
endif

if found()
    return .t.
else
    return .f.
endif

Ate+,