TSBrowse y SET FILTER

Post Reply
User avatar
César E. Lozada
Posts: 128
Joined: Wed Oct 26, 2005 12:18 pm
Location: Los Teques, Miranda, Venezuela

TSBrowse y SET FILTER

Post by César E. Lozada »

O yo no entiendo bien,o TSBrowse no está diseñado para funcionar con filtros, aunque sin con scopes sobre indices. Después de trabajar un poco logré que me funcionara bien, haciendo los siguientes cambios:

Agregar

DATA bFilter
METHOD SetbFilter(bFilter);
INLINE (::cAlias)->(dbSetFilter(::bFilter:=bFilter)),;
if(::lPainted,::ResetBarPos(.T.),nil),;
::Default(),;
::GoTop(),;
::Refresh()

Sustituir
DATA nLen

por

METHOD nLen
Local nLen, nRec
IF ::lIsDbf
nRec:=(::cAlias)->(RecNo())
IF !Empty(::bFilter)
COUNT FOR (::cAlias)->(Eval(::bFilter)) TO nLen
ELSE
nLen:=::RecCount()
ENDIF
(::cAlias)->(dbGoto(nRec))
ELSE
nLen:=Len(::aArray)
ENDIF
RETURN nLen

Espero sea útil para alguien y agradeceré las sugerencias

César E. Lozada
User avatar
goosfancito
Posts: 1392
Joined: Fri Oct 07, 2005 7:08 pm

Consulta

Post by goosfancito »

Amigo: que version de tsbrowser estas usando, pudiste compilarla sin errores? usas el xharbour? que version?
daniel
Posts: 6
Joined: Fri Oct 21, 2005 10:03 pm
Location: El Salvador
Contact:

Re: TSBrowse y SET FILTER

Post by daniel »

Lo modifique y lo compile y no me funiono
deberias de poner el fuente pa descagarlo, nos ayudaria mucho
gracias

César E. Lozada wrote:O yo no entiendo bien,o TSBrowse no está diseñado para funcionar con filtros, aunque sin con scopes sobre indices. Después de trabajar un poco logré que me funcionara bien, haciendo los siguientes cambios:

Agregar

DATA bFilter
METHOD SetbFilter(bFilter);
INLINE (::cAlias)->(dbSetFilter(::bFilter:=bFilter)),;
if(::lPainted,::ResetBarPos(.T.),nil),;
::Default(),;
::GoTop(),;
::Refresh()

Sustituir
DATA nLen

por

METHOD nLen
Local nLen, nRec
IF ::lIsDbf
nRec:=(::cAlias)->(RecNo())
IF !Empty(::bFilter)
COUNT FOR (::cAlias)->(Eval(::bFilter)) TO nLen
ELSE
nLen:=::RecCount()
ENDIF
(::cAlias)->(dbGoto(nRec))
ELSE
nLen:=Len(::aArray)
ENDIF
RETURN nLen

Espero sea útil para alguien y agradeceré las sugerencias

César E. Lozada
FWH 2.4 xHarbour 99.3 Compatible con FWH 2.4 de PuertoSur
Post Reply