From ef1c9fe058e55f801cb3b054f5c5afea8aba8520 Mon Sep 17 00:00:00 2001 From: Javier Date: Wed, 14 Jan 2026 11:51:35 -0600 Subject: [PATCH] ... --- B4A/C_Principal.bas | 2 +- B4A/C_Productos.bas | 3 ++- B4A/Durakelo.b4a | 2 +- B4A/Durakelo.b4a.meta | 2 +- B4A/Starter.bas | 4 ++-- 5 files changed, 7 insertions(+), 6 deletions(-) diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index aea1649..7947fe2 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -1220,7 +1220,7 @@ Sub JobDone(Job As HttpJob) If n = "OKActivo" Then Dim cmd As DBCommand cmd.Initialize - cmd.Name = "select_ruta_DUR4" 'Se cambio de "select_ruta_DUR2_2" el 28/5/2024 para poder deshabilitar el query de las versiones anteriores. + cmd.Name = "select_ruta_DUR5" 'Se cambio de "select_ruta_DUR2_2" el 28/5/2024 para poder deshabilitar el query de las versiones anteriores. cmd.Parameters = Array As Object(ALMACEN,e_ruta.text,imei) Log($"${ALMACEN},${e_ruta.text},${imei}"$) reqManager.ExecuteQuery(cmd , 0, "ruta") diff --git a/B4A/C_Productos.bas b/B4A/C_Productos.bas index ff8c63a..8fc95c0 100644 --- a/B4A/C_Productos.bas +++ b/B4A/C_Productos.bas @@ -520,7 +520,8 @@ Private Sub B4XPage_CloseRequest As ResumableSub Return False else If entro = "4" Then entro = "3" - B4XPage_Appear +' B4XPage_Appear178 + Subs.iniciaActividad("Cliente") Return True Else If entro = "3" Then Subs.iniciaActividad("Cliente") diff --git a/B4A/Durakelo.b4a b/B4A/Durakelo.b4a index 2e9e37f..ddbd654 100644 --- a/B4A/Durakelo.b4a +++ b/B4A/Durakelo.b4a @@ -1409,7 +1409,7 @@ Version=12.8 #Region Project Attributes #ApplicationLabel: Durakelo #VersionCode: 1 - #VersionName: 5.05.25 + #VersionName: 5.10.25 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False diff --git a/B4A/Durakelo.b4a.meta b/B4A/Durakelo.b4a.meta index 8d596df..89f70f4 100644 --- a/B4A/Durakelo.b4a.meta +++ b/B4A/Durakelo.b4a.meta @@ -73,6 +73,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=Main,Activity_ActionBarHomeClick,35,0,Subs,procesaPromocion,1017,0,Subs,traePromo,829,6,Main,Globals,22,0,Subs,revisaFechaVigenciaPromo,1502,6,Tracker,CreateLocationRequest,112,0,Starter,ENVIA_ULTIMA_GPS,89,0,Starter,Process_Globals,20,1,C_Principal,Subir_Click,575,0,C_Principal,cargar_Click,886,2 +NavigationStack=Subs,revisaFechaVigenciaPromo,1502,6,Tracker,CreateLocationRequest,112,0,Starter,ENVIA_ULTIMA_GPS,89,0,C_Principal,Subir_Click,575,0,C_Principal,cargar_Click,886,2,C_Productos,Class_Globals,0,0,C_Productos,B4XPage_CloseRequest,516,0,Starter,Process_Globals,24,1,C_Principal,B4XPage_Appear,291,0,C_Principal,connecta_Click,2005,0,C_Principal,JobDone,1216,0 SelectedBuild=0 VisibleModules=22,2,10,4,11,23,12,8,24 diff --git a/B4A/Starter.bas b/B4A/Starter.bas index 2aa5b53..b95aff9 100644 --- a/B4A/Starter.bas +++ b/B4A/Starter.bas @@ -27,8 +27,8 @@ Sub Process_Globals Dim Interval As Int = 300 Private flpStarted As Boolean ' Dim DBReqServer As String = "http://keymon.lat:1781" -' Dim DBReqServer As String = "http://keymon.net:1781" - Dim DBReqServer As String = "http://192.99.93.204:1781" + Dim DBReqServer As String = "http://keymon.net:1781" +' Dim DBReqServer As String = "http://192.99.93.204:1781" Dim FECHA_HOY As String Dim tipov As String = "" Dim muestraProgreso = 0