15/9/23 - Codigo de prueba en C_Subs

Código de prueba para hacer un DBRequest desde una clase y "tratar" de simplificar algunas funciones.

B4A/Starter.bas

@@ -15,11 +15,12 @@ Sub Process_Globals
 	Public gps As GPS
 	Dim ph As Phone
 	Public rp As RuntimePermissions
+	Dim s As C_Subs
 	Public FLP As FusedLocationProvider
 '	Private flpStarted As Boolean
 	Dim reqManager As DBRequestManager
 '	Dim server As String = "http://11.0.0.253:1782"
-	Dim server As String = "http://187.189.244.154:1783"
+	Dim server As String = "http://187.189.244.154:1782"
 '	Dim server As String = "http://10.0.0.205:1782"
 '	Dim server As String = "http://11.0.0.231:1782"
 	Dim Timer1 As Timer
@@ -32,19 +33,19 @@ Sub Process_Globals
 	Dim logger As Boolean = True
 	Dim marcaCel As String = ph.manufacturer
 	Public rp As RuntimePermissions
-	Dim muestraProgreso = 0
+	Dim muestraProgreso As String = 0
 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
 	gps.Initialize("GPS")
-'	CallSubDelayed(FirebaseMessaging, "SubscribeToTopics") 'Para Push FirebaseMessaging
 	Timer1.Initialize("Timer1", Interval * 1000)
 	Timer1.Enabled = True
 '	'Para los Logs
 	#if RELEASE
-	logcat.LogCatStart(Array As String("-v","raw","*:F","B4A:v"), "logcat")
+		logcat.LogCatStart(Array As String("-v","raw","*:F","B4A:v"), "logcat")
 	#end if
 	logs.Initialize
 '	CallSubDelayed(FirebaseMessaging, "SubscribeToTopics") 'Para Push FirebaseMessaging
@@ -53,7 +54,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
-'	Log(marcaCel)
 	reqManager.Initialize(Me, server)
 End Sub