seek-urgente

[conde]

ola amigos!!!
estou usando o comando seek no programa abaixo , mas quando entro com a obra existente no banco ele acha ou nao corretamente , porem quando entro com um numero de fatura errado , que nao corresponde aquela obra, ele imprime assim mesmo , ou seja imprime os dados de uma nota em outra, alguem poderia me ajudar

\\ banco que contem os dados cadastrais DBSELECTAREA("CAD1")
@ 23,06 SAY "OBRA:" GET V_OBRA PICT "100.999"
READ
//CASO PRESSIONAR ESC
IF LASTKEY()=27
CLEAR
RETURN
ENDIF
SEEK V_obra
IF !FOUND()
ALERT("OBRA NAO ENCONTRADA ! ")
LOOP
CLEAR
EXIT
endif
\\ banco que contem as faturas DBSELECTAREA("CAD2")
@ 23,50 SAY "NUMERO DA FATURA " GET V_NUMERO PICT "999999"
READ
SEEK V_NUMERO
IF !FOUND()
ALERT (" FATURA NAO ENCONTRADA !" )
LOOP
CLEAR
EXIT
@ 22,53 SAY " "
ENDIF
SET PRINTER ON

[luizgh]

Ola amigo

Talves o arquivo selecionado esteja indexado por mais de um campo, se for este o caso, selecionde o nome do arquivo de indice corresponte aquele campo.

Luiz

[conde]

ok
vou tentar
muito grato
conde

[Clipper]

Prezado Colega

O que parece estar acontencendo é que o SOFTSEEK está ON tente fazer a busca da seguinte maneira :

Código: Selecionar todos

DBSEEK(V_NUMERO, .F.)
IF EOF()
    ALERT("Fatura nao encontrada, te vira !")
    LOOP
ENDIF

Obs : O DBSEEK só funciona para versão 5.2 ou superior

Até logo.

Marcelo

[conde]

ok vou tentar obrigado
conde

[Dudu_XBase]

Conde boa tarde !!
Vc possui algum banco de dados onde vc cadastra o nro da obra e o nro da fatura ?

Se existir tal banco coloque o seguinte wuile depois do seek

while obra=v_obra .and. fatura=v_numero .and. !eof()

Senaum //else

Inclua um "IF" verificando se o nro da fatura digita esta relacionada com a obra cadastrada no dbf....
Isto funcionara se no seu banco de faturas vc gravar a informação da Obra neh....