por que guerra no subio sus cambios :p

B4A/Starter.bas

@@ -32,6 +32,7 @@ Sub Process_Globals
 	Private BTAdmin As BluetoothAdmin
 	Dim MAC_IMPRESORA As String
 	Public BluetoothState As Boolean
+	Dim ubicacionActual As Location
 End Sub
 
 Sub Service_Create
@@ -48,6 +49,7 @@ Sub Service_Create
 	#end if
 	logs.Initialize
 	CallSubDelayed(FirebaseMessaging, "SubscribeToTopics") 'Para Push FirebaseMessaging
+	ubicacionActual.Initialize
 End Sub
 
 Private Sub BTAdmin_StateChanged (NewState As Int, OldState As Int)