cheveguerra/Durakelo
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Durakelo.git synced 2026-04-20 20:59:26 +00:00
Code Issues Packages Projects Releases Wiki Activity

12/1/24 - Cambios para la lista de precios de SuperQ

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-01-12 03:26:50 -06:00
parent b1251f0fd6
commit a49828711d
10 changed files with 152 additions and 75 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
B4A/Starter.bas
View File

@@ -26,7 +26,7 @@ Sub Process_Globals
Dim Timer1 As Timer
Dim Interval As Int = 300
Private flpStarted As Boolean
Dim DBReqServer As String = "http://keymon.lat:1782"
Dim DBReqServer As String = "http://keymon.lat:1781"
Dim FECHA_HOY As String
Dim tipov As String = ""
Dim rutav As String = "0"
@@ -38,15 +38,15 @@ Sub Service_Create
CallSubDelayed(FirebaseMessaging, "SubscribeToTopics")
BTAdmin.Initialize("admin")
' serial.Initialize("serial")
If BTAdmin.IsEnabled = False Then
If BTAdmin.Enable = False Then
ToastMessageShow("Error enabling Bluetooth adapter.", True)
Else
ToastMessageShow("Enabling Bluetooth adapter...", False)
End If
Else
BluetoothState = True
End If
' If BTAdmin.IsEnabled = False Then
' If BTAdmin.Enable = False Then
' ToastMessageShow("Error enabling Bluetooth adapter.", True)
' Else
' ToastMessageShow("Enabling Bluetooth adapter...", False)
' End If
' Else
' BluetoothState = True
' End If
Timer1.Initialize("Timer1", Interval * 1000)
Timer1.Enabled = True
End Sub