- Se agregó el permiso de ACCESS_NETWORK_STATE al manifiesto para que no mande error en Android 14

B4XMainPage.bas

@@ -23,7 +23,7 @@ Version=9.85
 Sub Class_Globals
 	Public Root As B4XView
 	Private xui As XUI
-	Dim timer As Timer
+'	Dim timer As Timer
 '	Clases
 	Public login As login
 	Dim principal As C_principal
@@ -33,7 +33,6 @@ End Sub
 
 Public Sub Initialize
 '	B4XPages.GetManager.LogEvents = True
-
 End Sub
 
 'This event will be called once, before the page becomes visible.
@@ -42,9 +41,9 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	Root.LoadLayout("MainPage")
 	B4XPages.GetManager.TransitionAnimationDuration = 0
 	login.Initialize
-	B4XPages.AddPageAndCreate("login",login.Initialize)
-	timer.Initialize("Timerconteo",1000)
-	timer.Enabled = True
+	B4XPages.AddPageAndCreate("login", login)
+'	timer.Initialize("Timerconteo",1000)
+'	timer.Enabled = True
 	principal.Initialize
 	B4XPages.AddPage("Principal", principal)
 	supervisor.Initialize
@@ -67,19 +66,17 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	Else
 		ToastMessageShow("No permission", True)
 	End If
-	
 	CheckAndRequestNotificationPermission
-
-
 End Sub
 
 Private Sub B4XPage_Appear
-	Wait For (CheckAndRequestNotificationPermission) Complete (HasPermission As Boolean)
-	If HasPermission Then
-		Log("Con permisos de notificación")
-	Else
-		ToastMessageShow("No permission to show notification", True)
-	End If
+'	Wait For (CheckAndRequestNotificationPermission) Complete (HasPermission As Boolean)
+'	If HasPermission Then
+'		Log("Con permisos de notificación")
+'	Else
+'		ToastMessageShow("No permission to show notification", True)
+'	End If
+	B4XPages.ShowPage("login")
 End Sub
 
 'Make sure that targetSdkVersion >= 33
@@ -102,9 +99,9 @@ End Sub
 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
 
 Sub Timerconteo_tick
-	B4x_Transition.PrepareTransition_FadeOut(xui, Root.Width, Root.Height, Root, login.Root)
-	B4XPages.ShowPageAndRemovePreviousPages("login")
-	timer.Enabled = False
+'	B4x_Transition.PrepareTransition_FadeOut(xui, Root.Width, Root.Height, Root, login.Root)
+'	B4XPages.ShowPageAndRemovePreviousPages("login")
+'	timer.Enabled = False
 End Sub