jueves, 4 de julio de 2013

Error al hacer click en un diagrama EF, el valor no puede ser nulo, nombre del parametro=Font

Enunciado:

En el Diseñador de Diagramas de Entity Framework de Visual Studio 2012.
Al hacer clic sobre una relación salta un error:
El valor no puede ser nulo, nombre del parámetro: Font.
Cuando aceptas el mensaje el diagrama es reemplazado por una aspa roja.
Si cierra y vuelves a abrir el diagrama se ve correcto pero el fallo sigue produciéndose.

Solución:

La solución que circula por la red es:
En panel de control/desinstalar programas busca y repara Entity Framework Designer for visual studio 2012.
Yo tenia dos instancias ENU y ESN y reparé las dos para curarme en salud.
Lo hice con Visual Studio 2012 cerrado, pero al volverlo a abrir seguía fallando.
Al final reinicié la maquina y se había arreglado.


miércoles, 19 de junio de 2013

Error 3034 en un modelo Entity Framework

Enunciado:

Al compilar un proyecto con un modelo Entity Framework creado en el EF Designer desde una base de datos existente te encuentras con este error:
Error 3034: Hay un problema en los fragmentos de asignación con inicio en las líneas 275, 284: Dos entidades con claves diferentes están asignadas a la misma fila. Asegúrese de que los dos fragmentos de la asignación no asignan dos grupos de entidades con claves solapadas al mismo grupo de filas.

Solución:

Elimina todas las entidades y vuelve a añadirlas desde la base de datos.

Comentario:

Después de mucho googlear volví a encontrarme con el chiste del ingeniero, el economista y el informático a los que se les estropea el coche en medio de una tormenta.........

sábado, 15 de junio de 2013

Insertar en multiples webs el aviso legal del uso de cookies

Enunciado

Alojas en uno mas servidores sitios web que utilizan Google Analytics (GA) para el seguimiento de visitas.
Dado que GA utiliza cookies para el seguimiento del usuario, estas obligado por el artículo 4 del Real Decreto Ley 13/2012 a visualizar una advertencia del uso estas cookies y permitir su eliminación.
Pero:
  • Son varios sitios web.
  • Algunos no los has desarrollado tú, ni llevas su mantenimiento.
  • Utilizan distintas técnicas de servidor para llamar al código GA.
¿Cómo visualizas el panel con mínimo esfuerzo y perjuicio de los sitios?
Contexto
IIS 7.5 c/ URL-Rewrite module 2.0 instalado.

Prefacio sobre la ley

Antes de presentar mi solución quiero comentar los aspectos legales de este panel. No soy abogado y puedo equivocarme muy facilmente, si tienes dudas asegúrate con expertos.

Sobre la obligatoriedad de visualizar el panel citado existen diversas opiniones,incluso mucha gente opina que no es obligatorio. Al fin y al cabo estas cookies no almacenan información personal.

Pero si consultas la Guia sobre el uso de las cookies que ha publicado la Agencia Española de Protección de Datos en la página 8, en el tipo de Cookie de Análisis (que son la de Google) leeras:

Cookies de análisis: Son aquéllas que permiten al responsable de las mismas, el seguimiento y análisis del comportamiento de los usuarios de los sitios web a los que están vinculadas. La información recogida mediante este tipo de cookies se utiliza en la medición de la actividad de los sitios web, aplicación o plataforma y para la elaboración de perfiles de navegación de los usuarios de dichos sitios, aplicaciones y plataformas, con el fin de introducir mejoras en función del análisis de los datos de uso que hacen los usuarios del servicio.
Respecto al tratamiento de datos recabados a través de las cookies de análisis, el grupo de trabajo del articulo 29 ha manifestado que, a pesar de que no están exentas del deber de obtener un consentimiento informado para su uso, es poco probable que representen un riesgo para la privacidad de los usuarios siempre que se trate de cookies de primera parte, que traten datos agregados con una finalidad estrictamente estadística, que se facilite información sobre sus uso y se incluya la posibilidad de que los usuarios manifiesten su negativa sobre su utilización

Yo interpreto de este texto que es obligatorio un panel que informe del uso de cookies y permita desactivarlas. Otra cosa es que el número de sitios que violen la legalidad sea tan grande y el delito tan pequeño que la mayoría se libren de la sanción.

