From 577248d83ff0b91444ffca7acf05ee63c65ce7e7 Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Thu, 2 Jan 2025 09:50:44 -0600 Subject: [PATCH] - VERSION 4.12.31 - Se quito el mensaje de "NUEVO APK" - Se cambio el puerto del servidor DBReq de 1782 a 1781 --- salma.b4a | 14 +++++++------- seleccion.bas | 8 ++++---- 2 files changed, 11 insertions(+), 11 deletions(-) diff --git a/salma.b4a b/salma.b4a index 26664fb..288aaab 100644 --- a/salma.b4a +++ b/salma.b4a @@ -127,7 +127,7 @@ Version=12.8 #Region Project Attributes #ApplicationLabel: Salma-Preventa #VersionCode: 1 - #VersionName: 1.11.02 + #VersionName:4.12.31 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False @@ -208,7 +208,7 @@ Sub Activity_Create(FirstTime As Boolean) 'c.Position =0 'server = c.GetString("CAT_CO_CONFIGURACION") 'c.Close - server = "http://keymon.lat:1782" + server = "http://keymon.lat:1781" 'server = "http://10.0.0.205:1782" 'server = "http://177.244.63.54:1782" 'server = "http://keymon.com.mx:1782" @@ -236,7 +236,7 @@ End Sub Sub Activity_Resume 'server = "http://177.244.63.54:1782" 'server = "http://keymon.com.mx:1782" - server = "http://keymon.lat:1782" + server = "http://keymon.lat:1781" 'server = "http://10.0.0.205:1782" reqManager.Initialize(Me, server) Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_ACCESS_FINE_LOCATION) @@ -268,10 +268,10 @@ Sub Activity_Resume DateTime.DateFormat = "yyyyMMdd" sDate=DateTime.Date(DateTime.Now) - If sDate > "20230430" Then - Msgbox("INSTALAR NUEVO APK" ,"AVISO") - Activity_Resume - End If +' If sDate > "20230430" Then +' Msgbox("INSTALAR NUEVO APK" ,"AVISO") +' Activity_Resume +' End If DateTime.DateFormat = "yyyyMMdd" sDate=DateTime.Date(DateTime.Now) diff --git a/seleccion.bas b/seleccion.bas index f777b61..1cd4b2f 100644 --- a/seleccion.bas +++ b/seleccion.bas @@ -108,7 +108,7 @@ End Sub Sub Activity_Create(FirstTime As Boolean) EJECUTANDO=1 'SERVER = "http://keymon.com.mx:1782" - SERVER = "http://177.244.63.54:1782" + SERVER = "http://177.244.63.54:1781" If FirstTime Then reqManager.Initialize(Me, SERVER) @@ -188,7 +188,7 @@ Sub Activity_Resume 'SERVER = "http://keymon.com.mx:1782" 'SERVER = "http://201.99.139.28:1782" 'SERVER = "http://177.244.63.54:1782" - SERVER = "http://keymon.lat:1782" + SERVER = "http://keymon.lat:1781" ' SERVER = "http://10.0.0.205:1782" reqManager.Initialize(Me, SERVER) @@ -1447,13 +1447,13 @@ Sub connecta_Click If connecta1 / 2 = 1 Then - SERVER = "http://keymon.lat:1782" + SERVER = "http://keymon.lat:1781" ' SERVER = "http://10.0.0.205:1782" 'SERVER = "http://keymon.com.mx:1782" 'SERVER = "http://177.244.63.54:1782" reqManager.Initialize(Me, SERVER) Else - SERVER = "http://keymon.lat:1782" + SERVER = "http://keymon.lat:1781" ' SERVER = "http://10.0.0.205:1782" 'SERVER = "http://keymon.com.mx:1782" ' SERVER = "http://177.244.63.54:1782"