cheveguerra/Guna_Preventa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Guna_Preventa.git synced 2026-04-17 21:06:32 +00:00
Code Issues Packages Projects Releases Wiki Activity

6.02.16

Browse Source 
se agregan las encuestas de bat
This commit is contained in:
cvaldes1201
2026-04-13 11:27:15 -06:00
parent 696c3439b9
commit 0f6bf7f62a
15 changed files with 1145 additions and 155 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
B4A/Subs.bas
View File

@@ -779,7 +779,7 @@ End Sub
Sub traeRuta2 (cliente As String) As String 'ignore
Private c As Cursor
Private r As String
c=B4XPages.MainPage.skmt.ExecQuery($"select CAT_CL_RUTA from kmt_info where CAT_CL_CODIGO = '${cliente}' UNION ALL select CAT_CL_RUTA from kmt_info2 where CAT_CL_CODIGO = '${cliente}'"$)
c=B4XPages.MainPage.skmt.ExecQuery($"select CAT_CL_RUTA from kmt_info3 where CAT_CL_CODIGO = '${cliente}'"$)
r = "0"
If c.RowCount > 0 Then
c.Position=0