From e462283bc59eaf74121f5c6180c02ebe58cabc9d Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Tue, 6 Jan 2026 17:22:01 -0600 Subject: [PATCH] - Se actualizo el servidor a keymon.net --- danvit.b4a | 10 +++++----- danvit.b4a.meta | 4 ++-- pedidos.bas | 2 +- seleccion.bas | 17 ++++++++--------- 4 files changed, 16 insertions(+), 17 deletions(-) diff --git a/danvit.b4a b/danvit.b4a index d7dade9..33925ae 100644 --- a/danvit.b4a +++ b/danvit.b4a @@ -143,12 +143,12 @@ Module9=foto NumberOfFiles=49 NumberOfLibraries=20 NumberOfModules=21 -Version=12.5 +Version=12.8 @EndOfDesignText@ #Region Project Attributes #ApplicationLabel: Danvit-V #VersionCode: 1 - #VersionName: 1.12.06 + #VersionName: 5.12.06 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False @@ -245,7 +245,7 @@ Sub Activity_Create(FirstTime As Boolean) End If C.Close - server = "http://keymon.com.mx:1782" + server = "http://keymon.net:1782" 'server = "http://201.99.139.28:1783" If FirstTime Then reqManager.Initialize(Me, server) @@ -291,9 +291,9 @@ Sub Activity_Resume Log("Sin permisos de almacenamiento") End If 'server = "http://201.99.139.28:1782" - 'server = "http://keymon.com.mx:1782" + 'server = "http://keymon.net:1782" 'server = "http://177.244.63.54:1782" - server = "http://187.189.244.154:1782" + server = "http://keymon.net:1782" ' Log(File.DirInternal) ' If Not(skmt.IsInitialized) Then skmt.Initialize(ruta,"kmt.db", True) : Log("Reinicializamos skmt") reqManager.Initialize(Me, server) diff --git a/danvit.b4a.meta b/danvit.b4a.meta index 30ab73b..055d791 100644 --- a/danvit.b4a.meta +++ b/danvit.b4a.meta @@ -64,6 +64,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=seleccion,connecta_Click,1870,2,Visual Designer,seleccion.bal,-100,1,seleccion,Activity_KeyPress,1868,0,Main,Activity_Create,76,4,Main,Globals,33,0,fila,GPS_LocationChanged,408,0,fila,Guardar_Click,651,0,fila,Activity_Resume,214,6,MAPA_RUTAS,Globals,17,0,Main,Process_Globals,17,0 +NavigationStack=fila,Activity_Resume,214,6,MAPA_RUTAS,Globals,17,0,Main,Process_Globals,17,0,Main,Entrar_Click,195,0,seleccion,Activity_Resume,320,3,seleccion,connecta_Click,1913,0,pedidos,Activity_Create,79,0,seleccion,Activity_Create,217,0,seleccion,Process_Globals,17,0,Main,Activity_Resume,149,3 SelectedBuild=0 -VisibleModules=19,2,4,5,7,8,9,12 +VisibleModules=19,2,4,5,7,8,9,12,18,16 diff --git a/pedidos.bas b/pedidos.bas index 6d92ecb..2089df1 100644 --- a/pedidos.bas +++ b/pedidos.bas @@ -83,7 +83,7 @@ Sub Activity_Create(FirstTime As Boolean) i_fotol.Visible = False If FirstTime Then - reqManager.Initialize(Me, "http://177.244.63.54:1782") + reqManager.Initialize(Me, "http://keymon.net:1782") End If ' valido donde escribo el archivo de la base de datos de kmt ' If File.ExternalWritable Then diff --git a/seleccion.bas b/seleccion.bas index efc2e4f..31216fb 100644 --- a/seleccion.bas +++ b/seleccion.bas @@ -221,8 +221,8 @@ End Sub Sub Activity_Create(FirstTime As Boolean) EJECUTANDO=1 'SERVER = "http://201.99.139.28:1782" - 'SERVER = "http://keymon.com.mx:1782" - SERVER = "http://177.244.63.54:1782" + 'SERVER = "http://keymon.net:1782" + SERVER = "http://keymon.net:1782" If FirstTime Then reqManager.Initialize(Me, SERVER) @@ -322,9 +322,9 @@ End Sub Sub Activity_Resume 'SERVER = "http://201.99.139.28:1782" - 'SERVER = "http://keymon.com.mx:1782" + 'SERVER = "http://keymon.net:1782" 'SERVER = "http://177.244.63.54:1782" - SERVER = "http://187.189.244.154:1782" + SERVER = "http://keymon.net:1782" HORAINGRESO ="000000" reqManager.Initialize(Me, SERVER) @@ -1913,18 +1913,17 @@ Sub connecta_Click ToastMessageShow("Validando Conexión." , True) - If connecta1 / 2 = 1 Then 'SERVER = "http://177.244.63.54:1782" - 'SERVER = "http://keymon.com.mx:1782" + 'SERVER = "http://keymon.net:1782" 'SERVER = "http://201.99.139.28:1782" - SERVER = "http://187.189.244.154:1782" + SERVER = "http://keymon.net:1782" reqManager.Initialize(Me, SERVER) Else - 'SERVER = "http://keymon.com.mx:1782" + 'SERVER = "http://keymon.net:1782" 'SERVER = "http://201.99.139.28:1782" 'SERVER = "http://177.244.63.54:1782" - SERVER = "http://187.189.244.154:1782" + SERVER = "http://keymon.net:1782" reqManager.Initialize(Me, SERVER) End If