From 64461874780d50d595918f80709bb834d9f4b10b Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Fri, 3 Oct 2025 10:31:28 -0600 Subject: [PATCH] - 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. --- B4A/C_Principal.bas | 7 +++---- B4A/KelloggsV4.b4a.meta | 2 +- 2 files changed, 4 insertions(+), 5 deletions(-) diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index 7f01681..08f8c05 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -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") diff --git a/B4A/KelloggsV4.b4a.meta b/B4A/KelloggsV4.b4a.meta index 456f03d..7c7f4d0 100644 --- a/B4A/KelloggsV4.b4a.meta +++ b/B4A/KelloggsV4.b4a.meta @@ -100,6 +100,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=C_TicketsDia,Class_Globals,1,0,C_TicketsDia,ListView1_ItemLongClick,86,2,C_Principal,SUBIR_INFO_PEDIDO,3231,0,Subs,actualizaTET,1526,0,C_Cliente,Guardar_Click,989,2,C_Principal,enviaPedidoCliente,3423,0,C_Principal,JobDone,1813,0,C_Principal,enviaPedido,3368,0,kms_helperSubs,revisaImpresa,1066,0,kms_helperSubs,clienteConDOE,1062,0,B4XMainPage,B4XPage_Created,153,0 +NavigationStack=C_Principal,enviaPedido,3368,0,kms_helperSubs,revisaImpresa,1066,0,kms_helperSubs,clienteConDOE,1062,0,B4XMainPage,B4XPage_Created,153,0,Diseñador Visual,productos.bal,-100,1,Diseñador Visual,principal.bal,-100,1,B4XMainPage,Class_Globals,32,0,C_Principal,connecta_Click,2326,0,C_Principal,connecta2,2334,0,C_Principal,connecta3,2338,0 SelectedBuild=0 VisibleModules=31,1,12,5,16,26,3,32,13,14,19,4,15