busqueda tdophin

[kpidata]

Estimados, favor de orientar, estoy con Mysql y tdolphin, y quiero hacer que me buque y me filtre un valor en el campo cCampo, en la query cTab_Fam, ordenado por campo nom_fam, en el browse oBrw

// tab_fam es la tabla llamada de forma directa.
// nom_fam es el campo que ordena.

FUNCTION FiltrarFamilia(oBrw,cCampo,cTab_Fam)
cTab_Fam:=xServer:Query("SELECT * FROM tab_fam WHERE nom_fam LIKE '"+UPPER(AllTrim(cCampo))+"%'")
cTab_Fam:Refresh()
cTab_Fam:Gotop()
oBrw:refresh(.t.)
oBrw:SetFocus()
RETURN .t.


eso se compila, se procesa, pero no hace nada.. no reclama, no refresca, no cambia... queda tal cual.. en que estoy fallando..?

[cmsoft]

Estas creado otra instancia de la query, la estas creando de nuevo.
Lo que tenes que hacer es actuaizar la que ya tenes

Code: Select all  Expand view  RUN

FUNCTION FiltrarFamilia(oBrw,cCampo,cTab_Fam)
LOCAL cFiltro := " nom_fam LIKE '%"+UPPER(AllTrim(cCampo))+"%'"
cTab_Fam:SetNewFilter(SET_WHERE,cFiltro,.t.)
cTab_Fam:Gotop()
oBrw:refresh(.t.)
oBrw:SetFocus()
RETURN .t.

[MGA]

qual a diferença entre:

oBrw:refresh(.t.)

ou

oBrw:refresh()

??

[kpidata]

Estimados, funciono perfecto, la verdad no es tema de programación, si no que es tema de saber bien lo que entrega sql.

muchas gracias..

[cmsoft]

Rearma o no todo el browse

Code: Select all  Expand view  RUN

METHOD Refresh( lComplete )  CLASS TXBrowse

   local nKeyNo

   if ::lAdjusted

      DEFAULT lComplete := .F.

      ::KeyCount()

      if lComplete
         ::nRowSel  = 1
         ::nArrayAt = Min( 1, ::nLen )
      else
         ::DelRepos()  // if the row is deleted for RDD
         nKeyNo     = ::KeyNo()
         if nKeyNo > ::nLen         // Rare case
            ::KeyNo  := ::nLen
            nKeyNo  = ::nLen
         endif
         if ::nArrayAt == 0 .and. ::nLen > 0
            // when one or more rows are added to a blank array
            ::nArrayAt  := 1
         endif
      endif
      ::CalcRowSelPos()
      ::GetDisplayCols()
      if ::bOnRefresh != nil
         Eval( ::bOnRefresh, Self )
      endif

   endif

return ::Super:Refresh( .t. )