 ;** Exp_ps   *******************************************************************
;*  Exportacao de Dados PlugSales                                              *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 09/05/2019 por Anivel Augusto Rodrigues
;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 = "0000" : wcaminhoapp = "C:\\PlugSales"
  
  otherwise                        : wcaminhoapp = "C:\\PlugSales"

endswitch

;Versao = Verificar_Versao(wcaminhoapp)
Versao="1.0.0.0"

If Not IsBlank(Versao)
   Then Switch
          Case Versao = "1.0.0.0" : Play "EPS10"

          OtherWise               : 
               MSG="Configura‡äes do PlugBot/PlugSales p/ verificar !// //"
               MSG=MSG+"VersÆo do PlugBot/PlugSales 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
