mirror of
https://github.com/KeymonSoft/Kelloggs_v4.git
synced 2026-04-22 12:20:09 +00:00
- VERSION 5.10.01
- Se cambio el query de conectar (select_ruta4_KELL) a nueva version (select_ruta5_KELL) para preveeer cuando se quiera bloquear la conexion de versiones viejas.
This commit is contained in:
@@ -2283,7 +2283,7 @@ Sub connecta_Click
|
||||
Else
|
||||
connecta.TextColor = Colors.White
|
||||
End If
|
||||
|
||||
|
||||
kb.HideKeyboard
|
||||
' Log("################# PERMISOS BT: " & Starter.rp.Check("android.permission.BLUETOOTH_CONNECT"))
|
||||
' Log("Permisos BT: " & Starter.rp.Check("android.permission.BLUETOOTH_CONNECT"))
|
||||
@@ -2323,7 +2323,7 @@ Sub connecta_Click
|
||||
conn = "1"
|
||||
|
||||
reqManager.trackInit
|
||||
|
||||
|
||||
linker.verifyDevice(Subs.traeAlmacen, e_ruta.text)
|
||||
|
||||
' Else
|
||||
@@ -2339,11 +2339,10 @@ Sub connecta2
|
||||
reqManager.ExecuteQuery(cmd , 0, "version")
|
||||
End Sub
|
||||
|
||||
|
||||
Sub connecta3
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_ruta4_KELL"
|
||||
cmd.Name = "select_ruta5_KELL"
|
||||
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text, usuario)
|
||||
' Log($"******* Almacen: ${ALMACEN}, ${e_ruta.text}, ${usuario}"$)
|
||||
reqManager.ExecuteQuery(cmd , 0, "ruta")
|
||||
|
||||
Reference in New Issue
Block a user