Tecnologica Rushmore / indices filtrados/ Bitmap filters
Posted:
Wed Feb 07, 2018 7:54 pm
by Antonio Mart.
Hola a todos,
Necesitaria dar velocidad a mis filtros.
¿ Alguien podria explicar las distintas opciones disponibles en Harbour ?
Gracias
Re: Tecnologica Rushmore / indices filtrados/ Bitmap filters
Posted:
Thu Feb 08, 2018 1:13 pm
by karinha
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