Saludos amigos del foro.
Tengo necesidad de una funcion para buscar valores numericos por aproximacion, en una tabla dbf.
Agradeceré mucho si alguno de ustedes ya la ha desarrollado y pueda compartirla.
Saludos.
No entiendo bien lo que quieres decir
El número más aproximado al introducido?
Está ordenado por ese campo la base de datos?
cnavarro wrote:No entiendo bien lo que quieres decir
El número más aproximado al introducido?
Está ordenado por ese campo la base de datos?
Se me olvidó comentar que al usar DbSeek(nValue,.t.) y no encontrar el valor, el cursor se sitúa en el siguiente registro.
El caso es que el valor aproximado a encontrar puede ser mayor o menor al valor digitado.
Gracias.
Bien, te cuento lo que se me ocurre
Como el DbSeek( uval, .T. ) se sitúa en el valor superior al buscado, coge la diferencia con el anterior y posterior y compruebas cuál es el más aproximado
Se me debe escapar algo que no te he entendido porque seguro que esa solución ya la habÃas pensado
Lo segundo es hacer una búsqueda "dicotómica" a mano
Saludos
if misgets("Buscar valor aproximado","","Introduzca valor",@nVal,"lupa",.t.)
if !(cAlias)->(dbSeek(nVal,.t.))
msginfo("No encontrado valor exacto")
nRec := Recno()
dbskip(-1)
nValAnt := Abs( nVal - field->debe )
dbskip()
nValPos := Abs( nVal - field->debe )
nValAprox := Min(nValAnt,nValPos)
MsgInfo("Valor aproximado es "+Transform(nValAprox,"999,999,999.99"))
if nValAnt < nValPos
dbskip(-1)
endif
oBrw3:Refresh()
MsgInfo("Valor a buscar " + Transform(nVal,"999,999.99") +CRLF+;
"Valor anterior " + Transform(nValAnt,"999,999.99") +CRLF+;
"Valor Posterior " + Transform(nValPos,"999,999.99") +CRLF+;
"Valor Aproximado " + Transform(nValAProx,"999,999.99") )
endif
endifFrancisco, creo que te falta en los DbSkip controlar el Eof() y el Bof()
cnavarro wrote:Francisco, creo que te falta en los DbSkip controlar el Eof() y el Bof()