;** VerExec  *******************************************************************
;*  Programa para verificar a versÆo do ExecVise                               *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 05/09/2007 por Antonio Marcelo Alves
;Ultima Alteracao: 01/12/2011 por Bruno Carvalho
;Motivo Alteracao: Altera‡Æo de "ExecVise -> Vexe"
;Ultima Alteracao: 13/03/2015 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes vexe.exe renomeado para xexe.exe          

;*******************************************************************************
;*  Rotina para verificar a versÆo do ExecVise                                 *
;*******************************************************************************

Proc VerificaExecVise() ;Data da alteracao
Private DataArqAtual, DataArqNovo

{Tools} {Info} {Inventory} {Files} {\\Sistemas\\Cadastro\\xexe.exe}
If IsEmpty("List")
   Then ClearImage
        Mensagem("ExecVise n„o localizado !")
        Return 
EndIf
   
Moveto [Date]
DataArqNovo =[List->Date]
ClearImage

Diretorio= SubStr(Directory(),1,2)
{Tools} {Info} {Inventory} {Files} {C:\\Vise\\xexe.exe}
If Not IsEmpty("List")
   Then Moveto [Date]
        DataArqAtual =[List->Date]
        If DataArqAtual<DataArqNovo
           Then Deleta_Arquivo("C:\\Vise\\xexe.exe")
                Copia_Arquivo(Diretorio+"\\Sistemas\\Cadastro\\xexe.exe C:\\Vise\\xexe.exe")
        EndIf
   Else Copia_Arquivo(Diretorio+"\\Sistemas\\Cadastro\\xexe.exe C:\\Vise\\xexe.exe")
EndIf
ClearImage

Release Vars DataArqAtual, DataArqNovo
EndProc ;(VerificaExecVise)

;*******************************************************************************
;* Rotina Principal                                                            *
;*******************************************************************************
Autolib="\\Sistemas\\Cadastro\\Bibliot"

VerificaExecVise()

ClearAll
Release Procs VerificaExecVise