Otro tema a discutir es el contenido, permanencia y flujo del panel.

En mi caso visualizo el panel al principio de cada sesión, informo y doy la oportunidad de desactivar las cookies. Si pasan a otra página el panel ya no aparece. En cualquier caso el panel les informa de que pueden volver a activar o desactivar las cookies accediendo a la política de privacidad del sitio.

Dos sitios para leer sobre este tema son: Analítica Web o LetsLaw

Solución técnica

Resumiendo lo que vamos a hacer:
La primera vez que un usuario acceda a alguna página de alguno de nuestros sitios web aparecerá en la parte superior un panel informativo que:
  • Informará del uso de cookies analíticas que respentan la privacidad.
  • Permitirá deshabilitar estas cookies.
Por ejemplo:
Uso de cookies: Según la legislación española tiene la posibilidad de desactivar las cookies analíticas. Usamos estas cookies para mejorar nuestros servicios, respetando su privacidad y sin almacenar datos personales. Para recuperar este panel acceda a la política de privacidad del sitio.

Este panel se visualizará solo al visualizar la primera página. El efecto de deshabilitar las cookies será borrarlas  inmediatamente y luego cada vez que se cargue una página del sitio. El borrado será selectivo, respetando las cookies técnicas.

Lo importante de nuestra solución es que no modificaremos ninguna página directamente,  usaremos el modulo url-Rewrite de IIS7.5  para  inyectar en la página código JavaScript almacenado en un punto común.

Es una solución similar pero independiente a la que mostré en un post anterior Insertar código de seguimiento Google Analytics sin editar todas las páginas, ambas soluciones son compatibles pero no se requieren.

Veamos primero la regla de salida (outbound-rule) del modulo url-rewrite tal como se almacena en el Web.config de cada sitio:

   
       
            
            
      
    
    
        
             
             
        
        

La regla busca la etiqueta </head> y le antepone el siguiente código:
<link href="http://www.miHost.es/LSSI/CookiesPolicy.css" rel="stylesheet" type="text/css">
<script src="http://code.jquery.com/jquery-1.10.1.min.js" type="text/javascript">
<script src="http://www.miHost.es/LSSI/jquery.cookies.2.2.0.min.js" type="text/javascript">
<script src="http://www.miHost.es/LSSI/CookiesPolicy.js" type="text/javascript">

Dado que la etiqueta </head> aparece frecuentemente en código java generado por ASP.net, la regla utiliza una pre-condición (a continuación de la definición) para que se aplique solo al contenido HTML. Esto se consigue con dos requisitos:
  • Exigiendo que el REQUEST-CONTENT-TYPE sea text/html
  • Evitando cargar archivos en cuyo nombre (REQUEST-FILE-NAME) aparezca la extensión .ashx
Según tu entorno es posible que tengas que añadir mas pre-condiciones, vigila la consola de java por si salen errores.

La página reescrita cargará los siguientes archivos externos:
  • Un hoja de estilo que se aplicará al panel.
  • La librería jQuery
  • La librería de gestión de cookies disponible aquí.
  • Una librería en javaScript que constituye el núcleo de la solución que os presento mas abajo.
Antes de continuar observa que:
  • La libreria jQuery se carga del repositorio CDN
  • El CSS y las otras dos librerías se cargan de un sitio central  http://www.miHost.es/LSSI que unifica el mantenimiento.
Ese sitio central debe ser tuyo y deberás editar esta parte de la regla para señala al sitio donde almacenas las librerías.

