- VERSION 5.09.14

- Se corrigio unerror en Login, que oermitia que se guardara la contraseña con espacios y al cargar ruta ya en Principal causaba problemas.

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