Pesquisa Com SEEK

[Rosangelo]

Preciso de ajuda, não estou conseguindo fazer uma pesquisa com tres dados ao mesmo tempo
exemplo, tenho um programa que precisa pesquisar, Matricula do fornecedor, NF e a SF, se a pesquisa for encontrada
traz os dados para tela, caso não tenha encontrado nota no banco mensagem na detal NF nao encontrada
exemplo

Código: Selecionar todos

MATRICU	= 0
NF     	= 0
SERNF	=0
@ 06,05 SAY "FORNECEDOR.:"    	  GET MATRICU	 PICTURE "9999999" 
@ 06,31 SAY "NUMERO NF.:"     	  GET NF         PICTURE "999999"
@ 06,55 SAY "SERIE.:" 	      	  GET SERNF      PICTURE "99"
READ

SELECT ENTEST1
SEEK (MATRICU,NF,SERNF )
  IF FOUND()
    @ 09,18 SAY DATANF 
    @ 09,46 SAY DATAENT  
    @ 13,05 SAY CODIGO
    @ 13,25 SAY UNIDADES
    @ 13,45 SAY VALORUNI
    @ 17,57 SAY VALTOTAL
    @ 18,11 SAY OBSERV
    ELSE 
     ALERT ("NOTA FISCAL NAO ENCOTRADA")
   LOOP
 ENDIF

[Vander]

Olá Rosangelo;

Como você esta criando os indices ?

Vander

[alaminojunior]

SEEK (MATRICU,NF,SERNF )
IF FOUND()

Pois é !

1º passo é indexar usando os três campos em questão:

Código: Selecionar todos

index on matricu+nf+sernf to arquivo

Assumindo que os três campos são de tipos iguais.

Daí sim, emitir o Seek, que aliás pode ser usado a maneira funcional que já devolve o resultado:

Código: Selecionar todos

if !dbseek(matricu+nf+sernf)
   alert("não achei")
...
...

[alxsts]

Olá Rosangelo, seja bem-vindo ao Fórum!

index on matricu+nf+sernf to arquivo

Analisando o código postado, percebe-se, pelas Pictures dos Gets, que os 3 campos são numéricos. Assim, se os campos do DBF também forem numéricos, o índice deve ser:

Código: Selecionar todos

index on Str( matricu, 7 ) + Str( nf, 6 ) + Str( sernf, 2 ) to arquivo

Após a criação deste índice, será possível faser o SEEK ou DbSeek() mostrado pelo Alamino, fazendo-se as conversões:

Código: Selecionar todos

If ! DbSeek( Str( matricu, 7 ) + Str( nf, 6 ) + Str( sernf, 2 )
   alert("não achei")
Endif

Achei estranho o campo serie da NF ser numérico. Geralmente é alfanumérico. Ex: "U ", "B1 ", etc...

[Rosangelo]

ok muito obrigado
entedi, fiz desta maneira "index on matricu+nf+sernf to arquivo" e deu certo, porque os tres campos são numericos certo,
e quando o um campo é Character dai como faço, pois normalmente o campo da serie da NF é 1S, F,G,1E??????????

[Maligno]

fiz desta maneira "index on matricu+nf+sernf to arquivo" e deu certo, porque os tres campos são numericos

Se os campos são numéricos e você fez desse jeito, com toda certeza está errado. Os números se somam e deixam de representar as informações.

Aliás, NF, série e matrícula são dados que deveriam ser sempre char. Qualquer dado que não necessite de cálculo (incluindo números de ID em seqüência) sempre deveria ser char. Isso facilita muito em várias situações. Inclusive na composição de chaves de índice. Se esses dados fossem char aí sim, sua chave estaria certa.

[Rosangelo]

) Então fiz da maneira que sugeriu, matricula, nf e serie do tipo char,
Porem não me satisfaz, pois eu tenho um código que utilizando o dbbuttom gera um matricula automática, somando na ultima gravada no banco +1. Por isso minha matricula e do tipo numérico, e nf também pois posso precisar selecionar (tipo relatório) das NF de Uma numeração ate Outra etc, o único campo Char seria a serie, preciso de um índice que pesquise Matric, NF , do tipo numeric, e serie do tipo char, isso e possivel???? Preciso de um exemplo

Ex:
Matric = 0
NF = 0
Serie = Space(2)

Seek Matric,NF,Serie
If found ()
? “mostra os dados na tela “
else
? “NF não encontrada”

[Maligno]

Eu também às vezes preciso de um número em seqüência. Ainda assim, mantenho tudo char e faço a conversão/conta quando necessário. Exemplo:

NF := StrZero(Val(NF)+1,6)

Prefiro isso (faço só de vez em quando) do que fazer a conversão de tipos dentro da chave de índice, o que consome muito tempo de processamento. É a regra de ouro: "Dos males, o menor".

[alaminojunior]

Veja o que lhe dá menos trabalho e dor de cabeça futura: converter os campos no dbf, ou então faça como sugeriu o Alex: converta na indexação e no seek.