 ;** 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  
;Ultima Alteracao: 27/06/2019 por Kamila Gomes           
;Motivo Alteracao: Inclu¡da versÆo 5.3.0.0
;Ultima Alteracao: 10/07/2019 por Kamila Gomes           
;Motivo Alteracao: Ajuste wcaminhoapp
;Ultima Alteracao: 20/08/2019 por Heverton Amaral           
;Motivo Alteracao: Inclu¡da versÆo 5.3.0.3
;Ultima Alteracao: 22/08/2019 por Anivel Augusto Rodrigues
;Motivo Alteracao: Inclu¡da versÆo 5.4.0.0
;Ultima Alteracao: 04/10/2019 por Bruno Carvalho
;Motivo Alteracao: Ajustes p/ consulta versÆo de arquivo no V: #0227#
;Ultima Alteracao: 16/12/2019 por Heverton Amaral  
;Motivo Alteracao: Inclu¡da versÆo 5.4.0.2
;Ultima Alteracao: 03/01/2020 por Heverton Amaral  
;Motivo Alteracao: Inclu¡da versÆo 5.4.0.3
;*******************************************************************************
;* Rotina Principal                                                            *
;*******************************************************************************
AutoLib="\\Sistemas\\Cadastro\\Bibliot,\\Sistemas\\Cadastro\\Bib_Show,\\Sistemas\\Cadastro\\Bib_Proc"
LimpAguarde()
If Not IsAssigned(SYS_CODIGO_CLIENTE)  Then SYS_CODIGO_CLIENTE=""  EndIf

sys_Valor()

wcaminhoapp=""
switch
  case SYS_CODIGO_CLIENTE = "0294" Or
       SYS_CODIGO_CLIENTE = "0227"  : wcaminhoapp = "V:\\Opaf_Int\\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 "ENFCE50"

          Case Versao = "5.3.0.0" or 
               Versao = "5.3.0.3" : Play "ENFCE53" 

          Case Versao = "5.4.0.0" or
               Versao = "5.4.0.2" or
               Versao = "5.4.0.3" : Play "ENFCE54" 

          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
