From f4ef7e90d07f9e323e87b9a4326308ed6998173b Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Sat, 12 Apr 2025 12:06:52 -0600 Subject: [PATCH] =?UTF-8?q?-=20VERSION=205.04.10=20-=20Se=20corrigio=20que?= =?UTF-8?q?=20cuando=20la=20app=20esta=20recien=20iniciada,=20al=20entrar?= =?UTF-8?q?=20al=20engrane=20y=20Extras,=20mostraba=20habilitadas=20las=20?= =?UTF-8?q?opciones=20sin=20poner=20contrase=C3=B1a!?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- B4A/B4XMainPage.bas | 3 ++- B4A/KelloggsV4.b4a.meta | 2 +- B4A/Starter.bas | 2 +- 3 files changed, 4 insertions(+), 3 deletions(-) diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index 6444495..e2042c7 100644 --- a/B4A/B4XMainPage.bas +++ b/B4A/B4XMainPage.bas @@ -669,7 +669,8 @@ Sub i_engranes_Click Label1 = ListView1.SingleLineLayout.Label Label1.TextSize = 20 Label1.TextColor = Colors.Black - et_geocerca.Text = ""sdsf + et_geocerca.Text = "." + et_geocerca.Text = "" If user.Text = "KMTS1" Then ListView1.AddSingleLine("http://10.0.0.205:1781") ListView1.AddSingleLine("http://keymon.lat:1781") c = Starter.skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("SERVER")) diff --git a/B4A/KelloggsV4.b4a.meta b/B4A/KelloggsV4.b4a.meta index 705e082..ed72f08 100644 --- a/B4A/KelloggsV4.b4a.meta +++ b/B4A/KelloggsV4.b4a.meta @@ -91,6 +91,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=B4XMainPage,et_geocerca_TextChanged,865,4,DBRequestManager,trackNext,342,0,DBRequestManager,trackInit,333,0,Diseñador Visual,cliente.bal,-100,1,C_Cliente,p_pideGeoPass_Click,4106,0,C_Cliente,b_geopass_Click,4114,6,B4XMainPage,et_maxClientesNuevos_TextChanged,851,0,B4XMainPage,user_EnterPressed,636,0,B4XMainPage,JobDone,556,6,B4XMainPage,i_engranes_Click,680,4 +NavigationStack=B4XMainPage,i_engranes_Click,665,5,B4XMainPage,user_EnterPressed,648,0,Diseñador Visual,cliente.bal,-100,1,C_Cliente,p_pideGeoPass_Click,4106,0,C_Cliente,b_geopass_Click,4114,6,B4XMainPage,JobDone,556,6,B4XMainPage,Class_Globals,22,0,Diseñador Visual,login.bal,-100,3,B4XMainPage,et_geocerca_TextChanged,879,0,B4XMainPage,et_maxClientesNuevos_TextChanged,872,0,Starter,Process_Globals,52,6 SelectedBuild=0 VisibleModules=1,28,11,3,29,12,7,9,17 diff --git a/B4A/Starter.bas b/B4A/Starter.bas index 02fd859..5133261 100644 --- a/B4A/Starter.bas +++ b/B4A/Starter.bas @@ -56,7 +56,7 @@ Sub Process_Globals Dim pingShell As Boolean = False Dim errorConnDBReq As Boolean = False Dim GUID As String = "" - dim passSupervisor as string = "" + dim passSupervisor as string = "13X#X$X46" ' Valor predeterminado DIFERENTE a "" End Sub Sub Service_Create