- VERSION 4.12.14

- Se actualizo la libreria ReplyAuto para que no mande mensajes de "notification_removed"

B4A/monitor.bas

@@ -19,7 +19,7 @@ Sub Process_Globals
 	Private lock As PhoneWakeState
 	Dim Interval As Int
 	Dim s As C_Subs
-	Dim nid As Int = 51043
+	Dim nid As Int = 51045
 '	Dim monitorActivo As Boolean = True
 	Dim InternetOk As Boolean = True
 	Dim DBReqServerOk As Boolean = True
@@ -40,11 +40,12 @@ Sub Service_Create
 		logger = False
 	#end if
 	lock.PartialLock
+'	Log(345)
 '	probamosConexion
 End Sub
 
 Sub Service_Start (StartingIntent As Intent)
-	Log("Monitor Start")
+	If Starter.logger Then Log("Monitor Start")
 	Service.StopAutomaticForeground 'Call this when the background task completes (if there is one)
 	Service.StartForeground(nid, s.CreateNotification("..."))
 	StartServiceAt(Me, DateTime.Now + 10 * DateTime.TicksPerMinute, True)
@@ -68,7 +69,7 @@ End Sub
 
 Sub probamosConexion
 	If logger Then Log("######################  "& CRLF& " probamos probamosConexion"& CRLF& "  ############")
-	Try
+'	Try
 		If B4XPages.IsInitialized Then
 			B4XPages.MainPage.lv_servidores.Clear
 			B4XPages.MainPage.lv_dbs.Clear
@@ -120,9 +121,9 @@ Sub probamosConexion
 			cs.Initialize
 			If B4XPages.IsInitialized Then B4XPages.MainPage.l_status.Text = cs.Color(Colors.red).append("NO hay conexión a internet!!").PopAll
 		End If
-	Catch
-		Log(LastException)
-	End Try
+'	Catch
+'		Log(LastException)
+'	End Try
 End Sub
 
 Sub reinicializaReqManager 'ignore