Clipper/FiveWin - PROBLEMA CON !EOF()

HOLA A TODOS LOS PROGRAMADORES:

PRESENTO EL SIGUIENTE PROBLEMA:

HAGO UNA BUSQUEDA EN UNA BASE DE DATOS DE LA SIGUIENTE MANERA:

SELECT DATAFAC
SEEK busqueda
If found()
Do while !eof() .and. factura = busqueda
…………..
instrucciones
……………
skip
Enddo
ENDIF
***************************************
ME LOCALIZA TODOS LOS REGISTROS QUE CUMPLEN LA CONDICION TAL COMO DEBE SER, PERO SUCEDE QUE CUANDO LA CONDICION YA NO SE CUMPLE (ES DECIR CUANDO "FACTURA ES DIFERENTE DE BUSQUEDA) ME MARCA EL ERROR -ERROR BASE/1077 ARGUMENT ERROR .NOT. - Y EN LA LOGICA SOLO DEBERIA SALIR DEL DO WHILE.

LA BASE DE DATOS TIENE APROX: 35000 REGISTROS

ESPERO QUE ALGUIEN DE POR AQUI PUDIERA DAR UNA SOLUCION

SALUDOS

Hola: Sácale el !eof()

SELECT DATAFAC
SEEK busqueda
If found()
Do while factura = busqueda
…………..
instrucciones
……………
skip
Enddo
ENDIF

Estás seguro que el error te lo da en la línea del do while !EOF() ?
Eso tendría que funcionar bien aunque te aconsejaría que utilices.

DbSelectAr( "DATAFAC" )
DATAFAC->( DbSetOrder( "el indice que deseas" ) )
If DATAFAC->( DbSeek( Busqueda ) )
Do While DATAFAC->( !EOF() ) .AND. DATAFAC->Factura == Busqueda
....
Instrucciones
DATAFAC->( DbSkip() )
EndDo
EndIf

...
...mclave = dato
seek dato
do while !Eof ()
If campo = dato
instrucciones
else
skip
loop
endIf
Skip
EndDo