Tecnologica Rushmore / indices filtrados/ Bitmap filters

Tecnologica Rushmore / indices filtrados/ Bitmap filters

Postby Antonio Mart. » Wed Feb 07, 2018 7:54 pm

Hola a todos,

Necesitaria dar velocidad a mis filtros.

¿ Alguien podria explicar las distintas opciones disponibles en Harbour ?

Gracias
Antonio Mart.
 
Posts: 174
Joined: Sat Feb 23, 2013 10:04 am

Re: Tecnologica Rushmore / indices filtrados/ Bitmap filters

Postby karinha » Thu Feb 08, 2018 1:13 pm

Holá, que és Tecnologica Rushmore ?

Mira se ayuda:

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 NFECOD                   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 NFECOD                   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 NFECOD                   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 NFECOD                   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 NFECOD                   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 NFECOD                   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 NFECOD                   TAG 05 TO INFETEMP   ;
            FOR ( .NOT. EOF() ) .AND. CADNFE->STATUS = "INU" MEMORY //TEMPORARY

   CASE cTipoImpr = "PENDENTES" // "   "

      cTitleImp := OemToAnsi( "PENDENTE(s) DE FINALIZAR" )

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

   CASE cTipoImpr = "GERAL"

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

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

   ENDCASE

   cAlias := ALIAS()

   GO TOP

   ... continua...

 


Salu2
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7154
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 10 guests