- Se agregó la opción de importar la base de datos directamente desde Whatsapp, hay que ingresar al engrane con el usuario KMTS1.

- Se cambio el nombre del archivo que se envia por WhatsApp cuando se envia la base de datos, ahora es kmt_mariana.db

B4A/Starter.bas

@@ -16,7 +16,7 @@ Sub Process_Globals
 	Dim skmt As SQL
 	Dim ph As Phone
 	Public rp As RuntimePermissions
-	Dim s As C_Subs
+	Dim kh As kms_helperSubs
 	Public FLP As FusedLocationProvider
 '	Private flpStarted As Boolean
 	Dim reqManager As DBRequestManager
@@ -40,8 +40,8 @@ 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
-	skmt = s.inicializaBD(File.DirInternal, "kmt.db")
+	kh.Initialize(Me, "Subs") 'Inicializamos la clase Subs
+	skmt = kh.inicializaBD(File.DirInternal, "kmt.db")
 	gps.Initialize("GPS")
 	Timer1.Initialize("Timer1", Interval * 1000)
 	Timer1.Enabled = True
@@ -56,7 +56,7 @@ 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 s.traeDBReqServerDeBD(skmt) <> "N/A" Then DBReqServer = s.traeDBReqServerDeBD(skmt)
+	If kh.traeDBReqServerDeBD(skmt) <> "N/A" Then DBReqServer = kh.traeDBReqServerDeBD(skmt)
 	reqManager.Initialize(Me, DBReqServer)
 '	StartService(NotificationService)
 End Sub