..

B4A/Starter.bas

@@ -13,7 +13,7 @@ Sub Process_Globals
 	'These global variables will be declared once when the application starts.
 	'These variables can be accessed from all modules.
 	Public rp As RuntimePermissions
-	Dim s As C_Subs
+'	Dim s As C_Subs
 	Dim reqManager As DBRequestManager
 	Dim skmt, errorLog As SQL
 	Dim ruta As String = File.DirInternal
@@ -57,7 +57,7 @@ End Sub
 Sub Service_Create
 	'This is the program entry point.
 	'This is a good place to load resources that are not specific to a single activity.
-	s.Initialize(Me, "Subs") 'Inicializamos la clase Subs
+'	s.Initialize(Me, "Subs") 'Inicializamos la clase Subs
 	If Logger Then LogColor("'/////////////////////////////////////////////////////////////////////////////////////////////", Colors.Green)
 	If Logger Then LogColor("'/////////////////////////////////////   Iniciamos Starter  /////////////////////////////////", Colors.Green)
 	If Logger Then LogColor("'/////////////////////////////////////////////////////////////////////////////////////////////", Colors.Green)
@@ -65,8 +65,9 @@ Sub Service_Create
 	Timer1.Enabled = True
 	GPS.Initialize("GPS")
 	ubicacionActual.Initialize
+	Subs.revisaBD
 	pe.Initialize("pe") 'Para obtener la bateria
-	skmt = s.dbInit 'Inicializamos BD.
+'	skmt = s.dbInit 'Inicializamos BD.
 	DBReqServer = "http://keymon.lat:1781"
 	Private c As Cursor = skmt.ExecQuery($"select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = 'SERVER'"$)
 	If c.RowCount > 0 Then 
@@ -86,7 +87,6 @@ End Sub
 
 Sub Service_Start (StartingIntent As Intent)
 	Service.StopAutomaticForeground 'Starter service can start in the foreground state in some edge cases.
-	Subs.revisaBD
 	#if DEBUG
 		Logger = True
 	#else