09/09/23 - Panel de configuración y servicio al arranque

Se agregó´un panel para cambiar algunos parametros de la aplicación y se agregó´un servicio para que el monitor arranque junto con el dispositivo, para esto es necesario darle permisos para accesar las notificaciones del sistema.

B4A/DBRequestManager.bas

@@ -18,6 +18,7 @@ Sub Class_Globals
 	Private VERSION As Float = 0.9
 	Private tempArray(1) As Object
 	Dim jobTagAnterior As String = "" 'Mod por CHV - 211027
+	Dim logger As Boolean = False
 End Sub
 
 'Target - The module that handles JobDone (usually Me).
@@ -25,6 +26,9 @@ End Sub
 Public Sub Initialize (Target As Object, ConnectorLink As String)
 	mTarget = Target
 	link = ConnectorLink
+	#if not(DEBUG)
+		logger = False
+	#end if
 End Sub
 
 'Sends a query request.
@@ -188,7 +192,7 @@ End Sub
 
 'Handles the Job result and returns a DBResult.
 Public Sub HandleJob(Job As HttpJob) As DBResult
-	Dim start As Long = DateTime.Now
+'	Dim start As Long = DateTime.Now
 	Dim In As InputStream = Job.GetInputStream
 	Dim cs As CompressedStreams
 	In = cs.WrapInputStream(In, "gzip")
@@ -255,13 +259,13 @@ End Sub
 
 'Prints the table to the logs.
 Public Sub PrintTable(Table As DBResult)
-	Log("Tag: " & Table.Tag & ", Columns: " & Table.Columns.Size & ", Rows: " & Table.Rows.Size)
+	If logger Then Log("Tag: " & Table.Tag & ", Columns: " & Table.Columns.Size & ", Rows: " & Table.Rows.Size)
 	Dim sb As StringBuilder
 	sb.Initialize
 	For Each col In Table.Columns.Keys
 		sb.Append(col).Append(TAB)
 	Next
-	Log(sb.ToString)
+	If logger Then Log(sb.ToString)
 	For Each row() As Object In Table.Rows
 		Dim sb As StringBuilder
 		sb.Initialize