cheveguerra/ADM2
1
0
Fork 0
mirror of https://github.com/KeymonSoft/ADM2.git synced 2026-04-17 19:36:33 +00:00
Code Issues Packages Projects Releases Wiki Activity

VERSION 5.12.04

Browse Source 
- Cambios en el timer del envio de ubicacion en tiempo real
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-12-26 14:17:13 -06:00
parent 8b5dc8a2a9
commit 7f18e3e8ea
6 changed files with 19 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
B4A/C_Principal.bas
View File

@@ -257,7 +257,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
e.Position=0
f=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info")
f.Position=0
Log("-- A")
' Log("-- A")
l_ruta.Text = f.GetString("CAT_CL_RUTA")
f.Close
If l_ruta.Text = 0 Then
@@ -426,7 +426,7 @@ Sub B4XPage_Appear
f=B4XPages.MainPage.skmt.ExecQuery("select count(*) as CAT_CL_RUTA from kmt_info WHERE CAT_CL_CODIGO <> 0 OR CAT_CL_CODIGO <> 1 ")
f.Position = 0
l_ruta.Text = f.GetString("CAT_CL_RUTA")
Log("-- A:" & l_ruta.Text)
' Log("-- A:" & l_ruta.Text)
f.Close
If l_ruta.Text = 0 Then
l_ruta.Text = 0
@@ -434,7 +434,7 @@ Sub B4XPage_Appear
f=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info")
f.Position=0
l_ruta.Text = f.GetString("CAT_CL_RUTA")
Log("-- A:" & l_ruta.Text)
' Log("-- A:" & l_ruta.Text)
f.Close
End If
If Cuantos = 0 Then
@@ -544,7 +544,7 @@ Sub B4XPage_Appear
l_ruta.Text = 0
Else If s.RowCount > 0 Then
l_ruta.Text = s.GetString("RUTAA")
Log("-- A:" & l_ruta.Text)
' Log("-- A:" & l_ruta.Text)
End If
If l_ruta.Text = "0" Then