;** Gupdate ********************************************************************
;*  Gera o arquivo de Atualiza‡Æo do Sistema                                   *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 04/08/2005 por Davi Pereira Carrano
;Ultima Alteracao: 15/08/2007 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes Run
;Ultima Alteracao: 01/12/2011 por Bruno Carvalho
;Motivo Alteracao: Altera‡Æo de "Arj -> Varj"
;Ultima Alteracao: 07/05/2012 por Bruno Carvalho
;Motivo Alteracao: Add Sleep na rotina onde ‚ processado o ARJ
;Ultima Alteracao: 07/02/2016 por Bruno Carvalho
;Motivo Alteracao: Adicionado parƒmetro para gerar pacote de atualiza‡Æo mensal ou acumulado

;*******************************************************************************
;* Rotina Principal                                                            *
;*******************************************************************************
Autolib="\\Sistemas\\Cadastro\\Bibliot,\\Sistemas\\Cadastro\\Bib_show"
If (DirExists("C:\\Vise\\GUpdate\\Base")=0) Or (DirExists("C:\\Vise\\GUpdate\\Sistemas")=0)
   Then MSG=    "N„o foi poss¡vel criar o arquivo de atualiza‡Æo !"
        MSG=MSG+"//As Pastas Base e Sistemas necess rias para se criar"
        MSG=MSG+"//o arquivo de atualiza‡Æo nÆo se encontram no diret¢rio"
        MSG=MSG+"//C:\\Vise\\Gupdate !"
        Mensagem(MSG)
        return
EndIf

If Not IsFile("C:\\Vise\\Gupdate\\Sistemas\\Versao.sc")
   Then MSG=    "N„o foi poss¡vel criar o arquivo de atualiza‡Æo !"
        MSG=MSG+"//O Arquivo Versao.sc necess rio para se criar"
        MSG=MSG+"//o arquivo de atualiza‡Æo nÆo se encontram no diret¢rio"
        MSG=MSG+"//C:\\Vise\\Gupdate\\Sistemas !"
        Mensagem(MSG)
        return
EndIf

Echo Normal
Echo Off

ShowPopup " Frete por Conta " CENTERED
"~A~tualiza‡Æo Mensal    " : " Gerar o Pacote Mensal de Atualiza‡Æo     " : "0",
"A~c~umulado             " : " Gerar o Acumulado do Sistema             " : "1",
Separator,
"~C~ancelar              " : " Cancelar a Opera‡„o                      " : "CANCELAR"
EndMenu
To MenuVar

If MenuVar<>"CANCELAR" And MenuVar<>"Esc"
   Then Switch
          Case MenuVar="1" : Acumulado=True
          OtherWise        : Acumulado=False
        EndSwitch
   Else Return   
EndIf    

Play "C:\\Vise\\Gupdate\\Sistemas\\Versao"
NOME_ARQ_VERSAO=SubStr(SYS_NV,1,4)+SubStr(SYS_NV,6,1)

If Acumulado
   Then If IsFile("C:\\Vise\\Gupdate\\Ac"+NOME_ARQ_VERSAO+".exe")
           Then Deleta_Arquivo("C:\\Vise\\GUpdate\\Ac"+NOME_ARQ_VERSAO+".exe")
        EndIf
   Else If IsFile("C:\\Vise\\Gupdate\\At"+NOME_ARQ_VERSAO+".exe")
           Then Deleta_Arquivo("C:\\Vise\\GUpdate\\At"+NOME_ARQ_VERSAO+".exe")
        EndIf
EndIf        

Dir_Atual=Directory()
Setdir "C:\\Vise\\Gupdate"
If Acumulado
   Then comando="c:\\vise\\Varj a -je -ri -gvise2005 ac"+NOME_ARQ_VERSAO+" Base\\*.* Sistemas\\*.*"
   Else comando="c:\\vise\\Varj a -je -ri -gvise2005 at"+NOME_ARQ_VERSAO+" Base\\*.* Sistemas\\*.*"
EnDIf   
@ 22,0 Run NoRefresh comando
Sleep 1000

Setdir Dir_Atual
If Acumulado
   Then Mensagem("Arquivo Ac"+NOME_ARQ_VERSAO+".exe gerado no diret¢rio C:\\Vise\\Gupdate !")
   Else Mensagem("Arquivo At"+NOME_ARQ_VERSAO+".exe gerado no diret¢rio C:\\Vise\\Gupdate !")
EndIf
