Cambios en ticket

B4A/Starter.bas

@@ -32,9 +32,12 @@ Sub Process_Globals
 	Private logcat As LogCat
 	Dim muestraProgreso = 0
 	Dim logger As Boolean = False
+	Dim MAC_IMPRESORA As String
 	Dim marcaCel As String = ph.manufacturer
 	Dim tabla As String
 	Dim pre_viejo As Float
+	Private BTAdmin As BluetoothAdmin
+	Public BluetoothState As Boolean
 End Sub
 
 Sub Service_Create
@@ -43,6 +46,7 @@ Sub Service_Create
 	gps.Initialize("GPS")
 	s.Initialize(Me, "Subs") 'Inicializamos la clase Subs
 	skmt = s.inicializaBD(File.DirInternal, "kmt.db")
+	BTAdmin.Initialize("admin")
 '	CallSubDelayed(FirebaseMessaging, "SubscribeToTopics") 'Para Push FirebaseMessaging
 	Timer1.Initialize("Timer1", Interval * 1000)
 	Timer1.Enabled = True
@@ -54,6 +58,12 @@ Sub Service_Create
 '	CallSubDelayed(FirebaseMessaging, "SubscribeToTopics") 'Para Push FirebaseMessaging
 End Sub
 
+Private Sub BTAdmin_StateChanged (NewState As Int, OldState As Int)
+	If logger Then Log("BT state changed: " & NewState)
+	BluetoothState = NewState = BTAdmin.STATE_ON
+'	StateChanged
+End Sub
+
 Sub Service_Start (StartingIntent As Intent)
 	Service.StopAutomaticForeground 'Starter service can start in the foreground state in some edge cases.
 	Subs.revisaBD