- 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/C_Subs.bas

@@ -550,3 +550,23 @@ Sub CheckAndRequestNotificationPermission As ResumableSub
 	Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean) 'change to Activity_PermissionResult if non-B4XPages.
 	Return Result
 End Sub
+
+' Revisa en CAT_VARIABLES el valor de "monitorActivo"
+' - Regresa verdadero si encuentra 1
+' - Regresa falso si encuentra 0
+Sub traeActivo As Boolean
+	Private c As Cursor = Starter.skmt.ExecQuery("select valor from cat_variables where nombre = 'monitorActivo'")
+	Private monitorActivo As Boolean = True
+	If c.RowCount > 0 Then
+		For i = 0 To c.RowCount - 1
+			c.Position = i
+'			Log("xxxx: " & c.GetString("valor"))
+			If c.GetString("valor") = "0" Then
+				monitorActivo = False
+			End If
+		Next
+	End If
+'	Log(c.RowCount)
+'	Log("monitorActivo: " & monitorActivo)
+	Return monitorActivo
+End Sub