3/1/2023 - Se agregaron campos nuevos y scroll a cliente

- Se agregó el telefono y correo a clienets nuevos y clientes viejos.
- Se agregó un scroll a cliente para que se vean todos los campos!

B4A/C_Principal.bas

@@ -233,6 +233,7 @@ Sub Class_Globals
 	Dim l_visitados As Label
 	Dim l_total As Label
 	Dim mapTiempos As Map
+	Private cs As CSBuilder
 End Sub
 
 'You can add more parameters here.
@@ -379,9 +380,11 @@ Sub B4XPage_Appear
 	l_ruta.Text = "0"
 	l_dia.Text = "NINGUNA"
 	If f.RowCount > 0 Then
+		cs.Initialize
 		f.Position = 0
-		l_ruta.Text = f.GetString("CAT_CL_RUTA")
-		l_dia.Text = f.GetString("CAT_CL_DIASEMANA")
+		l_ruta.Text = cs.Append("RUTA ").Color(Colors.RGB(165, 42, 42)).Append(f.GetString("CAT_CL_RUTA")).pop.Append(" CARGADA").popall
+		cs.Initialize
+		l_dia.Text = cs.Append("DÍA CARGADO: ").Bold.Append(f.GetString("CAT_CL_DIASEMANA")).PopAll
 	End If
 	f.Close
 	c.Close
@@ -399,6 +402,7 @@ Sub B4XPage_Appear
 	B4XPages.MainPage.usuario = usuario
 	c.Close
 	CallSub(Starter, "ENVIA_ULTIMA_GPS")
+'	B4XPages.MainPage.nuevoCliente.mandaPendientesNuevosClientes
 End Sub
 
 Sub b_subir_Click
@@ -1039,6 +1043,7 @@ Sub hacer_ped_Click
 End Sub
 
 Sub nvo_cliente_Click
+	B4XPages.MainPage.nuevoCliente.cargarCliente = False
 	B4XPages.ShowPage("NuevoCliente")
 End Sub