B4A=true
Group=Default Group
ModulesStructureVersion=1
Type=Class
Version=9.85
@EndOfDesignText@
#Region Shared Files
	'Ctrl + click to sync files: ide://run?file=%WINDIR%\System32\Robocopy.exe&args=..\..\Shared+Files&args=..\Files&FilesSync=True
	'###########################################################################################################
	'######################           PULL         #############################################################
	'Ctrl + click ide://run?file=%WINDIR%\System32\cmd.exe&Args=/c&Args=git&Args=pull
	'###########################################################################################################
	'######################           PUSH         #############################################################
	'Ctrl + click ide://run?file=%WINDIR%\System32\WindowsPowerShell\v1.0\powershell.exe&Args=github&Args=..\..\
	'###########################################################################################################
	'######################      PUSH TORTOISE GIT     #########################################################
	'Ctrl + click ide://run?file=%WINDIR%\System32\WindowsPowerShell\v1.0\powershell.exe&Args=TortoiseGitProc&Args=/command:commit&Args=/path:"./../../"&Args=/closeonend:2
	'###########################################################################################################
#End Region

'Ctrl + click to export as zip: ide://run?File=%B4X%\Zipper.jar&Args=Project.zip

Sub Class_Globals
	Public Root As B4XView
	Private xui As XUI
	Dim timer As Timer
'	Clases
	Public login As login
	Dim principal As C_principal
	Dim supervisor As C_supervisor
	Public updateAvailable As C_UpdateAvailable
End Sub

Public Sub Initialize
'	B4XPages.GetManager.LogEvents = True

End Sub

'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
	Root = Root1
	Root.LoadLayout("MainPage")
	B4XPages.GetManager.TransitionAnimationDuration = 0
	login.Initialize
	B4XPages.AddPageAndCreate("login",login.Initialize)
	timer.Initialize("Timerconteo",1000)
	timer.Enabled = True
	principal.Initialize
	B4XPages.AddPage("Principal", principal)
	supervisor.Initialize
	B4XPages.AddPage("Supervisor", supervisor)
	updateAvailable.Initialize
	B4XPages.AddPage("updateAvailable", updateAvailable)
'	auxiliar.Initialize
'	B4XPages.AddPage("Auxiliar", auxiliar)
'	tecnico.Initialize
'	B4XPages.AddPage("Tecnico", tecnico)
'	salida.Initialize
'	B4XPages.AddPage("Salida",salida)
	
'	Tracker
	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_ACCESS_FINE_LOCATION)
	Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
	If Result Then
		StartService(Tracker)
		Log("Start Tracker")
	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
End Sub

'Make sure that targetSdkVersion >= 33
Private Sub CheckAndRequestNotificationPermission As ResumableSub
	Dim p As Phone
	If p.SdkVersion < 33 Then Return True
	Dim ctxt As JavaObject
	ctxt.InitializeContext
	Dim targetSdkVersion As Int = ctxt.RunMethodJO("getApplicationInfo", Null).GetField("targetSdkVersion")
	If targetSdkVersion < 33 Then Return True
	Dim NotificationsManager As JavaObject = ctxt.RunMethod("getSystemService", Array("notification"))
	Dim NotificationsEnabled As Boolean = NotificationsManager.RunMethod("areNotificationsEnabled", Null)
	If NotificationsEnabled Then Return True
	Dim rp As RuntimePermissions
	rp.CheckAndRequest(rp.PERMISSION_POST_NOTIFICATIONS)
	Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean) 'change to Activity_PermissionResult if non-B4XPages.
	Return Result
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
End Sub