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.
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?
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
endif
cnavarro wrote:Francisco, creo que te falta en los DbSkip controlar el Eof() y el Bof()
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 123 guests