Se agregó la variable logger en starter y condiciones para que solo mande logs cuando esta abierta la aplicacion

Pusher.b4a

@@ -71,12 +71,12 @@ Module6=Subs
 NumberOfFiles=19
 NumberOfLibraries=23
 NumberOfModules=6
-Version=12.5
+Version=12.8
 @EndOfDesignText@
 #Region  Project Attributes 
 	#ApplicationLabel: Pusher 2.0
 	#VersionCode: 1
-	#VersionName: 3.11.07
+	#VersionName: 4.02.16
 	'Ver. 3.09.18 - Se agregó la posibilidad de mostrar puntos internedios en la ruta y muestra icono diferente si esta en movimiento o parado. 
 	'SupportedOrientations possible values: unspecified, landscape or portrait.
 	#SupportedOrientations: portrait
@@ -272,6 +272,7 @@ End Sub
 Sub Activity_Pause (UserClosed As Boolean)
 	'Starter.StopFLP
 '	CallSub(Tracker, "StopFLP")
+	Starter.logger = False
 End Sub
 
 Sub Button1_Click
@@ -307,7 +308,7 @@ Sub JobDone(Job As HttpJob)
 		ToastMessageShow("Error: " & Job.ErrorMessage, True)
 	Else
 		If Job.JobName = "DBRequest" Then
-			LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.Green)  'Mod por CHV - 211027
+			If Starter.logger = True Then LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.Green)  'Mod por CHV - 211027
 			Dim result As DBResult = reqManager.HandleJob(Job)
 			If result.Tag = "seleccionaRutaGPS2" Then 'query tag
 				rutaGPS = ""
@@ -428,7 +429,7 @@ public Sub ubicacionRecibida(message As Map)
 	montoTotal =message.Get("mt")
 	batt=message.Get("b")
 	Dim v As String = message.Get("v")
-	Log("Ubicacion recibida : "&message.Get("d")&","&message.Get("t")&","&message.Get("body"))
+	If Starter.logger Then Log("Ubicacion recibida : "&message.Get("d")&","&message.Get("t")&","&message.Get("body"))
 	If message.Get("t") = "au" Then 'Si es actualizacion
 '		For i=0 To message.Size-1
 '			Log(message.GetKeyAt(i)&"="&message.GetValueAt(i))
@@ -448,7 +449,7 @@ public Sub ubicacionRecibida(message As Map)
 '	Log("dispositvos="&dispositivos)
 '	Log(DateTime.Time(timemarker))
 	MapFragment1_Ready
-	Log("Dispositivos : "&dispositivos.Size)
+	If Starter.logger Then Log("Dispositivos : "&dispositivos.Size)
 End Sub
 
 Sub agregaAListview
@@ -758,6 +759,7 @@ Sub s_tracker_ItemClick (Position As Int, Value As Object)
 End Sub
 
 Sub b_buscar_longClick
+	Starter.logger = True
 	mapaDestino = 2
 	Subs.panelVisible(p_ruta, 0, 0)
 	p_mapa2.Width = Activity.Width