Vamos a ver la librería nuclear:  "cookiesPolicy.js"
$(document).ready(function () {
    if ($.cookies.test() ) { /*si el navegaro no hacepta cookies para que molestarse*/
        var flagCookies = $.cookies.get("banderaCookies");
        if (flagCookies == null) {  /*hay que mostrar el panel */
            $.cookies.set("banderaCookies", "SI");
            genAvisoCookies();
        } else { /*Borramos las cookies que se han creado hasta el momento */
            if ($.cookies.get("banderaCookies") == "NO") {
                borraCookies();
            }
        }
    }; 
});
function borraCookies() {
    /*Borra las cookies de Google y una mia*/
    var dominio = '.' + /\w*\.\w*$/.exec(window.location.host)[0];
    $.cookies.del("__utma", { path: '/', domain: dominio });
    $.cookies.del("__utmb", { path: '/', domain: dominio });
    $.cookies.del("__utmc", { path: '/', domain: dominio });
    $.cookies.del("__utmz", { path: '/', domain: dominio });
    $.cookies.del("__utmv", { path: '/', domain: dominio });
    $.cookies.del("idCart", { path: '/', domain: null });
}
function genAvisoCookies() 
/*Añade un div centrado justo despues de la etiqueta body*/
{
    $("body").prepend("
" + textoCookies() + "
"); $("#desactivarCookies").click(function (e) { $.cookies.set("banderaCookies", "NO"); borraCookies(); window.location.reload(false); }) } function textoCookies() /*implantación de bi-idioma para el panel */ /*Se considera tanto el idioma del navegador como la posibilidad de un parametro lang en el query string*/ { var lang = navigator.language || navigator.userLanguage var param = QueryString("lang"); var texto if ((param=="en-GB") || ((param==null) && !(/es/.test(lang)))) { texto = "Cookies usage:"; texto += " According to Spanish law you have the option of"; texto += " disable analytical cookies." texto += " We use these cookies to improve our services, respecting your privacy and without storing personal data."; texto += " Access the privacy policy to recover this panel."; } else { texto = "Uso de cookies: "; texto += "Según la legislación española tiene la posibilidad de"; texto += " desactivar las cookies analíticas."; texto += " Usamos estas cookies para mejorar nuestros servicios, respetando su privacidad y sin almacenar datos personales."; texto += " Para recuperar este panel acceda a la política de privacidad del sitio."; } return texto } function QueryString(sParam) { /*Funcion de utilidad para extraer el query string*/ var sPageURL = window.location.search.substring(1); var sURLVariables = sPageURL.split("&"); for (var i = 0; i < sURLVariables.length; i++) { var sParameterName = sURLVariables[i].split("="); if (sParameterName[0] == sParam) { return sParameterName[1]; }; } } /*Las funciones siguientes se utilizan en enlaces del documento de politica de privacidad Para volver a activar las cookies o desactivarlas independientemente del panel*/ function activaCookies() { $.cookies.set("banderaCookies", "SI"); if (!$('#centradoAC').length) { genAvisoCookies(); } goToByScroll(); } function desactivarCookies() { $.cookies.set("banderaCookies", "NO"); borraCookies(); if (!$('#centradoAC').length) { genAvisoCookies(); } goToByScroll(); } function goToByScroll() { /*efecto de animación para ir a la parte superior donde se visualiza el panel*/ $('html,body').animate({ scrollTop: $('#centradoAC').offset().top }, 'slow'); }
Antes de explicar esto te advierto una cosa, no soy un experto en javaScript ni jQuery, consigo que mi código funcione pero puede optimizarse, ... y explicarse mejor. Comencemos:

Vemos que al principio...
$(document).ready(function () {
    if ($.cookies.test() ) { /*si el navegaro no hacepta cookies para que molestarse*/
        var flagCookies = $.cookies.get("banderaCookies");
        if (flagCookies == null) {  /*hay que mostrar el panel */
            $.cookies.set("banderaCookies", "SI");
            genAvisoCookies();
        } else { /*Borramos las cookies que se han creado hasta el momento */
            if ($.cookies.get("banderaCookies") == "NO") {
                borraCookies();
            }
        }
    }; 
});
... estamos enlazando el evento documento cargado (jquery document ready) a una función que según convenga puede hacer tres cosas:
  • Nada (si el navegador no soporta cookies, ¿para que molestarse?)
  • Visualizar el panel requerido por la ley (si es la primera vez en esta sesión que accede al sitio)
  • Borra las cookies (si durante esta sesión el usuario ha dicho que no quiere cookies de análisis)
Usamos una cookie de sesion "banderaCookies" que puede valer null, 'SI', 'NO'

La siguiente parte del código...
function borraCookies() {
    /*Borra las cookies de Google y una mia*/
    var dominio = '.' + /\w*\.\w*$/.exec(window.location.host)[0];
    $.cookies.del("__utma", { path: '/', domain: dominio });
    $.cookies.del("__utmb", { path: '/', domain: dominio });
    $.cookies.del("__utmc", { path: '/', domain: dominio });
    $.cookies.del("__utmz", { path: '/', domain: dominio });
    $.cookies.del("__utmv", { path: '/', domain: dominio });
    $.cookies.del("idCart", { path: '/', domain: null });
}
...corresponde al borrado de las cookies. En este código borramos las cookies de Google y una propia insertada desde código.
Si tus desarrolladores usan otras cookies deberas incluirlas aquí (cuidado con el dominio y el path, puede darte problemas).

A continuación tenemos la función se ocupa de insertar el panel:
function genAvisoCookies() 
/*Añade un div centrado justo despues de la etiqueta body*/
{
    $("body").prepend("
" + textoCookies() + "
"); $("#desactivarCookies").click(function (e) { $.cookies.set("banderaCookies", "NO"); borraCookies(); window.location.reload(false); }) }
Vemos que tiene dos partes:
  1. Insertar unos marcos (<div>) con el texto del panel
  2. Enlazar una función a un elemento #desactivarCookies que veremos mas adelante
Para el centrado y maquetado del texto se hace referencia a estilos CSS definidas en el archivo: CookiesPolicy.css.
En mi caso bastaron estos:
#centradoAC {width:100%;text-align:center;}
#marcoAC
{
    background-color: white;
    text-align: left;
    width: 920px;
    margin: 0 auto;
    padding-bottom: 10px;
    font-family: Arial;
    color: #999999;
    font-size: 13px;
    font-weight: lighter;
}
#marcoAC strong {font-weight: bold;}
#marcoAC a:link
{
    color: #999999;
    text-decoration: underline;
    font-weight:normal;
}
#marcoAC a:visited
{
    color: #999999;
    text-decoration: underline;
    font-weight:normal;
}
#marcoAC a:link
{
    text-decoration: underline;
    font-weight:normal;
}
#marcoAC a:visited
{
    color: #999999;
    text-decoration: underline;
    font-weight:normal;
}
#marcoAC a:hover
{
    color: #999999;
    text-decoration: underline;
    font-weight:bold;
}
(Nuevamente, no soy un experto en nada, tampoco en CSS)
Según la variedad y modernidad de tus diseñadores webs es posible que tengas que alterar mas o menos estas clases. ¡Suerte!.
En mi caso basta que el panel se vea así:
Con un ancho de 900px que se adapta bien a diseños no adaptativos (valga la redundancia).
Siguiendo con el código javaScript, tenemos la generación del texto dentro del panel en dos idiomas:

function textoCookies()
/*implantación de bi-idioma para el panel */
/*Se considera tanto el idioma del navegador como la posibilidad de un parametro lang en el query string*/
{
var lang = navigator.language || navigator.userLanguage
var param = QueryString("lang");
var texto
if ((param=="en-GB") || ((param==null) && !(/es/.test(lang)))) {
    texto = "Cookies usage:";
    texto += " According to Spanish law you have the option of";
    texto += " disable analytical cookies."
    texto += " We use these cookies to improve our services, respecting your privacy and without storing personal data.";
    texto += " Access the privacy policy to recover this panel.";
 
}
else {
    texto = "Uso de cookies: ";
    texto += "Según la legislación española tiene la posibilidad de";
    texto += " desactivar las cookies analíticas.";
    texto += " Usamos estas cookies para mejorar nuestros servicios, respetando su privacidad y sin almacenar datos personales.";
    texto += " Para recuperar este panel acceda a la política de privacidad del sitio.";
}
    return texto
}

function QueryString(sParam) {
/*Funcion de utilidad para extraer el query string*/
    var sPageURL = window.location.search.substring(1);
    var sURLVariables = sPageURL.split("&");
    for (var i = 0; i < sURLVariables.length; i++) 
    {
        var sParameterName = sURLVariables[i].split("=");
        if (sParameterName[0] == sParam) 
        {
            return sParameterName[1];
        };
    }
}
Aquí puedes tener variantes (la mas sencilla visualizarlo siempre en español). En mi caso el idioma en la mayor parte de webs viene especificado por un parámetro "lang" del query string. Por si este parámetro está ausente incluyo también el idioma del navegador.

Hasta aquí la visualización inicial del panel.  Pero tambien es conveniente que la política de privacidad del sitio incluya a su vez opciones para activar o desactivar las cookies de análisis.
Por ejemplo:
Si lo desea puede:


  1. Desactivar las cookies de análisis.
  2. Activar las cookies de análisis.

Los editores wysiwig de los gestores de contenido permiten insertar normalmente estos enlaces con referencia a las funciones javaScript siguientes.
/*Las funciones siguientes se utilizan en enlaces del documento de politica de privacidad
Para volver a activar las cookies o desactivarlas independientemente del panel*/
function activaCookies() {
    $.cookies.set("banderaCookies", "SI");
    if (!$('#centradoAC').length) {
        genAvisoCookies();
    }
    goToByScroll();
}

function desactivarCookies() {
    $.cookies.set("banderaCookies", "NO");
    borraCookies();
    if (!$('#centradoAC').length) {
        genAvisoCookies();
    }
    goToByScroll();

}

function goToByScroll() {
/*efecto de animación para ir a la parte superior donde se visualiza el panel*/
    $('html,body').animate({ scrollTop: $('#centradoAC').offset().top }, 'slow');
}

Al situar

Curiosidades

Es curioso que en el momento de redactar el sitio web del gobierno  utiliza cookies de análisis de GA pero no visualiza el panel. ¡ En cierta medida el gobierno viola la ley que el mismo aprobó!
Actualización:
No violan la ley, ¡se excluyeron de la ley!. Bueno al menos en los últimos tiempos han incluido el aviso de cookies y hacen lo que todos.

Todo este trabajo se habría simplificado si la ley hubiera excluido claramente este tipo de cookies. Esto es lo que ha hecho el gobierno francés en su transposición de la directiva europea.

Por que todo esto cacao lo provoca  la Directiva 2009/136/CE. que endureció la Directiva 2002/58/CE
¿No tienen otra cosa que hacer nuestros burócratas europeos?  Por ejemplo, resolver la crisis económica de la zona Euro.

domingo, 9 de junio de 2013

Distintas formas de visualizar datos con gráficos

ENUNCIADO
En un entorno Microsoft quieres visualizar datos mediante gráficos ¿Qué alternativas tienes?
SOLUCIÓN
Cuando hablo de un entorno Microsoft quiero decir que dispones de Visual Studio y SQL Server, pero como veras no me restringiré a las herramientas incluidas en estos paquetes
Visual Studio  con Web Forms tienes una serie de controles para construir gráficos o crear un informe con procesado local. En cuanto a los controles no los he utilizado y no puedo decirte gran cosa sobre ellos. Sobre los informes los he utilizado poco porque al final los informes de servidor tienen mas capacidades. Nos ocuparemos en el siguiente párrafo tienen.
Si dispones de SQL Server puedes utilizar Reporting Services y  diseñarlos con Bussines Inteligence Developper Studio, BIDS en breve.
Las ventajas que aporta este entorno son:
  • Un interfaz gráfico durante el diseño
  • Orientado a la impresión
  • Exportación sencilla a distintos formatos.
Las desventajas que presenta son:
  • Aunque ofrece todos los gráficos clásicos, incluidos los mapas, se echan de menos algunos modelos, por ejemplo los gráficos jerárquicos. 
  • Ajustar los gráficos a los datos en tiempo de ejecución es complicado. (ver  mi ejemplo con mapas)
  • Interacción con los gráficos es limitada
  • Sin animación.
  • En proyectos MVC debes incorporar rutas webFoms.
El desarrollo es muy rápido una vez dominas el modelo conceptual y la exportación a PDF ofrece muchas ventajas, entre otras la capacidad de remitir por eMail los informes.
Pero ¿qué soluciones tienes si quieres gráficos con mas personalización e interactividad?
Entonces debes recurrir a librerías javaScript y preferiblemente proyectos MVC (en un entorno Microsoft, insisto).
¿Qué librerias javaScript utilizar?
La solución mas simple es Google Charts, te ofrece una mayor variedad de gráficos y no hace falta que seas un experto en java.
En cuatro horas desarrollé un gráfico jerárquico de países por distintas clasificaciones y magnitudes, ... pero la presentación resultó demasiado simple comparada con los gráficos obtenidos con Report Server y no triunfó entre mis 'clientes'.
Puedes conseguir mejores resultados con infoVis, Pero mi apuesta en cuanto tenga un proyecto complejo es la librería Data-Driven Documents (D3),  te sugiero que te dediques a navegar entre los ejemplos y entenderás por qué.
 

miércoles, 29 de mayo de 2013

¿Qué significa T4?

Pregunta:

¿De dónde viene el nombre de las plantillas T4?

Respuesta:

Text Template Transformation Toolkit

sábado, 25 de mayo de 2013

Una regla de color uniforme, redondeada, con cero y colores desplazados (y 5)

ENUNCIADO


En la entrada (1) de esta serie definimos los objetivos: una regla de color personalizada para un mapa generado mediante Reporting Services que fuera uniforme, redondeada, con cero y colores desplazados
En la entrada (2) vimos como podemos cargar un informe en memoria, para modificarlo y volcarlo en un control ReportViewer.
En la entrada (3) modificamos la definición XML del informe dejando pendientes las funciones que cálculan los rangos y colores.
En la entrada (4) calculamos los intervalo numéricos de la regla.


En está última entrada de la serie veremos como obtener una escala de colores con degradados centrados en el rango que contiene el valor cero.

En nuestro caso para simplificar y porque los colores son los mas intuitivos situaremos el centro en el color amarillo y degradaremos hacia el azulo por los valores negativos y hacia el rojo por los valores positivos.

En mi algoritmo el color amarillo se situará a la derecha o a la izquierda del cero según el número de rangos que haya en cada lado. El objetivo es aminorar la perdida de definición en los colores y visualizar siempre los tres colores, lo que podría no ocurrir si el cero estuviera en primera o última posición.

SOLUCIÓN

El algoritmo rellena la lista en tres pasos:
Primero por la parte derecha donde:
  • El azul está en máximos (#FF o 255) y decrece hasta casi #00.
  • El rojo y el verde crecen desde #00 hasta  "casi"  #FF
En este punto entra el amarillo (#FFFF00)
Luego la parte derecha:
  • El azul se mantiene en #00
  • El rojo que empieza en casi #FF deberá terminar en #FF (aunque puede sufrir una perdida de intensidad intermedia).
  • El verde empieza el casi #FF pero termina en #00
Obviamente el "truco" del algoritmo está en calcular:

  • El punto medio donde situamos el amarillo
  • Los pasos para cada color en los degradados derecho e izquierdo.
  • 'Operar' con colores para generar el string hexadecimal.


    ''' 
    ''' Calcula un rango de colores que empieza en azul, pasa por el verde en el valor cero y termina en el rojo
    ''' 
    ''' colección de extremos de rango que contiene el valor cero
    ''' devuelve la lista de colores
    ''' 
    Public Function coloresCero(rango As List(Of Double)) As List(Of String)
        Dim colores As New List(Of String)
        Dim posicionMedio = rango.IndexOf(0) + 1
        If posicionMedio > rango.Count / 2 Then posicionMedio -= 1
        Dim cuentaIniciales = posicionMedio - 1
        Dim cuentaFinales = rango.Count - posicionMedio

        Dim pasoInicial = 255 / cuentaIniciales
        Dim pasoMedio = 255 / (cuentaIniciales + 1)

        For i = 0 To cuentaIniciales - 1
            colores.Add(HexString(pasoMedio * i, pasoMedio * i, 255 - pasoInicial * i))
        Next
        colores.Add(HexString(255, 255, 0))
        Dim pasoFinal = 255 / cuentaFinales
        pasoMedio = 255 / cuentaFinales
        For i = 1 To cuentaFinales
            colores.Add(HexString((pasoFinal * i) + (pasoMedio * (cuentaFinales - i)),
                                  pasoMedio * (cuentaFinales - i), 0))
        Next
        Return colores
    End Function

    Function HexString(r As Integer, g As Integer, b As Integer) As String
        ' cálcula el string hexadecimal de color RGB
      Return "#" + hex(r) + hex(g) + hex(b)
    End Function

    Function hex(v As Integer) As String
        ' Obtiene el hexadecimal de un entero con cero por delante si hace falta
        Dim r = String.Format("{0:x}", v)
        If r.Length > 1 Then
            Return r
        Else
            Return "0" + r
        End If

    End Function

Reconozco que hay un poco de juego fácil en la elección de los colores, pero eran los que me pedían. ¡Más fácil habría sido elegir como central el verde¡.

Una regla de color uniforme, redondeada, con cero y colores desplazados (4)

ENUNCIADO

En la entrada (1) de esta serie definimos los objetivos: una regla de color personalizada para un mapa generado mediante Reporting Services que fuera uniforme, redondeada, con cero y colores desplazados
En la entrada (2) vimos como podemos cargar un informe en memoria, para modificarlo y volcarlo en un control ReportViewer.
En la entrada (3) modificamos la definición XML del informe dejando pendientes las funciones que cálculan los rangos y colores.
Durante la modificación de las reglas de color del informe utilizamos una función rangosMapa que desde una sentencia MDX devuelve la lista de valores doubles para construir los rangos de la regla.

Dicho de otra forma, los números que vemos aquí:

Recordemos que estos números deben satisfacer las condiciones:

  1. Cada rango de color debe contener aproximadamente al misma cantidad de países.
  2. Los extremos de cada rango deben redondearse con ceros a la derecha sin afectar la condición anterior.
  3. Si los valores inferior y exterior tienen distinto signo dos rangos de color deben tener como extremo el cero, con mínima afección sobre el requisito 1.

SOLUCIÓN

En nuestro ejemplo los datos provederán de un servidor SQL Server Analisys Services por lo que necesitaremos la librería Microsoft.AnalysisServices.adomdClient 
Imports Microsoft.AnalysisServices.AdomdClient

Dividimos nuestro trabajo en dos pasos: evaluar la sentencia MDX y calcular los rangos:

Public Function RangosMapa (s As String) As List(Of Double, numRangos as Integer)
    Dim lista As List(Of Double)= EvaluaMDX(s)
    Dim Rangos as List (Of Double)=RangosRedondos(lista, NumRangos, 0, True)
    Return (Rangos)
End Function

Evaluar la expresión MDX y almacenamos los resultados en una lista de doubles no tiene gran secreto:

 Public Function EvaluaMDX(s As String) As List(Of Double)
        Dim lista As New List(Of Double)
        Dim cn As New AdomdConnection(My.Settings.SSASConexion)
        cn.Open()
        Dim cmd As AdomdCommand = cn.CreateCommand()
        cmd.CommandText = evaluaSentencia(s)
        Dim lector = cmd.ExecuteReader()
        Do While lector.Read
            lista.Add(lector.GetDecimal(4)) 'el valor está en la posición 4
        Loop
        lector.Close()
        cn.Close()
        cn.Dispose()
        Return (lista)
End Function

El procedimiento siguiente será crear la lista de rangos.

El truco está en ordenar la lista y luego la recorrerla en saltos con un paso calculado desde el total de valores y numero de intervalos que queramos. En cada salto extremos el valor y lo añadimos a la lista de rangos Obtendríamos así una la lista que satisfacerla  la condición 1 más arriba..

Para el caso de que la lista contenga el cero (condición 2), el procedimiento es ligeramente distinto. Trabajamos con dos listas (positivos y negativos) y aplicamos el algoritmo anterior a cada uno de ellos con un numero de rangos en cada lista proporcional a la posición del cero.

Esta lista tendrá valores extraídos de la lista por ejemplo 9457,89. La siguiente tarea será redondear a un múltiplo de 10 sin alterar los valores incluidos en cada rango, por ejemplo 9000,00. pero deberemos hacer evitando afectar el número de valores entre los nuevos extremos.
Veamos el código que quizás sea lo mas simple:
 
   ''' 
    ''' Desde una lista de valores decimales obtiene otra lista de valores decimales que reparte de forma uniforme los valores.
    ''' 
    ''' Lista original
    ''' Número de rangos en los que se repartirá
    ''' número decimales
    ''' Lista de rangos
    ''' 
    Public Function RangosRedondos(lista As List(Of Double), numRangos As Integer, decimales As Integer, redondear As Boolean) As List(Of Double)
        Dim rangos As List(Of Double)
        lista.Sort() 'ordenamos
        'obtención del rango variable 
        If lista(0) <= 0 And lista(lista.Count - 1) >= 0 Then
            'cuando hay un cero deberá aparecer en un extremo de los rangos
            rangos = repartoConCero(lista, numRangos)
        Else
            rangos = reparto(lista, numRangos)
        End If
        'ahora vamos redondeando sin alterar el reparto
        If redondear Then rangos = RedondeoLista(rangos, lista, decimales)
        'y para terminar nos aseguramos de que los valores extremos esten incluidos
        rangos(0) -= 1
        rangos(rangos.Count - 1) += 1
        Return rangos
    End Function

    ''' 
    ''' Crea una lista de rangos que contienen aproximandamente la misma cantidad de elementos
    ''' 
    ''' lista ordenada de números decimales desde donde se genera
    ''' numero de rangos
    ''' lista con numrangos + 1 valores decimales que definen los rangos
    ''' 
    Private Function reparto(lista As List(Of Double), numRangos As Integer) As List(Of Double)
        Dim paso As Decimal = lista.Count / numRangos
        Dim rangos As New List(Of Double)
        rangos.Add(lista(0))
        For i = 1 To numRangos - 1
            rangos.Add(lista(Math.Round(i * paso, System.MidpointRounding.AwayFromZero)))
        Next
        rangos.Add(lista(lista.Count - 1))
        Return rangos
    End Function

    ''' 
    ''' Reparte los valores de una lista decimal que cruza el valor cero entre una serie de rangos.
    ''' Dos rangos compartiran el extremo con valor cero
    ''' 
    ''' lista ordenada de números decimales desde donde se genera
    ''' numero de rangos
    ''' lista con numrangos + 1 valores decimales que definen los rangos
    ''' 
    Private Function repartoConCero(lista As List(Of Double), numRangos As Integer) As List(Of Double)
        Dim Negativos = (From v In lista Where v < 0).ToList
        Dim Positivos = (From v In lista Where v >= 0).ToList
        Dim rangoNegativos = reparto(Negativos, numRangos * Negativos.Count / lista.Count)
        Dim rangoPositivos = reparto(Positivos, numRangos * Positivos.Count / lista.Count)
        If (-rangoNegativos(rangoNegativos.Count - 1)) < rangoPositivos(0) Then
            'el mayor número negativo está mas próximo a cero que el menor positivo
            rangoNegativos(rangoNegativos.Count - 1) = 0
            rangoPositivos.RemoveAt(0)
        Else
            rangoPositivos(0) = 0
            rangoNegativos.RemoveAt(rangoNegativos.Count - 1)
        End If
        Dim resultado As New List(Of Double)
        resultado.AddRange(rangoNegativos)
        resultado.AddRange(rangoPositivos)
        Return resultado
    End Function

    ''' 
    ''' Redondea todo lo posible los valores del rango.
    ''' 
    ''' rango a redondear
    ''' lista que controla el rango
    ''' número de decimales a conservar
    ''' 
    ''' 
    Private Function RedondeoLista(rangos As List(Of Double), lista As List(Of Double), decimales As Integer) As List(Of Double)
        For i = 1 To rangos.Count - 2
            Dim limiteRango = rangos(i)
            'calculamos la diferencia entre el último valor en el rango anterior y el primero del siguiente
            Dim difSupInf = (From v In lista Where v >= limiteRango).Min - (From v In lista Where v < limiteRango).Max
            'calculamos el primer digito no significativo mediante la parte entera del logaritmo en base 10
            Dim factorDigitos = 10 ^ Math.Floor(Math.Log10(difSupInf) + decimales - 1) 'le sumamos los decimales (ver linea siguiente)
            Dim factorDecimales = 10 ^ decimales
            limiteRango *= factorDecimales 'estamos trasladando los decimales a la parte entera.
            limiteRango = Math.Floor(limiteRango / factorDigitos) * factorDigitos
            rangos(i) = limiteRango / factorDecimales
        Next
        Return rangos
    End Function

Antes de terminar llamar la atención sobre dos parámetros que no he comentado:

  • decimales: que permite establecer el número de decimales con los que trabajamos en el redondeo.
  • redondeo: por si en un momento preferimos obtener la lista sin redondeo.
La próxima y última entrada de esta serie definirá una lista de colores para el rango calculado si este contuviera el "cero".