 ;** Exp_Opaf *******************************************************************
;*  Exportacao de Dados OPAF                                                   *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 04/08/2014 por Andrey Fillipe
;Ultima Alteracao: 14/08/2014 por Andrey Fillipe           
;Motivo Alteracao: Adicionado SYS_CODIGO_CLIENTE = "0294"
;Ultima Alteracao: 26/08/2014 por Andrey Fillipe           
;Motivo Alteracao: Adicionado Versao = "4.5.2.0"
;Ultima Alteracao: 02/10/2014 por Andrey Fillipe           
;Motivo Alteracao: Adicionado Versao = "4.5.3.0"
;Ultima Alteracao: 28/11/2014 por Andrey Fillipe           
;Motivo Alteracao: Adicionado Versao = "4.5.4.0"
;Ultima Alteracao: 28/11/2014 por Andrey Fillipe           
;Motivo Alteracao: Adicionado Versao = "4.5.5.0"
;Ultima Alteracao: 11/05/2015 por Kamila Gomes           
;Motivo Alteracao: Adicionado Versao = "5.1.0.0"
;Ultima Alteracao: 07/08/2015 por Kamila Gomes           
;Motivo Alteracao: Adicionado Versao = "5.2.0.0"
;Ultima Alteracao: 19/11/2015 por Kamila Gomes           
;Motivo Alteracao: Adicionado Versao = "5.3.1.0"
;Ultima Alteracao: 28/12/2015 por Kamila Gomes           
;Motivo Alteracao: Adicionado Versao = "5.3.2.0"
;Ultima Alteracao: 28/01/2016 por Heverton Amaral           
;Motivo Alteracao: Adicionado Versao = "5.4.0.0"
;Ultima Alteracao: 18/05/2016 por Kamila Gomes           
;Motivo Alteracao: Adicionado Versao = "5.5.1.0" e excluidas versäes anteriores
;Ultima Alteracao: 29/08/2016 por Kamila Gomes           
;Motivo Alteracao: Adicionado Versao = "6.0.0.0" 
;Ultima Alteracao: 21/11/2016 por Heverton Amaral         
;Motivo Alteracao: Adicionado Versao = "6.1.0.0" 
;Ultima Alteracao: 13/02/2017 por Kamila Gomes        
;Motivo Alteracao: Adicionado Versao = "6.1.1.0" 
;Ultima Alteracao: 20/02/2017 por Heverton Amaral        
;Motivo Alteracao: Ajuste Versao = "6.1.1.0"
;Ultima Alteracao: 29/03/2017 por Heverton Amaral        
;Motivo Alteracao: Ajuste Versao = "6.2.1.0" 
;Ultima Alteracao: 11/09/2017 por Kamila Gomes       
;Motivo Alteracao: Ajuste Versao = "6.3.0.0" 
;Ultima Alteracao: 13/11/2017 por Kamila Gomes       
;Motivo Alteracao: Ajuste Versao = "6.4.1.0"
;Ultima Alteracao: 06/08/2018 por Kamila Gomes       
;Motivo Alteracao: Ajuste Versao = "7.0.0.0"
;Ultima Alteracao: 06/08/2018 por Kamila Gomes/Crystiane Andrade      
;Motivo Alteracao: Ajuste Versao = "7.1.0.0"
;*******************************************************************************
;* Rotina Principal                                                            *
;*******************************************************************************
AutoLib="\\Sistemas\\Cadastro\\Bibliot,\\Sistemas\\Cadastro\\Bib_Show"
LimpAguarde()
If Not IsAssigned(SYS_CODIGO_CLIENTE)  Then SYS_CODIGO_CLIENTE=""  EndIf

If SYS_CODIGO_CLIENTE = "0294"
   Then Versao = Verificar_Versao("V:\\Opaf_Int\\Opaf.exe")
   Else Versao = Verificar_Versao("C:\\Opaf\\Opaf.exe")
EndIf

If Not IsBlank(Versao)
   Then Switch
          Case Versao = "5.3.1.0" Or
               Versao = "5.3.2.0" Or
               Versao = "5.4.0.0" : Play "EOPAF53"
          Case Versao = "5.5.1.0" : Play "EOPAF55"  
          Case Versao = "6.0.0.0" : Play "EOPAF60"
          Case Versao = "6.1.0.0" Or
               Versao = "6.1.1.0" Or
               Versao = "6.2.0.0" Or
               Versao = "6.2.1.0" : Play "EOPAF61"  
          Case Versao = "6.3.0.0" Or
               Versao = "6.3.1.0" Or
               Versao = "6.4.0.0" Or
               Versao = "6.4.1.0" : Play "EOPAF63" 
          Case Versao = "7.0.0.0" Or
               Versao = "7.1.0.0" : Play "EOPAF70"      
          OtherWise               : 
               MSG="Configura‡äes do Opaf p/ verificar !// //"
               MSG=MSG+"VersÆo do Opaf nÆo identificada//" 
               MSG=MSG+"// Verifique com suporte vise !"
               Mensagem(MSG)
        EndSwitch  
EndIf

Release Vars Versao
