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_Cuestionario.bas

@@ -139,7 +139,7 @@ Private Sub bAceptarPregunta_Click
 End Sub
 
 'Regresa verdadero si el cliente dado tiene cuestionario contestado.
-Sub clienteConEncuesta(idCliente As String) As Boolean 'ignore
+Sub clienteConCuestionario(idCliente As String) As Boolean 'ignore
 	Private r As Boolean = False
 	Private c As Cursor = db.ExecQuery($"select count(*) as q from CUESTIONARIO where Q_IDCLIENTE = '${idCliente}'"$)
 	c.Position = 0