17/9/23 - Permisos de notificacion y timeout

- Se puso codigo para que al iniciar la aplicación pida el acceso a notificaciones.
- Se cambió el timeout por default a 11 segs.

B4A/B4XMainPage.bas

@@ -85,6 +85,11 @@ Sub B4XPage_Appear
 	s.centraPanel(p_intervalo, Root.Width)
 	s.centraEtiqueta(Label1, Root.Width)
 	If Not(CheckNotificationAccess) Then
+		Msgbox2Async($"Se necesita acceso a las notificaciones, haga clic en "Aceptar" y en la siguiente pantalla permita el acceso a la aplicación "${Application.LabelName}"."$, "Permisos necesarios", "Aceptar", "Cancelar", "", Null, True)
+		Wait For Msgbox_Result (resultado As Int)
+		If resultado = DialogResponse.POSITIVE Then
+			b_notifAccess_Click
+		End If
 		Private cd1 As ColorDrawable
 		cd1.Initialize(Colors.red, 10dip)
 		b_notifAccess.Background = cd1