cheveguerra/Mariana-Reparto-V5
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Mariana-Reparto-V5.git synced 2026-04-20 22:29:31 +00:00
Code Issues Packages Projects Releases Wiki Activity

- VERSION 5.06.06

Browse Source 
- Se agregó en MAPA_RUTAS que si la latitus es 'null' (string) no la muestre.
- Se agregó que al iniciar MainPage lea de CAT_VARIABLES el servidor de reqManager.
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-06-07 13:27:28 -06:00
parent 53a706a9d1
commit c0bdd75fd0
4 changed files with 118 additions and 107 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
B4A/B4XMainPage.bas
View File

@@ -223,6 +223,12 @@ Private Sub B4XPage_Created (Root1 As B4XView)
' IMEN.Text = "" 'P.GetDeviceId
' IMEI = "" 'P.GetDeviceId
' End If
Dim srv As Cursor = Starter.skmt.ExecQuery("select * from cat_variables where cat_va_descripcion = 'SERVER'")
If srv.RowCount > 0 Then
srv.Position = 0
Starter.server = srv.GetString("CAT_VA_VALOR")
server = srv.GetString("CAT_VA_VALOR")
End If
End Sub
Sub B4XPage_Appear
@@ -535,8 +541,8 @@ Private Sub i_engrane_Click
Subs.centraBoton(b_regesar, 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
Subs.panelVisible(p_appUpdate, 0, 0)