 ;** 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"
;Ultima Alteracao: 07/12/2018 por Anivel Augusto Rodrigues            
;Motivo Alteracao: Ajuste Versao = "7.1.2.0"
;Ultima Alteracao: 22/03/2019 por Kamila Gomes            
;Motivo Alteracao: Ajuste Versao = "7.1.3.0"
;Ultima Alteracao: 06/05/2019 por Anivel Augusto Rodrigues            
;Motivo Alteracao: Ajuste nÆo exportar NFCE 
;Ultima Alteracao: 01/07/2019 por Kamila Gomes            
;Motivo Alteracao: Ajuste Versao = "7.2.0.0"
;Ultima Alteracao: 31/07/2019 por Kamila Gomes            
;Motivo Alteracao: Ajuste Versao = "7.3.2.0"
;Ultima Alteracao: 24/12/2019 por Bruno Carvalho
;Motivo Alteracao: Adicionado Bib_Proc

;*******************************************************************************
;* 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" : 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 = "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" Or
               Versao = "7.1.2.0" Or
               Versao = "7.1.3.0" Or
               Versao = "7.2.0.0" Or
               Versao = "7.3.2.0" : Play "EOPAF70"      
               
          OtherWise               : 
               MSG="Configura‡äes do Opaf/ECF p/ verificar !// //"
               MSG=MSG+"VersÆo do Opaf/ECF 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
