- VERSION 5.04.22

- Se agregó que guarde en base de datos el estatus de "Activo", asi si se desactiva el servicio, cuando se reinicia, o el sistema lo mata y luego reinicia, mantiene el estatus seleccionado.

B4A/monitor.bas

@@ -33,9 +33,10 @@ End Sub
 Sub Service_Create
 	s.Initialize
 	Interval = s.traeIntervaloDeBD
+'	Interval = 10
 	timeout = s.traeTimeoutDeBD
 	Timer1.Initialize("Timer1", Interval * 1000)
-	Timer1.Enabled = True
+	If s.traeActivo Then Timer1.Enabled = True Else Timer1.Enabled = False
 	#if not(DEBUG)
 		logger = False
 	#end if
@@ -60,7 +61,7 @@ End Sub
 Sub Timer1_Tick
 '	Log("Next run " & DateTime.Time(DateTime.Now + Interval * 1000))
 '	Log("Monitor Timer_Tick")
-	If Starter.monitorActivo Then
+	If s.traeActivo Then
 		DateTime.DateFormat = "dd/MM HH:mm:ss"
 		If B4XPages.IsInitialized Then B4XPages.MainPage.l_ultimoPing.Text = $"Último ping: ${DateTime.Date(DateTime.now)}"$
 		probamosConexion