gsMensagem is string=[
Parametros não informados
/UPGRADE=S
]


gsbancotipo, gsbanco, gsbancosenha, gsbancousuario is string
gsConexao, gsbd, gsUsuario, gsEnha, gsTipo, gsCaminho, gsipserver, gstipoconexao is string
gbTpdefault is boolean

IF glo_verifica_conexoes() <> "ok" THEN
Info("Conexão não definida")
EndProgram()
END
HCheckStructure("*",hNoCheck)
HReadSeekFirst(tabsetup,tabsetupID,1)
IF tabsetup.tabsetup_servidor_aplicativos="" THEN tabsetup.tabsetup_servidor_aplicativos="c:\i9sistemas\i9erp"
HSave(tabsetup)

IF CommandLine("UPGRADE")="S" THEN
Open(WIN_principal)
EndProgram()
END

ToastDisplay("Aguarde, verificando versão sistema")

gsaplicativoserver, gsaplicativolocal is string

IF SysWindowsVersion(sysProcessor) = 64 THEN
gsaplicativoserver=tabsetup.tabsetup_servidor_aplicativos+"\i9erpwin64.exe"
gsaplicativolocal="i9erpwin64.exe"
ELSE
gsaplicativoserver=tabsetup.tabsetup_servidor_aplicativos+"\i9erpwin.exe"
gsaplicativolocal="i9erpwin.exe"
END

IF CommandLine("DEBUG") = "S" THEN
Info ("Versão servidor : "+glo_retorna_versao(ExeInfo(exeVersion,gsaplicativoserver))+CR+
"Versão estação : "+glo_retorna_versao(ExeInfo(exeVersion,gsaplicativolocal))+CR+
"Caminho aplicativo servidor : "+tabsetup.tabsetup_servidor_aplicativos+CR+
"Aplicativo servidor : "+gsaplicativoserver+CR+
"Aplicativo estação : "+gsaplicativolocal+CR+
"Plataforma : "+SysWindowsVersion(sysProcessor))
END

IF glo_retorna_versao(ExeInfo(exeVersion,gsaplicativoserver)) > glo_retorna_versao(ExeInfo(exeVersion,gsaplicativolocal)) THEN
IF CommandLine("DEBUG") = "S" THEN Info("Entrou modo copia")
IF NOT fCopyFile(gsaplicativoserver,gsaplicativolocal,frProgress) THEN
Info("Erro na atualização da versão na estação!")
ELSE
Info("Atualização da versão na estação realizada com sucesso!")
END
ELSE
IF CommandLine("DEBUG") = "S" THEN Info("Não existe atualização")
END
CreateShortCut(shortcutDesktop,"i9erp",fCurrentDir()+"\"+gsaplicativolocal,fCurrentDir(),swsNormal,"i9.ico")

ExeRun(gsaplicativolocal+" "+CommandLine())

EndProgram()