Of course, here's
[CODE lang="b4x" title="Private Sub B4XPage_Created (Root1 As B4XView)"]If Glo.CrearPages Then
Glo.CrearPages = False
Home.Initialize
B4XPages.AddPageAndCreate("Home", Home)
ListadoDeudaPage.Initialize
B4XPages.AddPageAndCreate("ListadoDeudaPage", ListadoDeudaPage)
GuiaPage.Initialize
B4XPages.AddPageAndCreate("GuiaPage", GuiaPage)
ConsumosPage.Initialize
B4XPages.AddPageAndCreate("ConsumosPage", ConsumosPage)
ReclamosPage.Initialize
B4XPages.AddPageAndCreate("ReclamosPage", ReclamosPage)
UsuariosPage.Initialize
B4XPages.AddPageAndCreate("UsuariosPage", UsuariosPage)
NotificacionesPage.Initialize
B4XPages.AddPageAndCreate("NotificacionesPage", NotificacionesPage)
AdherentesPage.Initialize
B4XPages.AddPageAndCreate("AdherentesPage", AdherentesPage)
FallecidosPage.Initialize
B4XPages.AddPageAndCreate("FallecidosPage", FallecidosPage)
ProblemaIniciarPage.Initialize
B4XPages.AddPageAndCreate("ProblemaIniciarPage", ProblemaIniciarPage)
Else
Home = B4XPages.GetPage("Home")
ListadoDeudaPage = B4XPages.GetPage("ListadoDeudaPage")
GuiaPage = B4XPages.GetPage("GuiaPage")
ConsumosPage = B4XPages.GetPage("ConsumosPage")
ReclamosPage = B4XPages.GetPage("ReclamosPage")
UsuariosPage = B4XPages.GetPage("UsuariosPage")
NotificacionesPage = B4XPages.GetPage("NotificacionesPage")
AdherentesPage = B4XPages.GetPage("AdherentesPage")
FallecidosPage = B4XPages.GetPage("FallecidosPage")
ProblemaIniciarPage = B4XPages.GetPage("ProblemaIniciarPage")
End If
B4XPages.GetManager.LogEvents = True
Root = Root1
Root.LoadLayout("LoginPage")
If Glo.isDarkMode Then
iLogoSys.SetBitmap(xui.LoadBitmapResize(File.DirAssets, "LogoMembreteB.png", iLogoSys.Width, iLogoSys.Height, True))
End If
'CheckUpdate
SetStatusBarColor(xui.Color_ARGB(255, 63, 99, 171))
ShowLoading
CreaListaLogin
#If B4A
Private cd As ColorDrawable
cd.Initialize(Colors.Transparent, 0)
txtUsuario.Background = cd
txtPass.Background = cd
If Not(Glo.FondoCoop.IsInitialized) Then Glo.FondoCoop = xui.LoadBitmapResize(File.DirAssets, "fondocoop.jpg", 100%x, 100%y, True)
#Else
Glo.FondoCoop = xui.LoadBitmap(File.DirAssets, "fondocoop.jpg")
#End If
DateTime.DateFormat = "dd/MM/yyyy"
imgFondoHeader.SetBitmap(Glo.FondoCoop)
Wait For (initDB) Complete(Result As Boolean)
Try
For Each Archivo As String In File.ListFiles(Glo.Provider.SharedFolder)
If Archivo.EndsWith(".pdf") Then File.Delete(Glo.Provider.SharedFolder, Archivo)
Next
Catch
Log(LastException)
End Try
Wait For (listaCoops) Complete(Finish As Boolean)
#IF Coop
listadoCooperativas.mBase.Visible = False
#End If
If Finish Then
#IF Coop
For i = 0 To listadoCooperativas.Size
'Log(listadoCooperativas.GetItem(i)) 'Cooperativa de Gral. Coop
If listadoCooperativas.GetItem(i).Contains("Coop") Then
lblNombreApp.Text = listadoCooperativas.GetItem(i)
setCoope(i)
listadoCooperativas_SelectedIndexChanged(i)
Exit
End If
Next
#End If
End If[/CODE]
Glo.CrearPages start always as True, and sets to False here only
Thanks!