From faa20b0d1fee21d9fb2f2b6c7bfcffe1187f7dba Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Mon, 15 Sep 2025 15:03:25 -0600 Subject: [PATCH] =?UTF-8?q?-=20VERSION=205.09.14=20-=20Se=20corrigio=20une?= =?UTF-8?q?rror=20en=20Login,=20que=20oermitia=20que=20se=20guardara=20la?= =?UTF-8?q?=20contrase=C3=B1a=20con=20espacios=20y=20al=20cargar=20ruta=20?= =?UTF-8?q?ya=20en=20Principal=20causaba=20problemas.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- B4A/B4XMainPage.bas | 8 +++++--- B4A/C_Principal.bas | 1 + B4A/Mariana Censos.b4a | 2 +- B4A/Mariana Censos.b4a.meta | 2 +- 4 files changed, 8 insertions(+), 5 deletions(-) diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index b83f54a..a6cfebc 100644 --- a/B4A/B4XMainPage.bas +++ b/B4A/B4XMainPage.bas @@ -305,6 +305,7 @@ Sub Entrar_Click Dim Api As Int Dim PP As Phone user.Text = user.Text.trim + pass.Text = pass.Text.trim Api = r.GetStaticField("android.os.Build$VERSION", "SDK_INT") If Api < 9 Then 'Old device @@ -368,9 +369,10 @@ Sub Entrar_Click End If c=skmt.ExecQuery2("select count(*) as EXISTE1 from usuarioa where usuario = ?", Array As String(user.Text)) - c.Position=0 + c.Position = 0 existe = c.GetString("EXISTE1") - If existe = 0 Then + Log($"|${existe}|${pass.Text}|"$) + If existe = 0 Or pass.Text <> "" Then 'Si ya hay usuario registrado O ingresaron una nueva ontraseña, entonces buscamos info. Dim cmd As DBCommand cmd.Initialize cmd.Name = "select_usuario_MARDS_10" @@ -485,7 +487,7 @@ Sub JobDone(Job As HttpJob) If user.Text = "KMTS1" Then name = "OKActivo" If name = "OKActivo" Then skmt.ExecNonQuery("delete from usuarioa") - skmt.ExecNonQuery2("INSERT INTO USUARIOA VALUES (?,?)", Array As Object(user.Text, pass.Text)) + skmt.ExecNonQuery2("INSERT INTO USUARIOA VALUES (?,?)", Array As Object(user.Text.trim, pass.Text.trim)) skmt.ExecNonQuery("delete from cat_almacen") skmt.ExecNonQuery2("INSERT INTO CAT_ALMACEN(ID_ALMACEN) VALUES (?)", Array As Object (ID_ALMACEN)) usuario = user.Text diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index 4957192..5506281 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -942,6 +942,7 @@ Sub connecta_Click cmd.Initialize cmd.Name = "select_usuario_guna_MARDS_1" cmd.Parameters = Array As Object(usrT, passT) + Log($"|${usrT}|, |${passT}|"$) B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "usuarioA") End If c.Close diff --git a/B4A/Mariana Censos.b4a b/B4A/Mariana Censos.b4a index cf9cbef..c5641fb 100644 --- a/B4A/Mariana Censos.b4a +++ b/B4A/Mariana Censos.b4a @@ -167,7 +167,7 @@ Version=12.8 #Region Project Attributes #ApplicationLabel: Mariana Censos #VersionCode: 1 - #VersionName: 5.09.13 + #VersionName: 5.09.14 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False diff --git a/B4A/Mariana Censos.b4a.meta b/B4A/Mariana Censos.b4a.meta index c656b72..fecd037 100644 --- a/B4A/Mariana Censos.b4a.meta +++ b/B4A/Mariana Censos.b4a.meta @@ -49,6 +49,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8=1 ModuleClosedNodes9=1 -NavigationStack=C_Principal,b_subir_Click,442,0,Diseñador Visual,principal.bal,-100,3,C_Cliente,mandaPendientes,449,0,Main,Process_Globals,18,0,B4XMainPage,Class_Globals,21,0,Diseñador Visual,cliente.bal,-100,2,Diseñador Visual,clienteDatos.bal,-100,2,MAPA_RUTAS,MapFragment1_Ready,206,6,C_Principal,cargar_Click,507,0,C_Cliente,et_cp_TextChanged,518,0,C_Cliente,B4XPage_Appear,234,0 +NavigationStack=Main,Process_Globals,19,0,C_Principal,B4XPage_CloseRequest,917,0,C_Principal,JobDone,907,0,C_Principal,connecta_Click,928,4,B4XMainPage,Class_Globals,17,0,B4XMainPage,JobDone,482,2,Diseñador Visual,login.bal,-100,3,B4XMainPage,Entrar_Click,300,6,B4XMainPage,B4XPage_Appear,295,0,Main,Globals,22,0 SelectedBuild=0 VisibleModules=14,2,9,4,8,15,7,16,13,5