- 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

@@ -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

B4A/MAPA_RUTAS.bas

@@ -217,10 +217,16 @@ Sub MapFragment1_Ready
 '		c3 = skmt.ExecQuery($"Select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT, CAT_CL_SECUENCIA from kmt_info 
 '			where CAT_CL_CODIGO Not like 'N%' and CAT_CL_SECUENCIA = 0 and CAT_CL_LAT is not null and CAT_CL_LONG is not null 
 '			And CAT_CL_LAT <> 0 And CAT_CL_LONG <> 0 and CAT_CL_ESTATUS <> 'Inactivo' and CAT_CL_ESTATUS <> 'Activo'"$) ' Se agrego la condicion de "<> inactivo" para que solo aparezcan los "cerrados permanentes" y no los inactivos.
+'		c3 = skmt.ExecQuery($"Select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT, CAT_CL_SECUENCIA from kmt_info 
+'			where CAT_CL_CODIGO Not like 'N%' and CAT_CL_LAT is not null and CAT_CL_LONG is not null 
+'			And CAT_CL_LAT <> 0 And CAT_CL_LONG <> 0 and CAT_CL_ESTATUS = 'Activo' and HV_MOTIVO = 'CERRADO_XXXXX'"$)
 		c3 = skmt.ExecQuery($"Select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT, CAT_CL_SECUENCIA from kmt_info 
-			where CAT_CL_CODIGO Not like 'N%' and CAT_CL_LAT is not null and CAT_CL_LONG is not null 
+		where cat_cl_estatus = 'Inactivo'
-			And CAT_CL_LAT <> 0 And CAT_CL_LONG <> 0 and CAT_CL_ESTATUS = 'Activo' and HV_MOTIVO = 'CERRADO_XXXXX'"$)
+		and date( -- Para traer la fecha del string
-			
+			substr(cat_cl_fecha_captura, 7, 4) || '-' ||  -- año
+		    substr(cat_cl_fecha_captura, 4, 2) || '-' ||  -- mes
+		    substr(cat_cl_fecha_captura, 1, 2)            -- día
+		) >= date('now', '-2 months')"$)
 		Log($"Select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT, CAT_CL_SECUENCIA from kmt_info where CAT_CL_CODIGO Not like 'N%' and CAT_CL_SECUENCIA = 0 and CAT_CL_LAT is not null and CAT_CL_LONG is not null And CAT_CL_LAT <> 0 And CAT_CL_LONG <> 0 and CAT_CL_ESTATUS <> 'Inactivo'"$)
 		Log($"============== Rojo Resultados = ${c3.RowCount}"$)
 		For i = 0 To c3.RowCount -1

B4A/Mariana Censos.b4a

@@ -167,7 +167,7 @@ Version=12.8
 #Region  Project Attributes 
 	#ApplicationLabel: Mariana Censos
 	#VersionCode: 1
-	#VersionName: 5.06.05
+	#VersionName: 5.09.14
 	'SupportedOrientations possible values: unspecified, landscape or portrait.
 	#SupportedOrientations: portrait
 	#CanInstallToExternalStorage: False

B4A/Mariana Censos.b4a.meta

@@ -43,12 +43,12 @@ ModuleClosedNodes15=
 ModuleClosedNodes16=4,5,6,10,13,17,18,19
 ModuleClosedNodes2=
 ModuleClosedNodes3=
-ModuleClosedNodes4=
+ModuleClosedNodes4=2,4
 ModuleClosedNodes5=
 ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=1
 ModuleClosedNodes9=1
-NavigationStack=C_Principal,B4XPage_Created,240,0,C_Principal,JobDone,585,0,B4XMainPage,Class_Globals,77,0,B4XMainPage,B4XPage_Appear,235,0,Subs,traeUsarIntentBDWA,1335,0,B4XMainPage,B4XPage_Created,163,0,Subs,importaBDDesdeWhatsApp,1380,6,Subs,CreateBitmapWithNumber,1394,0,MAPA_RUTAS,Activity_Create,66,0,MAPA_RUTAS,MapFragment1_Ready,248,6
+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