Hola a todos,
Necesitaria dar velocidad a mis filtros.
¿ Alguien podria explicar las distintas opciones disponibles en Harbour ?
Gracias
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...
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 92 guests