FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Problema con filtros
José Luis Sánchez
Posts: 564
Joined: Thu Oct 13, 2005 09:23 AM

Problema con filtros

Posted: Thu May 23, 2019 03:16 PM

Hola a todos:
Tengo un problema con los filtros de un DBF en un programa, creo un filtro de esta manera:

CO->( dbSetFilter( {|| Upper( CO->CoFila ) == Upper( cFila ) } ) )

y a continuación ? CO->(DbFilter()) me devuelve la cadena vacía.

Necesito controlar por programa cuando tengo un filtro sobre una tabla, porque hay situaciones que necesito quitar/restaurar el filtro, pero dbfilter() siempre me retorna la cadena vacía.
Lo curioso es que el filtro funciona bien, me hace el fitrado correctamente.

¿ Alguna idea de porqué me pasa esto ?

Saludos,
José Luis

karinha
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM

Re: Problema con filtros

Posted: Thu May 23, 2019 03:30 PM

¿Por qué no usas indice temporal?

comando:

MEMORY / TEMPORARY

INDEX ON CLAVE TAG CLAVE MEMORY

Ó

INDEX ON CLAVE TAG CLAVE TEMPORARY

Saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
groiss
Posts: 234
Joined: Tue Sep 01, 2009 07:55 AM

Re: Problema con filtros

Posted: Fri May 24, 2019 05:38 AM
José Luis, prueba añadiendo el literal del filtro, para que pueda devolverte la misma cadena al preguntar por el filtro activo

CO->( dbSetFilter( {|| Upper( CO->CoFila ) == Upper( cFila ) } , "Upper( CO->CoFila ) == Upper( cFila )" ) )


Un saludo
José Luis Sánchez
Posts: 564
Joined: Thu Oct 13, 2005 09:23 AM

Re: Problema con filtros

Posted: Fri May 24, 2019 06:14 AM

Muchas gracias, eso es lo que buscaba. El caso es que leí la documentación de dbsetfilter y no me di cuenta del segundo parámetro.

Saludos,

José Luis Sánchez
Posts: 564
Joined: Thu Oct 13, 2005 09:23 AM

Re: Problema con filtros

Posted: Fri May 24, 2019 02:33 PM
Ahora estoy con el tema de guardar/restaurar un filtro sobre una tabla. La manera en que lo estoy haciendo es llamar a una función que me devuelva el codeblock del filtro y guardar en el 2º campo del dbsetfilter una cadena que me permita luego volver a generar el filtro. Algo así:

Code (fw): Select all Collapse
cFilter :="bCoFilter2;"+cFila
CO->( dbSetFilter( bCoFilter2(cFila), cFilter ))
...
FUNCTION bCoFilter2(cFila)
   Return {|| Upper( CO->CoFila ) == Upper( cFila ) }


¿ Hay alguna manera más fácil de hacerlo ? El caso es que tengo una opción en que se puede establecer 12 filtros distintos sobre un mantenimiento, y luego tengo que analizar la cadena que guarda el filtro para poder llamar a cada función que devuelve su codeblock, y me parece algo enrevesado.

Saludos,
José Luis
Joaquim Ferrer
Posts: 105
Joined: Sat Jan 14, 2012 03:46 PM

Re: Problema con filtros

Posted: Fri May 24, 2019 05:08 PM
José Luís

Puedes definir una macro de este estilo :
Code (fw): Select all Collapse
#define CTOBLOCK(e)  &("{||"+e+"}")


Mantienes en una tabla la expresión del filtro en un string y ya cuando lo creas lo tienes facil

Code (fw): Select all Collapse
cFilter := 'Upper( CO->CoFila ) == Upper( cFila )'
dbSetFilter( CTOBLOCK(cFilter), cFilter )


Creo recordar que dbsetfilter funciona sobre el area activa (tienes que hacer antes un select() , por lo que el alias delante creo no funcionará

Saludos
Fivewinner desde 1.9, programador PHP y Javascript, PWA & HTML5 evangelista
José Luis Sánchez
Posts: 564
Joined: Thu Oct 13, 2005 09:23 AM

Re: Problema con filtros

Posted: Fri May 24, 2019 05:57 PM

Muchas gracias Quim !!!

nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM

Re: Problema con filtros

Posted: Sat May 25, 2019 04:11 PM
Macro compilation fails when the expression uses local variables.

Test:
Code (fw): Select all Collapse
#include "fivewin.ch"

REQUEST DBFCDX

#define CTOBLOCK( e )  &( "{||" + e + "}" )

function Main()

   local cValue   := "NY"
   local cFilter  := "UPPER( FIELD->CODE ) == UPPER( cValue )"

   USE STATES NEW VIA "DBFCDX"

   STATES->( DBSETFILTER( CTOBLOCK( cFilter ), cFilter ) )
   STATES->( DBGOTOP() )

return nil


Runtime Error
Code (fw): Select all Collapse
   Error description: Error BASE/1003  Variable does not exist: CVALUE

Stack Calls
===========
   Called from: F.prg => (b)MAIN( 14 )
   Called from:  => DBGOTOP( 0 )
   Called from: F.prg => MAIN( 15 )


So, the variables has to declared as Private.
Even then saving as
Code (fw): Select all Collapse
cFilter := (cAlias)->( DBFILTER() )

and later re-applying the filter in a different context with
Code (fw): Select all Collapse
(cAlias)->( DBSETFILTER( CTOBLOCK( cFilter ), cFilter ) )

fails if the variable used is out of scope.
Regards



G. N. Rao.

Hyderabad, India
xmanuel
Posts: 817
Joined: Sun Jun 15, 2008 07:47 PM

Re: Problema con filtros

Posted: Sat May 25, 2019 07:15 PM

José Luis.
Si tienes un indice por el campo CO->CoFila es más efectivo los scopes.
Todas las RDD lo tienen, incluso los NTX!!!

______________________________________________________________________________

Sevilla - Andalucía

Continue the discussion

Static archive · New replies & topics via GitHub Discussions