B4A=true
Group=Default Group
ModulesStructureVersion=1
Type=Service
Version=9.9
@EndOfDesignText@
#Region  Service Attributes 
	#StartAtBoot: False
	#ExcludeFromLibrary: True
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.
	Public rp As RuntimePermissions 'Para obtener permisos android 6+
	Public FLP As FusedLocationProvider 'Para Tracker
	Dim reqManager As DBRequestManager
	Dim cmd As DBCommand
	Dim Timer1 As Timer
	Dim interval As Int = 1800 '1800 segs (30 mins)
	Dim UUC As Location
	Dim run As Int = 0 'ignore
	Dim devModel As String
	Dim lastLocUpdate As String = 0
	Dim logger As Boolean = True
End Sub

Sub Service_Create
	'This is the program entry point.
	'This is a good place to load resources that are not specific to a single activity.
	Subs.revisaBD
	CallSubDelayed(FirebaseMessaging, "SubscribeToTopics") 'Para FirebaseMessaging
End Sub

Sub Service_Start (StartingIntent As Intent)
	Service.StopAutomaticForeground 'Starter service can start in the foreground state in some edge cases.
	reqManager.Initialize(Me, "http://keymon.lat:1781")
	Timer1.Initialize("Timer1", interval * 1000)
	Timer1.Enabled = True
	UUC.Initialize
	UUC.Accuracy = 1000
	Subs.getPhnId
	Subs.bitacora($"Starter - Service_Start"$)
	StartService(Tracker)
	StartServiceAt(Tracker, DateTime.Now + 30 * DateTime.TicksPerMinute, True)
	#if RELEASE
		logger = False
	#end if
	Subs.revisaYmandaUUC
End Sub

Private Sub Timer1_Tick
'	Log("TIMER1: " & Timer1)
	Subs.borraArribaDeXXXBitacora(3000)
End Sub

Sub Service_TaskRemoved
	'This event will be raised when the user removes the app from the recent apps list.
End Sub

'Return true to allow the OS default exceptions handler to handle the uncaught exception.
Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
	Return True
End Sub

Sub Service_Destroy
	Subs.bitacora($"Starter - Service destroyed"$)
'	Subs.gps_hist.ExecNonQuery($"insert into BITACORA (RUTA, TEXTO, FECHA) values ('${devModel}', 'Starter - Service destroyed')"$)
End Sub

Sub restartTracker
	Log("Llamamos RESTART-TRACKER")
	Subs.bitacora("Llamamos RESTART-TRACKER")
	StopService(Tracker)
	Sleep(1000)
	StartService(Tracker)
End Sub