Procedure DB_ControleVersaoSql()

//VERSAO ATUAL A VERIFICAR
VersaoNova is string = "3.0" // <---- aumente a versao para excluir a base antiga antes de publicar no google play

//Path
//sBasePath is string = ""
sPathArquivoIni is string = ""

//Connect
sDatabaseName is string = "FaixaVermelha.db"
sNomeArquivoIni is string = "DB.ini"

IF InSimulatorMode() = False
gsBasePath = gsAppDir + ["/DB/"] + sDatabaseName
sPathArquivoIni = gsAppDir + ["/DB/"] + sNomeArquivoIni
ELSE
gsBasePath = gsAppDir + ["\DB\"] + sDatabaseName
sPathArquivoIni = gsAppDir + ["\DB\"] + sNomeArquivoIni
END


//Se nao tem o arquivo ini
IF fFileExist(sPathArquivoIni) = False AND fFileExist(gsBasePath) = True THEN

fDelete(gsBasePath)

INIWrite("BaseDados","Versao", VersaoNova, sPathArquivoIni)

//Se existe o ini e o banco verifique a versao
ELSE IF fFileExist(sPathArquivoIni) = True AND fFileExist(gsBasePath) = True THEN

//Se versao diferente exclua
VersaoExistente is string = INIRead("BaseDados","Versao","",sPathArquivoIni)
IF VersaoExistente <> VersaoNova THEN
fDelete(gsBasePath)
END

//Atualiza Arquivo ini
INIWrite("BaseDados","Versao", VersaoNova, sPathArquivoIni)

//Nao existe nada
ELSE IF fFileExist(sPathArquivoIni) = False AND fFileExist(gsBasePath) = False THEN

INIWrite("BaseDados","Versao", VersaoNova, sPathArquivoIni)

END

//Se Tiver ExcluirTudo = SIM
IF INIRead("BaseDados","ExcluirTudo","",sPathArquivoIni) = "SIM" THEN

fDelete(gsBasePath)
fDelete(sPathArquivoIni)
fRemoveDir(gsAppDir)

NextTitle("Atenção")
Info("Inicialize novamente o aplicativo.")

Close()

END