FiveTech Support Forums

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...