Page 1 of 1
Problema con filtros
Posted: Thu May 23, 2019 3:16 pm
by José Luis Sánchez
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
Re: Problema con filtros
Posted: Thu May 23, 2019 3:30 pm
by karinha
¿Por qué no usas indice temporal?
comando:
MEMORY / TEMPORARY
INDEX ON CLAVE TAG CLAVE MEMORY
Ó
INDEX ON CLAVE TAG CLAVE TEMPORARY
Saludos.
Re: Problema con filtros
Posted: Fri May 24, 2019 5:38 am
by groiss
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
Re: Problema con filtros
Posted: Fri May 24, 2019 6:14 am
by José Luis Sánchez
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,
Re: Problema con filtros
Posted: Fri May 24, 2019 2:33 pm
by José Luis Sánchez
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: Select all
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
Re: Problema con filtros
Posted: Fri May 24, 2019 5:08 pm
by Joaquim Ferrer
José Luís
Puedes definir una macro de este estilo :
Code: Select all
#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: Select all
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
Re: Problema con filtros
Posted: Fri May 24, 2019 5:57 pm
by José Luis Sánchez
Muchas gracias Quim !!!
Re: Problema con filtros
Posted: Sat May 25, 2019 4:11 pm
by nageswaragunupudi
Macro compilation fails when the expression uses local variables.
Test:
Code: Select all
#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: Select all
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: Select all
cFilter := (cAlias)->( DBFILTER() )
and later re-applying the filter in a different context with
Code: Select all
(cAlias)->( DBSETFILTER( CTOBLOCK( cFilter ), cFilter ) )
fails if the variable used is out of scope.
Re: Problema con filtros
Posted: Sat May 25, 2019 7:15 pm
by xmanuel
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!!!