Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
Log(File.DirInternal)
'---Me conecto al servidor FTP y descargo los archivos necesarios para la bdd de los inspectores / conductores---
FTP.Initialize("FTP", "xxx.xxx.xx.x", 21, "ftp@xxx.com", "xxxx")
FTP.PassiveMode = True
downloadcount = 0
FTP.DownloadFile("/encuestas/tconductores.txt", False, File.DirInternal & "/Encuestas", "tconductores.txt")
' If File.ExternalWritable = True Then
If File.Exists(File.DirInternal & "/Encuestas", "latbusdev.db") = False Then
'File.Delete(File.DirRootExternal & "/Encuestas", "latbusdev.db") ' only for testing, removes the database
SQL1.Initialize(File.DirInternal & "/Encuestas", "latbusdev.db", True)
CreateDataBases
'check if the database already exists
Else
'if not, initialize it
SQL1.Initialize(File.DirInternal & "/Encuestas", "latbusdev.db", True)
'and create it
End If
End If
Activity.LoadLayout("MenuPrincipal_NewLogo")
End Sub