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

Version 4.08.18.EP_d la ruta se agrego al fin día para la bitacora GPS

Browse Source
This commit is contained in:
IsR0d
2024-08-22 11:30:45 -06:00
parent cb2290b729
commit 9a3fe60aa7
5 changed files with 27 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
B4A/Subs.bas
View File

@@ -661,7 +661,7 @@ End Sub
Sub traeRuta As String 'ignore
Private c As Cursor
Private r As String
c=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info2 where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
c=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info2 limit 1")
r = "0"
If c.RowCount > 0 Then
c.Position=0