cheveguerra/Mazapa-Reparto
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Mazapa-Reparto.git synced 2026-04-19 13:59:16 +00:00
Code Issues Packages Projects Releases Wiki Activity

Version: 5.06.01

Browse Source 
Se corrigio el tiempo real y se guarda el server si se modifica
This commit is contained in:
IsR0d
2025-06-05 18:42:39 -06:00
parent cfe90f8b53
commit 5c8dde28d1
593 changed files with 23816 additions and 117988 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
B4A/B4XMainPage.bas
View File

@@ -226,6 +226,8 @@ Private Sub B4XPage_Created (Root1 As B4XView)
' Dim P As PhoneId
Log("provider")
Provider.Initialize
Subs.guardaAppInfo
' Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_READ_PHONE_STATE)
' Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
@@ -625,10 +627,17 @@ Private Sub i_engrane_Click
Subs.centraBoton(b_arqueocieego, Root.Width)
Subs.centraBoton(b_server, p_serverList.Width)
lv_server.Clear
lv_server.AddSingleLine("http://keymon.lat:1782")
If user.Text = "KMTS1" Then lv_server.AddSingleLine("http://10.0.0.205:1782")
lv_server.AddSingleLine("http://keymon.net:1781")
If user.Text = "KMTS1" Then lv_server.AddSingleLine("http://10.0.0.205:1781")
' l_server.Text = Starter.server
et_server.Text = server
Dim serv As Cursor = Starter.skmt.ExecQuery($"SELECT CAT_VA_VALOR FROM CAT_VARIABLES where CAT_VA_DESCRIPCION = 'SERVER'"$)
If serv.RowCount > 0 Then
serv.Position = 0
et_server.Text = serv.GetString("CAT_VA_VALOR")
server = serv.GetString("CAT_VA_VALOR")
Starter.server = serv.GetString("CAT_VA_VALOR")
End If
Subs.panelVisible(p_appUpdate, 0, 0)
c = Starter.skmt.ExecQuery("SELECT HABILITADO FROM GPS")