;** VIS_DANF *******************************************************************
;*  Visualizacao de Danfe                                                      *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido  em: 28/07/2015 por Andrey Fillipe
;Ultima Alteracao: 06/04/2016 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes deletear arquivos temporarios
;Ultima Alteracao: 02/12/2016 por Kamila Gomes
;Motivo Alteracao: Ajustes Consultar Manager
;Ultima Alteracao: 26/09/2017 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes novos calculos da nota
;Ultima Alteracao: 04/11/2017 por Anivel Augusto Rodrigues                           
;Motivo Alteracao: Ajustes retorno do erro           
;Ultima Alteracao: 06/11/2017 por Bruno Carvalho                           
;Motivo Alteracao: Ajustes na vari vel de controle "s", onde foi add UPPER p/ realizar a verifica‡Æo de versÆo 
;Ultima Alteracao: 15/05/2018 por Anivel Augusto Rodrigues                           
;Motivo Alteracao: Ajustes arquivo pdf tmp nome diferente
;Ultima Alteracao: 14/12/2018 por Kamila Gomes                           
;Motivo Alteracao: Fun‡Æo para pegar Fuso Horario do computador
;Ultima Alteracao: 03/04/2018 por Kamila Gomes                           
;Motivo Alteracao: Ajuste para gerar no modo SVCAN
;Ultima Alteracao: 26/06/2019 por Anivel Augusto Rodrigues/Kamila Gomes
;Motivo Alteracao: Ajustes ExisteArquivo()
;Ultima Alteracao: 03/09/2020 por Anivel Augusto Rodrigues                           
;Motivo Alteracao: Ajustes lerConfigEdoc()    

;*******************************************************************************
;* Rotina para Visualizar Danfe(NF)                                            *
;*******************************************************************************
Proc VisualizarDanfe()

NOTAFISC                 = [Numero da OF]
CODFISC                  = PARAM_DOC_NFEN
SERIEFISC                = PARAM_SER_NFEN
PastaNfeManager          = RTrim(PARAM_CAMINHO_MANAGER)
GrupoeDoc                = RTrim(PARAM_GRUPO_EDOC)
CNPJ_Manager             = Tira_CharNum(CNPJNF_e)
denegada                 = False
cancelada                = False
PastaNfeManagerMonitorar = PastaNfeManager+"Monitorar\\"+GrupoeDoc+"\\NFe\\"+CNPJ_Manager+"\\"

nfeok=True

LerConfigEdoc()

If AmbienteNFe="2"
   Then Mensagem("Utilizando NFe em ambiente de [ HOMOLOGA€ŽO ] !")
EndIf   

Return nfeok

EndProc ;(VisualizarDanfe)

;*******************************************************************************
;* Rotina Principal                                                            *
;*******************************************************************************

If VisualizarDanfe()
   Then PARAM_VISUALIZAR_DANFE = True

        ArqNFE           ="of"+StrVal(NOTAFISC)+".TX2"
        switch
          case VersaoNFe="4.00" : Play "NF_NFE40"
          otherwise             : mensagem("VersÆo NF-e "+VersaoNFe+", nÆo disponivel !// //Verificar com Suporte !") 
        endswitch
      
        LimpAguarde()
        
EndIf         

Release vars PARAM_VISUALIZAR_DANFE
Release Procs VisualizarDanfe
