- VERSION 4.12.04

- Se movio la variable "servidores" de Mainpage a Starter.

B4A/Starter.bas

@@ -26,6 +26,7 @@ Sub Process_Globals
 '	Dim DBOk As Boolean = True
 	Dim logger As Boolean = False
 	Dim ping As Boolean = False
+	Dim servidores As List
 End Sub
 
 Sub Service_Create
@@ -36,6 +37,7 @@ Sub Service_Create
 	#if not(DEBUG)
 		logger = False
 	#end if
+	servidores.Initialize
 End Sub
 
 Sub Service_Start (StartingIntent As Intent)
@@ -62,7 +64,6 @@ Sub Service_Start (StartingIntent As Intent)
 	If sa.GetString("cuantos") = 0 Then
 		skmt.ExecNonQuery($"insert into cat_servidores (url, intervalo, timeout) values ('http://keymon.lat:1781', '30', '11000')"$)
 	End If
-
 	StartService(Monitor)
 End Sub
 '