Yo lo hice sobrecargandolo en TSQLQuery y TSQLTable ya que no existe dicho metodo, no se si sera la forma optima, pero me funciona, de igual manera estoy haciendo varios metodos que daban facilidad de uso con las DBF.
//---------------------------------------------------------- ----------------
METHOD Seek( xValue, lSoftSeek, lLast, lError, lAll )
LOCAL lSuccess
LOCAL aTemp
LOCAL cTable
Local cSelect := "SELECT "
If ( xValue == Nil )
Return ( .f. )
End
cTable := zStrNoBorders(::cTable) //nombre de la [Tabla] la cual asigno al crear el TSQLQuery
xValue := AllTrim(xValue)
cSelect += ::cSQLTag //Este lo tomo de OrdSetFocus(), que le he reescrito
cSelect += " FROM " + cTable
cSelect += " WHERE " + ::cSQLTag + " = '" + xValue + "'"
aTemp := AppData:oDataSource:QueryRow(cSelect)
lSuccess := !Empty(aTemp)
Return ( lSuccess )
Espero te sirva y si alguien lo mejora, por favor, ilumenenos a todos.
Igual he reescrito el Filter, SaveToArray, SetScope.... todos para trabajar con SQL.
Saludos.
--
Ramon Zea
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
ramonzea@yahoo.com
http://www.paginasprodigy.com/zeasoftware/
--