ModoVideo=False
ModoResume=3
Activity.LoadLayout("Altius")
Sleep(100)
ProgressDialogShow("INICIANDO APLICACIÓN")
If FirstTime Then
ConexionGps.Initialize("ConexionGPS")
auth.initialize("auth")
player1.Initialize("player")
End If
If Mapa.IsGooglePlayServicesAvailable = False Then
ToastMessageShow("Instale Google Play Services.", True)
End If
ListaPaginas.Initialize
MyFont=Typeface.LoadFromAssets("AvenirNext-Medium.otf")
userLocation.Initialize2(0,0)
Seleccion=0
intAlto=100%y
intAncho=100%x
intAncho2=intAncho*(.94)
scvGaleria.Initialize(intAncho2,"scvGaleria")
scvGaleria2.Initialize(intAncho2,"scvGaleria2")
IdApartamentoActual=0
IdProyectoActual=0
lstProyectos.Initialize
lstApartamentos.Initialize
lstPromos.Initialize
ListaNombreProyectos.initialize
listaMensajes.Initialize
listaNoticias.Initialize
lstShowrooms.Initialize
lstShowroomsBilu.Initialize
lstShowroomsMore.Initialize
lstShowroomsNostrum.Initialize
ListaApartamentosFavoritos.Initialize
ListaProyectosFavoritos.Initialize
lstBarriosBuscador.Initialize
lstDormitorios.Initialize
lstEstados.Initialize
lstPisos.Initialize
lstDormitoriosProyecto.Initialize
lstEstadosProyecto.Initialize
lstPisosProyecto.Initialize
CargarShowrooms
ObtenerPromos
AjustarControles
MenuOpen=False
pnlLateral.Visible=False
CargarFondosFijos
sepVideo.Player = player1
ProgressDialogHide
If File.Exists(File.DirDefaultExternal,"IdCliente_Altius.txt") Then
IdCliente=File.ReadString(File.DirDefaultExternal,"IdCliente_Altius.txt")
CallSubDelayed(FirebaseMessaging,"Service_Create")
MostrarPanel(pnlSeleccion)
CargarMensajes
CargarFavoritos
btnAbrirSesion.Visible=False
Else
lblOfrecer.Visible=False
MostrarPanel(pnlInicial)
End If