función para hacer filtros en una DBF

[lucasdebeltran]

Hola amigos,

Estoy buscando una función para hacer filtros en una dbf, que permita hacer varias condiciones and or, diversos operadores, etc, para que el usuario pueda ir dinámicamente construyendo el filtro.

¿Existe algo?. Muchas gracias y feliz 2015.

[José Vicente Beltrán]

Lucas,

Yo lo hago (con muy buenos resultados) utilizando indices temporales del tipo

INDEX ON (campo/campos) TO iTemp FOR (aqui_la_cadena_de_condicion) TEMPORARY ADDITIVE

es un proceso casi instantaneo, probado con condiciones de filtro complejas, con DBF,s de mas de 200 MB
Saludos

[lucasdebeltran]

Hola,

Lo que busco es el dialogo para añadir el primer campo, el operador, el valor, el and u or para la siguiente condición, la función que hace el filtro, v verifica operador con tipo de campo..., incluso si es de pago.

Muchas gracias.

[D.Fernandez]

Hola Lucas, podrias verificar fivedbu.prg tiene algo parecido.

Saludos.

[lucasdebeltran]

Hola

El problema es que no esta acabada, no hace comprobaciones, étc.

Gracias

[elvira]

Yo también estoy interesada

[karinha]

Code: Select all  Expand view

FUNCTION RELATORIO_STATUS_NFE( cTipoImpr )

   LOCAL oPen1, oPen2, oFont1, oFont2, oFont3, oReport, cAlias, cTitleImp

   PUBLIC wNomeEmpresa

   SELECT CADNFE

   // CRIACAO DOS FITROS/INDICES
   DO CASE
   CASE cTipoImpr = "APROVADAS"  // "APR"

      cTitleImp := OemToAnsi( "APROVADA(s) E NÇO IMPRESSA(s)." )

      INDEX ON FATURCOD                   TAG 05 TO INFETEMP   ;
            FOR ( .NOT. EOF() ) .AND. CADNFE->STATUS = "APR" MEMORY //TEMPORARY

   CASE cTipoImpr = "CANCELADAS"  // "CAN"

      cTitleImp := OemToAnsi( "CANCELADA(s) NA SEFAZ." )

      INDEX ON FATURCOD                   TAG 05 TO INFETEMP   ;
            FOR ( .NOT. EOF() ) .AND. CADNFE->STATUS = "CAN" MEMORY //TEMPORARY

   CASE cTipoImpr = "DENEGADAS"  // "DEN"

      cTitleImp := OemToAnsi( "NFE COM USO DENEGADO NA SEFAZ." )

      INDEX ON FATURCOD                   TAG 05 TO INFETEMP   ;
            FOR ( .NOT. EOF() ) .AND. CADNFE->STATUS = "DEN" MEMORY //TEMPORARY

   CASE cTipoImpr = "ENVIADAS"   // "ENV"

      cTitleImp := OemToAnsi( "TRANSMITIDA(s) E NÇO CONSULTADA(s)." )

      INDEX ON FATURCOD                   TAG 05 TO INFETEMP   ;
            FOR ( .NOT. EOF() ) .AND. CADNFE->STATUS = "ENV" MEMORY //TEMPORARY

   CASE cTipoImpr = "GERADAS"   // "GER"

      cTitleImp := OemToAnsi( "GERADA(s) E NÇO TRANSMITIDA(s)." )

      INDEX ON FATURCOD                   TAG 05 TO INFETEMP   ;
            FOR ( .NOT. EOF() ) .AND. CADNFE->STATUS = "GER" MEMORY //TEMPORARY

   CASE cTipoImpr = "IMPRESSAS" // "IMP"

      cTitleImp := OemToAnsi( "IMPRESSA(s) - FINALIZADA(s)-OK." )

      INDEX ON FATURCOD                   TAG 05 TO INFETEMP   ;
            FOR ( .NOT. EOF() ) .AND. CADNFE->STATUS = "IMP" MEMORY //TEMPORARY

   CASE cTipoImpr = "INUTILIZADAS"  // "INU"

      cTitleImp := OemToAnsi( "INUTILIZADA(s) NA SEFAZ." )

      INDEX ON FATURCOD                   TAG 05 TO INFETEMP   ;
            FOR ( .NOT. EOF() ) .AND. CADNFE->STATUS = "INU" MEMORY //TEMPORARY

   CASE cTipoImpr = "PENDENTES" // "   "

      cTitleImp := OemToAnsi( "PENDENTE(s) DE GERA€ÇO." )

      INDEX ON FATURCOD                   TAG 05 TO INFETEMP   ;
            FOR ( .NOT. EOF() ) .AND. CADNFE->STATUS = "   " MEMORY //TEMPORARY

   CASE cTipoImpr = "GERAL"

      cTitleImp := OemToAnsi( "GERAL - TODAS AS NOTAS EXISTENTES." )

      INDEX ON FATURCOD                   TAG 05 TO INFETEMP   ;
            FOR ( .NOT. EOF() ) MEMORY //TEMPORARY

   ENDCASE

   cAlias := ALIAS()

   GO TOP

   ...

RETURN NIL