Envio correcto de la ubicacion 4_01_17_2

B4A/B4XMainPage.bas

@@ -25,12 +25,12 @@ Sub Class_Globals
 	Public login As B4XMainPage
 	Dim rp As RuntimePermissions
 	Public Provider As FileProvider
-	
+	Dim batt As Int
 	Public principal As C_Principal 'Antes seleccion
 	Public clientes As C_Clientes  'Antes Colonia
 	Public cliente As C_Cliente 'Antes fila
 	Public productos As C_Productos 'Antes colonia2
-	Public updateAvailable As C_updateAvailable
+	Public updateAvailable As C_UpdateAvailable
 ''	Public mapas As C_Mapas
 ''	Public nuevoCliente As C_NuevoCliente
 	Public ticketsDia As C_TicketsDia 'Antes buscar
@@ -38,7 +38,7 @@ Sub Class_Globals
 	Public nota As C_Nota 'Antes tarjeta
 	Public promos As C_Promos
 	Public historico As C_Historico 'Antes historico
-
+	Dim montoActual, clientesTotal, clientesVenta, clientesVisitados,almacen, rutaPreventa As String
 	Dim reqManager As DBRequestManager
 	Dim ultimaActualizacionGPS As String = 235959
 	Dim almacen, ruta As String
@@ -53,7 +53,9 @@ Sub Class_Globals
 	Private b_menu As Button
 '	Dim PopupMenu As RSPopupMenu
 	Dim cmd As DBCommand
-
+	Private bpv1 As BatteryProgressView
+	Dim batterystatus(11) As Int
+	Private bu As BatteryUtilities
 	Private IMEN As EditText
 	Private Entrar As Button
 	Private Panel1 As Panel
@@ -194,6 +196,8 @@ Sub B4XPage_Appear
 	End If
 	l_version.Text = Application.VersionName
 '	server = "http://10.0.0.205:1782"
+	bu.Initialize
+	batterystatus = bu.BatteryInformation
 
 	reqManager.Initialize(Me, Starter.DBReqServer)
 	Log(Starter.DBReqServer)