 ;** Exp_Opaf *******************************************************************
;*  Exportacao de Dados OPAF                                                   *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 18/04/2019 por Kamila Gomes
;Ultima Alteracao: 06/05/2019 por Anivel Augusto Rodrigues            
;Motivo Alteracao: Ajuste nÆo exportar ECF  

;*******************************************************************************
;* Rotina Principal                                                            *
;*******************************************************************************
AutoLib="\\Sistemas\\Cadastro\\Bibliot,\\Sistemas\\Cadastro\\Bib_Show"
LimpAguarde()
If Not IsAssigned(SYS_CODIGO_CLIENTE)  Then SYS_CODIGO_CLIENTE=""  EndIf

sys_Valor()

wcaminhoapp=""
switch
  case SYS_CODIGO_CLIENTE = "0294" : wcaminhoapp = "V:\\Opaf_Int\\Opaf.exe"

  case SYS_CODIGO_CLIENTE = "0408" : wcaminhoapp = "C:\\---Opaf\\Opaf.exe"
  
  otherwise                        : wcaminhoapp = "C:\\Opaf\\Opaf.exe"
endswitch

Versao = Verificar_Versao(wcaminhoapp)

If Not IsBlank(Versao)
   Then Switch
          Case Versao = "5.2.2.0" or
               Versao = "5.2.3.0" or
               Versao = "5.2.4.0" : Play "EOPAF70"

          OtherWise               : 
               MSG="Configura‡äes do Opaf/NFCe p/ verificar !// //"
               MSG=MSG+"VersÆo do Opaf/NFCe nÆo configurada//"
               MSG=MSG+"VersÆo detectada "+Versao+"//"
               MSG=MSG+"Pasta do aplicativo "+wcaminhoapp+"//"
               MSG=MSG+"// Verifique com suporte vise !"
               Mensagem(MSG)
        EndSwitch  
EndIf

Release Vars Versao
