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

VERSION 6.03.17

Browse Source 
- Se cambio el query de conexion para poder bliquera versiones viejas!
This commit is contained in:
Jose Alberto Guerra Ugalde
2026-04-15 10:01:02 -06:00
parent 028d200cc2
commit 88fb12a277
2 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
B4A/C_Principal.bas
View File

@@ -1206,7 +1206,7 @@ Sub JobDone(Job As HttpJob)
If n = "OKActivo" Then
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_ruta_INTMEX_7"
cmd.Name = "select_ruta_INTMEX_8"
cmd.Parameters = Array As Object(ALMACEN,e_ruta.text)
Log($"${ALMACEN},${e_ruta.text},${imei}"$)
reqManager.ExecuteQuery(cmd , 0, "ruta")
@@ -2164,7 +2164,7 @@ Sub connecta_Click
Log(usrT)
Log(passT)
cmd.Initialize
cmd.Name = "select_usuario_INTMEX_10"
cmd.Name = "select_usuario_INTMEX_11"
cmd.Parameters = Array As Object(usrT, passT)
reqManager.ExecuteQuery(cmd , 0, "usuarioA")
End If