FiveTech Software tech support forums

DbSetFilter( <bFilter>, [<cFilter>] ) --> NIL Arguments <bFilter> A code block containing the filter expression. The expression must yield a logical value. <cFilter> The filter expression in form of a character ...

... fields, finding Robert Bosch in name OR cFilter := "Street" //fields, finding Robert Bosch only in streets OR etc. - built the filter: bFilter := &( "{ || WildMatch( " + ValToPrg( cPattern ) + ", " + cFilter + ", .F. ) }" ) - set the filter: MsgRun( ...

Otto, The first test is to see if there is a filter.    ! Empty( cFilter := ( ::cAlias )->( dbFilter() ) ) Then the test of eval( bFilter ) tests if the deleted record is NOT in the filter. I am not clear why this is needed. If there is a ...

Hello James, I am not clear about the line if ! ( ::cAlias )->( Eval( bFilter ) ). If I am right this sets the filter which dbFilter() reads before. Couldn’t I commend out this line? Thanks in advance and best regards, Otto METHOD DelRepos() CLASS TXBrowse ...

... "BEDIENDE->lActief" ) In Method Delrepos we have : elseif ! Empty( cFilter := ( ::cAlias )->( dbFilter() ) ) // cFilter is "BEDIENDE->lActief" bFilter := ( ::cAlias )->( &cFilter ) ...

Eduardo, el error persiste, pude ver que el valor de bFilter es lógico y al dejar la función como está da error porque intenta evaluar algo que no es bloque de código, le hice esta modificación y me está funcionando aparentemente. METHOD DelRepos() ...

Antonio, me funcionó de la forma que tu me sugieres, pero si utilizo macro en la lína de filtro me da el mismo error, pude notar que bfilter puede devolver una cadena de caracteres como valor lógico. A mi browse le hago un filtro luego de creado para filtrar los clientes de una base de datos ...

Ricardo, Prueba a aplicar el filtro asi: SET FILTER TO Sto->activo == .T. y a continuación haz: MsgInfo( DbFilter() ) para comprobar que la expresión es la escrita De paso comprueba que tengas esta línea en el método DelRepos() de la Clase TXBrowse y que no falte la "&": ...

Antonio, OK, I think I have a solution. bFilter was not actually a codeblock. This is from the method DelRepos(). Regards, James elseif ! Empty( cFilter := ( ::cAlias )->( dbFilter() ) ) //bFilter ...

... a row with lCanDelete mode DATA bFileLock // custom function for locking database (with your own message) DATA bGoToPos // scrollbar block DATA bFilter // a simple filter tool DATA bIconDraw, bIconText // icons drawing directives DATA bInit // code block to be evaluated on init DATA bLine, bSkip, ...

... C:\CBATI32\xbrowse.PRG => TXBROWSE:DELREPOS(874) Called from: C:\CBATI32\xbrowse.PRG => TXBROWSE:REFRESH(838) This is the offending line bFilter := ( ::cAlias )->( &cFilter ) Hth Richard

... to do the fiiltering, you filter the one you already have open. So change this code: select mete use mete set index to mete1 DBSETFILTER(&bFilter,cFilter) mete->(DBGOTOP()) To this: (::cAlias)->(dbsetfilter(&bFilter,cFilter)) ::gotop() There are other problems too. You have a ...

... to issue a oBrw:gotop() since the database should already be there. I would try checking right after this code: select 4 use mete DBSETFILTER(&bFilter,cFilter) mete->(DBGOTOP()) msgInfo( [put field name here] ) If you are not at the top record here, then it has nothing to do with the browse. ...

I can not find that filter DBSETFILTER(&bFilter,cFilter) is applied to the database . Please can somebody explain why ? STATIC FUNCTION listmete( oWnd ) *-------------------------- local oDlg, oCol local oBrw local nfor,x,cFilter:="",bFilter:="" ...

... ALIAS customer INDEX ON state TAG state TO customer OrdSetFocus("state") cFiltCond := "customer->salary >10000 .AND. state = 'ME'" bFilter := "{||"+cFiltCond+"}" * Method 1 SET FILTER TO customer->salary >10000 .AND. state = 'ME' GO TOP BROWSE() DbSetFilter() DbGoTop() * Method ...