- 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

B4A/C_Cliente.bas

@@ -242,6 +242,7 @@ Sub B4XPage_Appear
 			et_telefono.Text = c.GetString("CAT_CL_TELEFONO")
 			et_email.Text = c.GetString("CAT_CL_EMAIL")
 			et_estado.Text = c.GetString("CAT_CL_EDO")
+			et_municipio.Text = c.GetString("CAT_CL_MUNI")
 			desdeBD = True
 			et_cp.Text = c.GetString("CAT_CL_CP")
 			et_calle.Text = c.GetString("CAT_CL_CALLE")

B4A/C_Principal.bas

@@ -588,7 +588,7 @@ Sub JobDone(Job As HttpJob)
 					B4XPages.ShowPage("B4XMainPage")
 				End If
 				Log("*****************  "&n)
-			End If
+			End If 
 
 			If RESULT.Tag = "kmt_datos" Then 'query tag
 '				Subs.logJobDoneResultados(RESULT)
@@ -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