Para ello, he utilizado un simulador multirrobot ya existente, Gazebo, que forma parte del proyecto Player/Stage. A grandes rasgos, hay que implementar un Controlador que simule la física del quadrotor (para ello he utilizado el modelo desarrollado en la tesis doctoral de Samir Bouabdallah). Además, he desarrollado una pequeña interfaz en Qt, que utilizando libgazebo (librería de comunicación con Gazebo) permite interactuar con el quadrotor.

Al utilizar Gazebo, permite simulaciones multirrobot, adjuntar cámaras, mundos virtuales complejos...

Los fuentes, podéis descargarlos desde el proyecto que he abierto en Sourceforge.

Además, tenéis disponible la memoria del trabajo, con una explicación de "cómo" serían las líneas básicas de construcción de un simulador robótico (de un quadrotor) y las líneas generales de implementación del quadrotor en Gazebo.

Ahora en inglés.

I have developed a Quadrotor simulator using Gazebo. Gazebo is a 3D multirrobot simulator system, that is part of Player/Stage project. So, I have developed a Controller for Gazebo, that implements the dynamic model of Samir Bouabdallah to simulate the flight. I need to make several changes on the Gazebo core to get some information of the body of Quadrotor, to implement a new data structure to interact with or to set the absolute force applied to.

I have developed a Qt client application too. It is an example of how interact with Gazebo using libgazebo, and implements several loopback controllers that set the angular velocities of each rotor to control the flight.

You can download from Sourceforge.

In next post I will try to explain with more details.

Y dentro de las líneas de caos, voy a dedicarme hoy a hablar un poquito de las Qt, mostrando un ejemplo; vamos a crear un widget muy sencillito: En él, y con el ratón pulsado, podremos dibujar, al más puro estilo Paint. La idea es utilizar este widget para capturar trazos de letras. Es decir, el usuario escribirá en él una letra. El widget esperará un tiempo prudencial, y avisará al código principal de que ya tiene la letra capturada. Este código está sacado de mi proyecto QtHandwriteRecog.

Ojo, la versión que pongo aquí NO ES LA IDEAL utilizando las posibilidades gráficas de Qt. Es una BURDA aproximación, pero que permite introducirse en algunos aspectos de las Qt sin llegar a un nivel de complejidad excesiva. Los que os estéis iniciando en las Qt lo entenderéis. Los expertos lo detestaréis. Pero a los primeros, os ayudará a ser los segundos, y detestarlo en un futuro. ;-)

El widget que crearemos será una extensión de QLabel. Es decir, dibujaremos en un QLabel. La razón, es la habilidad de este último para mostrar imágenes (QPixmap) de una forma muy sencilla. Lo mejor es ver la definición del widget e ir comentado particularidades

/***************************************************************************
 copyright            : (C) 2009 by David Pinelo
 email                : adpinelo@yahoo.es
***************************************************************************/
/***************************************************************************
 *   This program is free software; you can redistribute it and/or modify  *
 *   it under the terms of the GNU General Public License as published by  *
 *   the Free Software Foundation; version 2 of the License.               *
 ***************************************************************************/
/***************************************************************************
 Este  programa es software libre. Puede redistribuirlo y/o modificarlo
 bajo  los  trminos  de  la  Licencia  Pblica General de GNU   en  su
 versin 2, publicada  por  la  Free  Software Foundation.
 ***************************************************************************/
#ifndef PAINTWIDGET_H
#define PAINTWIDGET_H

#include <QLabel>
#include <QMouseEvent>
#include <QPainter>
#include <QTimer>
#include <QDebug>

#define DELAY_BETWEEN_TRACES    500
#define IMG_WRITE_X    200
#define IMG_WRITE_Y    250
#define TRACE_WIDTH 5

class PaintWidget : public QLabel
{
Q_OBJECT
private:
 /** Buffer intermedio que contendrá una copia de trabajo de la imágen dibujada. */
 QImage *m_img;
 /** Chivato que indica si se está dibujando */
 bool m_draw;
 bool m_clear;
 /** Para conseguir un trazo continuo, guardamos la posicion
     del ultimo punto dibujado en el evento */
 QPoint m_lastPoint;
 /** Tras escribir un trazo, esperamos un tiempo prudencial por si
     se escribe otro trazo. Caso de no escribirse, se lanza la senial
     de trazo finalizado */
 QTimer *m_timer;
 /** Resolucion de la imagen */
 int m_xRes;
 /** Resolucion de la imagen */
 int m_yRes;

 void viewImage();
 void paintPixel ( const QPoint &pos );
 void drawLine ( const QPoint &orig, const QPoint &dest );
 QPoint scaledPoint ( const QPoint & point );
 void createBufferImg();
 void normalizeImage( QImage &imgNormalized );
 void deleteWhiteSpaces ( QImage &image );

public:
 PaintWidget(QWidget *parent = 0);
 ~ PaintWidget();

 void getNormImage( QImage &image );

 int getXRes();
 int getYRes();
 void setXRes(int x);
 void setYRes(int y);

signals:
 void traceFinish();

public slots:
 void clear();

private slots:
 void isTraceFinish();

protected:
 void mousePressEvent ( QMouseEvent * event );
 void mouseMoveEvent ( QMouseEvent * event );
 void mouseReleaseEvent ( QMouseEvent * event );
};

#endif // PAINTWIDGET_H

La secuencia de eventos para que el usuario escriba un trazo es sencilla:

1. Sitúa el ratón encima del widget.
2. Pulsa y deja pulsado el botón izquierdo del ratón todo el tiempo que quiera dibujar.
3. Mueve el ratón por el widget.
4. Se escribe el trazo.
5. Suelta el ratón, y pasado un tiempo el widget indica que el trazo está finalizado. Este tiempo se establecer por

DELAY_BETWEEN_TRACES

Al realizar un trazo, encontramos algunas dificultades y presento algunas consideraciones:

• Una de ellas es que el trazo es discontínuo por la "coordinación" entre el tiempo de refresco en pantalla y los eventos de captura del ratón. En este widget implementaremos un truco para conseguir un trazo contínuo: Entre evento y evento capturado de movimiento del ratón sobre la imágen, dibujaremos una línea que una los puntos que se pintan con cada evento. Esto proporcionará continuidad al trazo.
• Para no hacer un trazo muy fino, todo el dibujo se realizará con un pincel mayor.
• Para simplificar la lectura de la imagen y tratamiento de la misma, asocio al widget un "buffer" intermedio, una imagen a través del objeto QImage.

Con esto, la implementación en código de este widget sería como sigue:

#include "paintwidget.h"

PaintWidget::PaintWidget(QWidget *parent) : m_img(NULL),
    QLabel(parent)
{
    m_draw = false;
    m_clear = true;

    createBufferImg();

    m_timer = new QTimer(this);
    m_timer->setInterval(DELAY_BETWEEN_TRACES);

    connect(m_timer, SIGNAL(timeout()), this, SLOT(isTraceFinish()));
    viewImage();
}

PaintWidget::~PaintWidget()
{
    delete m_img;
    delete m_timer;
}

void PaintWidget::mousePressEvent ( QMouseEvent * event )
{
    /* Acciones cuando se pulsa el botón:
    -Se activa el chivato de dibujando.
    -Se para el timer que controla si el usuario ha dejado de pulsar
    -Se dibuja el primer punto en la pantalla
    */
    m_draw = true;
    m_timer->stop();
    paintPixel ( event->pos() );
    m_clear = true;
}

void PaintWidget::mouseReleaseEvent( QMouseEvent * event )
{
    /* Al soltar el botón: Se indica que se ha dejado de dibujar. Se inicia el conteo
    de tiempo para saber si el usuario ha terminado de escribir, o es una pequeña pausa
    para "ponerle el punto a la i", por ejemplo */
    m_draw = false;
    m_timer->start();
}

void PaintWidget::mouseMoveEvent( QMouseEvent *event )
{
    if ( !m_draw )
        return;

    /* Al mover el ratón, con el botón pulsado, se pinta los píxeles, y el trazo contínuo */
    paintPixel ( event->pos() );
    // Esto dara continuidad al trazo
    drawLine ( m_lastPoint, event->pos() );
    m_lastPoint = event->pos();
}

void PaintWidget::viewImage()
{
    this->setPixmap(QPixmap::fromImage(*m_img));
}

void PaintWidget::paintPixel ( const QPoint &pos )
{
	// Para que no haya problemas con el escalado, hacemos el trazo algo más grueso
	QPainter paint;
	paint.begin( m_img );
	paint.setBrush( Qt::black );
	paint.drawEllipse(pos, TRACE_WIDTH/2, TRACE_WIDTH/2);
	paint.end();
	viewImage();

}

void PaintWidget::drawLine ( const QPoint &orig, const QPoint &dest )
{
    // Esta funcion da algo de continuidad al trazo
    QPainter paint;
    if ( !orig.isNull() ) {
        paint.begin( m_img );
	for ( int i = 0 ; i < ( TRACE_WIDTH / 2 ) ; i++ ) {
             QPoint pO1 ( orig.x() - i, orig.y() - i );
             QPoint pD1 ( dest.x() - i, dest.y() - i );
             paint.drawLine( pO1, pD1 );
             QPoint pO2( orig.x() + i, orig.y() + i );
             QPoint pD2( dest.x() + i, dest.y() + i );
             paint.drawLine( pO2, pD2 );
        }
        paint.end();
    }
 } 

void PaintWidget::isTraceFinish()
{
    if ( !m_draw && m_clear ) {
        m_timer->stop();
        emit traceFinish();
    }
}

void PaintWidget::getNormImage( QImage ℑ )
{
	image = *m_img;
	normalizeImage ( image );
}

void PaintWidget::clear()
{
    QPoint pnull;
    m_img->fill(1);
    m_clear = true;
    m_lastPoint = pnull;
    viewImage();
}

int PaintWidget::getXRes()
{
	return m_xRes;
}

int PaintWidget::getYRes()
{
	return m_yRes;
}

void PaintWidget::setXRes(int x)
{
	m_xRes = x;
}

void PaintWidget::setYRes(int y)
{
	m_yRes = y;
}

/** \fn PaintWidget::createBufferImg()
  Crea el buffer de imagen intermedio que almacena la imagen
  */
void PaintWidget::createBufferImg()
{
	if ( m_img != NULL ) {
		delete m_img;
	}
	// Solo dos colores: Blanco y negro
	m_img = new QImage(IMG_WRITE_X, IMG_WRITE_Y, QImage::Format_Mono);
	m_img->fill(1);
}

/** \fn PaintWidget::normalizeImage( QImage &imgNormalized )
  Esta función elimina los espacios en blanco alrededor del carácter escrito, y escala
  la imagen a la resolución necesaria
  */
void PaintWidget::normalizeImage( QImage &imgNormalized )
{
	deleteWhiteSpaces ( imgNormalized );
	imgNormalized = imgNormalized.scaled(QSize( m_xRes, m_yRes ));
}

/** \fn PaintWidget::deleteWhiteSpace ( QImage ℑ )
  Esta función elimina los espacios en blanco alrededor del carácter escrito
  */
void PaintWidget::deleteWhiteSpaces ( QImage ℑ )
{
	// Recorremos la imagen, primero para encontrar la primera fila con el primer punto no blanco
	// Después la recorremos en sentido inverso para encontrar la última fila con el último punto no blanco
	// Se hace lo mismo, pero por columnas para la columna derecha e izquierda
	int firstRow = 0, lastRow = image.size().height(), firstCol = 0, lastCol = image.size().width();

	for ( int row = 0 ; row < image.size().height() ; row ++ ) {
		if ( firstRow == 0 ) {
			for ( int col = 0 ; col < image.size().width() ; col ++ ) {
                                if ( image.pixelIndex( col, row ) == 0 ) {
                                        firstRow = row;
                                        if ( firstRow > 0 )
						firstRow --;
					break;
				}
			}
		}
	}
	for ( int row = image.size().height() - 1 ; row > 0 ; row -- ) {
		if ( lastRow == image.size().height() ) {
			for ( int col = 0 ; col < image.size().width() ; col ++ ) {
				if ( image.pixelIndex( col, row ) == 0 ) {
					lastRow = row;
					if ( lastRow < image.size().height() - 1 )
						lastRow++;
					break;
				}
			}
		}
	}
	for ( int col = 0 ; col < image.size().width() ; col++ ) {
		if ( firstCol == 0 ) {
			for ( int row = 0 ; row < image.size().height() ; row ++ ) {
                              if ( image.pixelIndex( col, row ) == 0 ) {
                                    firstCol = col;
                                    if ( firstCol == 0 )
                                         firstCol--;
                                    break;
                              }
                       }
                }
        }
        for ( int col = image.size().width() - 1; col > 0  ; col-- ) {
		if ( lastCol == image.size().width() ) {
			for ( int row = 0 ; row < image.size().height() ; row ++ ) {
				if ( image.pixelIndex( col, row ) == 0 ) {
					lastCol = col;
					if ( lastCol < image.size().width() - 1 )
						lastCol++;
					break;
				}
			}
		}
	}
	image = image.copy ( firstCol, firstRow, (lastCol - firstCol), (lastRow - firstRow));

}

Básicamente, este sería el código. La imagen se normaliza, esto es, una cosa es el tamaño al que se dibuja y otra cómo se quiere obtener la imagen para tratarla (en el caso del programa para el que se escribió este widget, para que la imagen sirva de entrada a una red neuronal).

 /** Para conseguir un trazo continuo, guardamos la posicion
     del ultimo punto dibujado en el evento */

Concremente, escogí como implementación de redes neuronales la Fast Artificial Neural Network, FANN, una excelente implementación realizada en C.  Evidentemente, escogí como librería GUI para realizar el frontend, las Qt.

Los fuentes de la aplicación podéis descargarlos del proyecto que he abierto en Sourceforge, justo aquí.

La idea de funcionamiento de la aplicación es la siguiente:

1. Se le indica a la aplicación los caracteres que se van a reconocer y el número de patrones de ejemplo que se le van a proporcionar. Eso generará un pequeño entrenamiento.
2. Además se configuran algunos parámetros de la red neuronal (tipo de entrenamiento, tasa de aprendizaje, tasa de conexiones iniciales...). Los valores por defecto que vienen en la aplicación funcionan bastante bien.
3. Se entrena la aplicación (y por extensión, las redes neuronales que dan soporte a la aplicación) con tu propia letra (la parte cutre es si no tenéis un lápiz óptico o algo así, que tendréis que hacerlo con vuestro ratón).
4. A partir de aquí, la aplicación debe ser capaz de reconocer tu letra.

Podéis ver un ejemplo de funcionamiento en el vídeo que pongo a continuación. Puede descargarse aquí.

Nosotros vamos a hacer un uso muy parcial de la misma, ya que no vamos a instalar ningún servidor ni nada por el estilo, y sólo vamos a crear un consumidor. No me voy a meter en detalles con gSOAP (ya que se me escapa de los artículos) y sólo comentaré aquellos aspectos que nos interesan para integrar Webservices.

Lo primero, es obtener el WSDL de JasperServer. Para ello, y desde una instalación del mismo, se puede obtener sin más que abrir un navegador y solicitar http://servidor:puerto_tomcat/jasperserver/services/repository?wsdl

Bien. gSOAP proporciona dos ejecutables wsdl2h y soapcpp2 para generar los "proxys", esto es, código C++ que encapsula el acceso por webservices. Los ejecutamos tal que así: (INCLUDEGSOAP es una variable que apunta al directorio de includes de gsoap

echo "" > env.h
soapcpp2 -L -C -d../proxy -penv env.h
# Las dos lineas anteriores son para generar un esqueleto de código de acceso a los webservices, que permitan
# una compilación sin problemas.
wsdl2h -nJasperServer -NJasperServer -y -g -I${INCLUDEGSOAP}/ -o JasperServer.h JasperServer.wsdl
soapcpp2 -C -d../proxy -I${INCLUDEGSOAP}/ -n -pjasperserver -qJasperServer JasperServer.h

Con esto se generan una serie de ficheros, .c, .cpp y .h que incluiremos en AbanQ. Concretamente, a flbase.pro, le añadiremos los siguientes ficheros:

-De la distribución de gsoap directamente
stdsoap2.cpp
-Archivos generados con el código anterior
JasperServerClientLib.cpp
envC.cpp
envClient.cpp
stdsoap2.h
JasperServerrepositorySoapBindingProxy.h
JasperServer.nsmap

Ya podemos meter código propio en AbanQ. En el zip que puse días anteriores, viene todo esto integrado. Destaco aquí el código de acceso a los webservices.

Voy a crear un nuevo método en FLUtil que permita, desde QSA, acceder a los webservices. Ese método será tal que así

// dpinelo
bool FLUtil::downloadJasperServerFile(const QString & xmlRequest, const QString & rutaDestino, QString & mensajeSalida)
{
 bool value = false;
 int r;
 std::string result;
 std::string xml = xmlRequest;

 QSettings settings;
 settings.setPath( "InfoSiAL", "FacturaLUX", QSettings::User );
 QString keybase( "/facturalux/lite/jasperserver/" );
 // Lo hago así para garantizar que los objetos existen hasta el final
 QString *userJasperServer = new QString;
 QString *passwordJasperServer = new QString;
 QString *endPointJasperServer = new QString;
 *userJasperServer = settings.readEntry( keybase + "User", "" );
 *passwordJasperServer = settings.readEntry( keybase + "Password", "" );
 *endPointJasperServer = settings.readEntry( keybase + "EndPoint", "" );

 JasperServer::repositorySoapBinding rep;
 // si lo hago sin punteros, esto es peligroso
 rep.soap->userid = (*userJasperServer).ascii();
 rep.soap->passwd = (*passwordJasperServer).ascii();
 rep.endpoint = (*endPointJasperServer).ascii();

 qDebug("Antes de llamar a jasperserver");
 r = rep.JasperServer__runReport(xml, result);
 if ( r == SOAP_OK ) {
 qDebug("Lo ha llamado y es correcto");
 soap_multipart::iterator attachment = rep.soap->mime.begin();
 ++attachment;
 if ( attachment != rep.soap->mime.end() ) {
 saveDocument (*attachment, rutaDestino);
 value = true;
 } else {
 value = false;
 mensajeSalida = result;
 }
 } else {
 qDebug("Hubo un fallo");
 soap_print_fault(rep.soap, stderr);
 value = false;
 }
 delete userJasperServer;
 delete passwordJasperServer;
 return value;    

}

// dpinelo
void FLUtil::saveDocument(const struct soap_multipart & attachment, const QString & path)
{
 QFile file (path);
 file.open ( IO_WriteOnly | IO_Truncate );
 file.writeBlock(attachment.ptr, attachment.size);
 file.close();
}

Listo. ¿Cómo invocar a un informe en JasperServer? Desde QSA es tan sencillo como: Por ejemplo, para imprimir un recibo de proveedor

function oficial_imprimir(codRecibo:String)
{
 var util:FLUtil = new FLUtil;
 var xml:String = "<request operationName=\"runReport\" locale=\"es\">";
 xml = xml + "<argument name=\"RUN_OUTPUT_FORMAT\">PDF</argument>";
 xml = xml + "<resourceDescriptor name=\"\" wsType=\"\" ";
 xml = xml + "uriString=\"/Documentos/Pagare_a_Proveedores/PagareProveedores\" ";
 xml = xml + "isNew=\"false\">";
 xml = xml + "<label>null</label>";
 xml = xml + "<parameter name=\"P_ID_PAGARE\"><![CDATA[100]]></parameter>";
 xml = xml + "<parameter name=\"ANIO\"><![CDATA[09]]></parameter>";
 xml = xml + "</resourceDescriptor>";
 xml = xml + "</request>";
 var rutaDestino:String = "/home/david/prueba.pdf";
 var mensajeSalida:String;
 util.downloadJasperServerFile ( xml, rutaDestino, mensajeSalida);

}

Como veis, construyo un XML con el formato adecuado, según describe JasperServer, indicando los valores de los parámetros del propio report. El archivo se obtiene directamente en PDF (aunque se puede obtener en otros muchos formatos cambiando el RUN_OUTPUT_FORMAT), y por supuesto, podéis ponerle el nombre que querais. (construid adecuadamente rutaDestino).

La integración seía aún mejor en la medida en la que se oculte ese código XML que se construye en QSA, asociando parámetros de JasperReports/JasperServer con columnas de FLSqlCursor. Pero, a mí, este nivel me sirve.

He creado un .zip con mi versión actual de AbanQ, y digo "mi" versión, porque incluye los múltiples cambios que he ido publicando en este blog, y que enumero

• Formateado automático de los FLFieldDB que contienen números, de tal forma, que las cantidades tales como 100000 se representan como 100.000,00 Esto hace mucho más legible las cantidades. Aquí
• Desde QSA (el lenguaje de scripting) pueden accederse al manejo de los QComboBox (así, por ejemplo, he podido meter en algunos formularios objetos QComboBox y utilizarlos directamente sin necesidad de tener que estar asociados a columnas de bases de datos. Esto es especialmente útil para realizar filtrados de campos estáticos o no guardados en bases de datos).
• Los FLTableDB pueden presentar el resultado de Querys complejas, al agregarse una propiedad: qryVisualizacion. De esta forma, la riqueza visual de lo que pueden representar es mayor. La diferencia con la versión oficial de AbanQ, es que ese FLTableDB no es readonly, sino que se utiliza en la edición, creación y eliminación de registros. Aquí
• Cambios estéticos que afectan principalmente a la versión para Windows, ya que la original, no me gustaba (dejo el tema de windows por defecto, sin modificarlo). Aquí
• Los tamaños y posiciones de los formularios utilizados se almacenan, permitiendo una mejor experiencia del usuario. Aquí.
• Posibilidad de utilizar vistas cuando se utilice un motor PostgreSQL. Esto, entre otras cosas, permite una mejor integración de los datos de otros programas con AbanQ. Aquí
• Corrección de un bug por el que no se filtraban adecuadamente campos con valores int, uint o double. Aquí.
• Incorporación del estilo Windows XP (esto no lo incluye la versión original de AbanQ).
• El código de la integración con JasperServer que se verá en siguientes artículos.

Sólo tenéis que descomprimir el archivo .zip que os adjunto. Una vez hecho esto, si utilizáis Windows, debéis ajustar las variables señaladas en los archivos setenv.bat y build-config.bat. Si utilizáis Linux, debéis hacer lo mismo en el archivo setenv.h

Para compilar en Linux, necesitáis gcc, g++ y demás herramientas que seguro tendréis instaladas. Para compilar en Windows, necesitáis descargaros, MinGW. Además, es conveniente instalar el MinGW API for MS-Windows  de aquí.

Compilación bajo Windows. Ubicados en el directorio donde habéis descomprimido las fuentes, ejecutar en este orden (por si no me explico bien haced un Inicio->Ejecutar-> cmd y cd al directorio en el que tengáis las fuentes ;-):

setenv.bat
build-config.bat
build-pthreads.bat
build-qt.bat
build-qsa.bat
build-abanq.bat

Para los que estéis en Linux, es tan sencillo, como desde una consola, y en el directorio de las fuentes, ejecutar

setenv.sh
compilar-qt.sh
compilar-qsa.sh
compilar-abanq.sh

Por defecto, la versión Windows viene preparada para compilar una versión final con un cliente quick, y la versión de Linux, para compilar una versión debug y con cliente "pesado" o completo.

Tened en cuenta que hay dependencias cruzadas, que no están muy bien resueltas: Por ejemplo, flbase depende de kugar, y kugar depende de flbase... así que al construir por primera vez, puede que os de error (la librería de flbase quiere enlazar a la de kugar, pero la de kugar no está construida porque faltan archivos objetos de flbase que no pueden construirse sin hacer previamente un moc de flbase...). Solución si os perdéis un poco en estos temas: entrad directamente en los directorios (src/flbase o src/kugar) y haced ahí el make.

Espero que con estas herramientas muchos os animéis a compilar y a introducir modificaciones, y corregir los muchos fallos que seguro he cometido. Cuanto más crezca la comunidad, mejor para todos.

Aquí teneís el archivo

Nota: Muchas de las modificaciones necesarias para compilar bajo Windows, las proporcionó juancrobles, a través del foro de AbanQ en Google, a  través de diversos hilos y del fichero Modificaciones_abanq2.3-v1.1.zip disponible aqui.

Me gusta JasperReports: Es una herramienta muy completa, en software libre y que rivaliza con cualquier herramienta de generación de informes (he sido usuario/programador durante mucho tiempo de Crystal Reports y Oracle Reports y realmente, para mis necesidades y según mi experiencia, JasperReports está por encima).

Además, JasperReports, tiene una interfaz de usuario para la edición de informes, iReports. Si la probáis, veréis que es muy muy superior a Kugar o QtDesigner (utilizando esta como generación de informes) y por encima de Crystal Repors, por ejemplo.

Por si esto no fuera poco, dispone de JasperServer que es una aplicación, que actúa como servidor y/o repositorio de los diferentes documentos que generéis con las anteriores aplicaciones. En realidad, es mucho más, tratando de ser una herramienta de Bussiness Inteligence... permitiendo, junto con JasperAnalysis, ser una herramienta de análisis....

La idea de funcionamiento con estas herramientas es la siguiente:

Se instala JasperServer en vuestro servidor. (Yo lo tengo instalado en un Jboss con PostgreSQL). Os proporciona una aplicación web en la que podéis gestionar, administrar y utilizar los informes que vayáis definiendo. No sólo eso, permite programar informes, enviando los resultados a correo electrónico, generación automática de los informes de formato HTML, PDF, Excel, OOffice...

Utilizáis iReport en vuestro ordenador para crear los informes (bien sea con los asistentes o desde cero)... los informes permiten agregarles código Java, con lo cual podéis hacer cualquier cosa, repito cualquier cosa con los informes. Genero documentos, que nunca diríais que están generados por una herramienta de gestión de informes... pensaríais que son cartas escritas por una persona. Desde iReport, y mediante webservices podéis interactuar y manipular el repositorio de JasperServer de una manera muy cómoda, con lo que la  creación, modificación o actualización de informes es una tarea sencilla y fácilmente asumible.

¿Cómo integrar esto con AbanQ? Queremos unir mundo Java y C++... además, queremos integrar un servidor de informes en nuestro AbanQ. Solución: WebServices. JasperServer permite acceder a todo su repositorio desde WebServices... Y eso es lo que haremos en AbanQ. Para ello, integraremos dentro de AbanQ, la librería de C++ gsoap.

Vamos a hacer una integración sencilla, pero funcional (cuando termine los artículos indicaré por dónde creo que deberían ir las líneas de mejora de esto).

En mi afán de tratar de hacer la herramienta aún más usable, echaba en falta una segunda columna de ordenación. Si mi empresa factura todo a través de AbanQ, el número de datos en esa rejilla es grande. Puede filtrarse utilizando el campo de filtro directo que AbanQ provee, pero ese campo de filtro también limita la ordenación de los datos filtrados que se presentan. Tener una segunda columna, como aparece en la imágen, puede ayudar aún más a localizar datos rápidamente.

Bien, veamos cómo hacerlo.

Como siempre, tocaremos un poquito de código de AbanQ... y de Qt 3.3.

Al lío:

Primero añadir, en el FLWidgetTableDB.ui mediante el Qt Designer 3.3 el segundo combobox de ordenación. Lo vamos a llamar comboBoxFieldToSearch2 (muy original... :P). También debemos añadir en el Designer un Slot,

void putSecondCol (const QString &)

y añadimos una conexión:

Sender: comboBoxFieldToSearch2
Signal: activated (const QString &)
Receiver: FLWidgetTableDB
Slot: putSecondCol(const QString &)

Vale. Hemos terminado en Designer. Toca código en C++ de AbanQ.

Definimos ese slot que acabamos de crear en Designer en el código de AbanQ (en esto sí que han ganado las Qt 4 eliminando la definición de slots en el designer...)

Archivo: FLObjectFactory.h
....
class FL_EXPORT FLTableDBInterface : public QObject {
  ...

public:
...
/**
dpinelo: Establece el segundo campo de búsqueda
*/
void putSecondCol( const QString & c ) {
obj_->putSecondCol( c );
}

De esta forma, cuando el usuario cliquee en el combo, se producirá la ordenación por el segundo campo.

Archivo: FLTableDB.h
...
class FL_EXPORT FLTableDB: public FLWidgetTableDB {
  ...
  private:
  /**
  dpinelo Indica el número de columna por la que ordenar los registros
   */
  int sortColumn2_;
  /**
  dpinelo Indica el sentido ascendente o descendente del la ordenacion actual de los registros
   */
  bool orderAsc2_;

  protected slots:
  ...
  // dpinelo
  void putSecondCol( int c );
  void putSecondCol( const QString & c );

Y ahora vamos al código de verdad. Sólo he querido añadir la funcionalidad de ordenación secundaria... de modo que sigo dejando la mayor parte de la responsabilidad de la ordenación al código de AbanQ. Busco que el usuario pueda visualizar por una columna diferente, y cambiar el orden de visualización en esa columna.

Para este fichero, mejor pongo un diff .... Ya digo, tengo que organizar todas mis diferencias de código y publicarlas aquí adecuadamente. Espero poder hacerlo la semana que viene, antes de publicar las modificaciones de integración con OpenKM y JasperServer

Index: abanq/src/flbase/FLTableDB.cpp
===================================================================
--- abanq/src/flbase/FLTableDB.cpp	(revisión: 117)
+++ abanq/src/flbase/FLTableDB.cpp	(copia de trabajo)
@@ -89,7 +89,9 @@
     tabDataLayout->addWidget( tableRecords_ );
     setTabOrder( tableRecords_, lineEditSearch );
     setTabOrder( lineEditSearch, comboBoxFieldToSearch );
-    lineEditSearch->installEventFilter( this );
+	// dpinelo
+	setTabOrder( comboBoxFieldToSearch, comboBoxFieldToSearch2 );
+	lineEditSearch->installEventFilter( this );
     tableRecords_->installEventFilter( this );
     connect( tableRecords_->horizontalHeader(), SIGNAL( clicked( int ) ), this, SLOT( switchSortOrder( int ) ) );
   }
@@ -109,7 +111,9 @@
     tabDataLayout->addWidget( tableRecords_ );
     setTabOrder( tableRecords_, lineEditSearch );
     setTabOrder( lineEditSearch, comboBoxFieldToSearch );
-    lineEditSearch->installEventFilter( this );
+	// dpinelo
+	setTabOrder( comboBoxFieldToSearch, comboBoxFieldToSearch2 );
+	lineEditSearch->installEventFilter( this );
     tableRecords_->installEventFilter( this );
   }
   FLSqlCursor * tCursor = tableRecords_->cursor();
@@ -127,7 +131,8 @@
 }
 bool FLTableDB::eventFilter( QObject * obj, QEvent * ev ) {
-  if ( !tableRecords_ || !lineEditSearch || !comboBoxFieldToSearch || !cursorVisualizacion_ )
+	// dpinelo
+  if ( !tableRecords_ || !lineEditSearch || !comboBoxFieldToSearch || !cursorVisualizacion_ || !comboBoxFieldToSearch2 )
     return FLWidgetTableDB::eventFilter( obj, ev );
   if ( ev->type() == QEvent::KeyPress && obj == tableRecords_ ) {
     QKeyEvent * k = static_cast<QKeyEvent *>( ev );
@@ -165,21 +170,55 @@
 }
 void FLTableDB::putFirstCol( const QString & c ) {
-        // dpinelo: No entiendo cómo el código funciona sin esto...
-        FLTableMetaData *tMD = cursorVisualizacion_->metadata();
-        cursorVisualizacion_->setSort( cursorVisualizacion_->index( tMD->fieldAliasToName( c ) ) );
-  moveCol( c, QString::null );
+	// dpinelo: Introducimos la ordenación por los dos campos
+	QSqlIndex sort;
+	FLTableMetaData *tMD = cursorVisualizacion_->metadata();
+	sort.append ( tMD->fieldAliasToName( c ) );
+	sort.append ( tMD->fieldAliasToName( comboBoxFieldToSearch2->text( comboBoxFieldToSearch2->currentItem() ) ) );
+	cursorVisualizacion_->setSort( sort );
+	moveCol( c, QString::null );
 }
 void FLTableDB::putFirstCol( int c ) {
-        // dpinelo: No entiendo cómo el código funciona sin esto...
-        QHeader *horizHeader = tableRecords()->horizontalHeader();
-        FLTableMetaData *tMD = cursorVisualizacion_->metadata();
-        cursorVisualizacion_->setSort( cursorVisualizacion_->index( tMD->fieldAliasToName( horizHeader->label(c) ) ) );
-  moveCol( c, 0 );
+	// dpinelo: Introducimos la ordenación por los dos campos
+	QSqlIndex sort;
+	QHeader *horizHeader = tableRecords()->horizontalHeader();
+	FLTableMetaData *tMD = cursorVisualizacion_->metadata();
+	sort.append ( tMD->fieldAliasToName( horizHeader->label(c) ) );
+	sort.append ( tMD->fieldAliasToName( comboBoxFieldToSearch2->text( comboBoxFieldToSearch2->currentItem() ) ) );
+	cursorVisualizacion_->setSort( sort );
+	moveCol( c, 0 );
 }
-void FLTableDB::moveCol( const QString & from, const QString & to ) {
+// dpinelo
+void FLTableDB::putSecondCol( const QString & c ) {
+    // dpinelo: Introducimos la ordenación por los dos campos
+	QSqlIndex sort;
+	FLTableMetaData *tMD = cursorVisualizacion_->metadata();
+	sort.append ( tMD->fieldAliasToName( comboBoxFieldToSearch->text( comboBoxFieldToSearch->currentItem() ) ) );
+	sort.append ( tMD->fieldAliasToName( c ) );
+	cursorVisualizacion_->setSort( sort );
+	// Aprovechamos que siempre, el combo box de filtro presenta sus items ordenados igual que el grid
+	if ( c != comboBoxFieldToSearch->text( comboBoxFieldToSearch->currentItem() + 1 ) ) {
+		moveCol( c, comboBoxFieldToSearch->text( comboBoxFieldToSearch->currentItem() + 1 ), false );
+	}
+}
+
+void FLTableDB::putSecondCol( int c ) {
+    // dpinelo: No entiendo cómo el código funciona sin esto...
+	QSqlIndex sort;
+	QHeader *horizHeader = tableRecords()->horizontalHeader();
+	FLTableMetaData *tMD = cursorVisualizacion_->metadata();
+	sort.append ( tMD->fieldAliasToName( comboBoxFieldToSearch->text( comboBoxFieldToSearch->currentItem() ) ) );
+	sort.append (  tMD->fieldAliasToName( horizHeader->label(c) ) );
+	cursorVisualizacion_->setSort( sort );
+	// Aprovechamos que siempre, el combo box de filtro presenta sus items ordenados igual que el grid
+	if ( c != ( comboBoxFieldToSearch->currentItem() + 1 ) ) {
+		moveCol( c, ( comboBoxFieldToSearch->currentItem() + 1), false );
+	}
+}
+
+void FLTableDB::moveCol( const QString & from, const QString & to, bool firstSearch ) {
   if ( !topWidget || !cursorVisualizacion_ || !showed )
     return ;
@@ -210,11 +249,12 @@
 #endif
     return;
   }
-  moveCol( iFrom - sortColumn_, iTo - sortColumn_ );
+  moveCol( iFrom - sortColumn_, iTo - sortColumn_, firstSearch );
 }
-void FLTableDB::moveCol( int from, int to ) {
-  if ( from == to || !lineEditSearch || !comboBoxFieldToSearch || !cursorVisualizacion_ )
+void FLTableDB::moveCol( int from, int to, bool firstSearch ) {
+	// dpinelo
+  if ( from == to || !lineEditSearch || !comboBoxFieldToSearch || !cursorVisualizacion_ || !comboBoxFieldToSearch2 )
     return ;
   if ( comboBoxFieldToSearch->text( from ) == "*" || comboBoxFieldToSearch->text( to ) == "*" )
@@ -252,10 +292,13 @@
   refresh( true );
   if ( !textSearch.isEmpty() ) {
     refresh( false, true );
-    disconnect( lineEditSearch, SIGNAL( textChanged( const QString& ) ), this, SLOT( filterRecords( const QString& ) ) );
-    lineEditSearch->setText( textSearch );
-    connect( lineEditSearch, SIGNAL( textChanged( const QString& ) ), this, SLOT( filterRecords( const QString& ) ) );
-    lineEditSearch->selectAll();
+	if ( firstSearch ) {
+		disconnect( lineEditSearch, SIGNAL( textChanged( const QString& ) ), this, SLOT( filterRecords( const QString& ) ) );
+		// dpinelo
+    	lineEditSearch->setText( textSearch );
+    	connect( lineEditSearch, SIGNAL( textChanged( const QString& ) ), this, SLOT( filterRecords( const QString& ) ) );
+	    lineEditSearch->selectAll();
+	}
     seekCursor();
     QTimer::singleShot( 0, tableRecords_, SLOT( ensureRowSelectedVisible() ) );
   } else
@@ -329,7 +372,9 @@
 }
 void FLTableDB::refresh( const bool refreshHead, const bool refreshData ) {
-  if ( !lineEditSearch || !comboBoxFieldToSearch || !cursorVisualizacion_ || ( topWidget && !topWidget->isShown() ) )
+	// dpinelo
+  if ( !lineEditSearch || !comboBoxFieldToSearch || !cursorVisualizacion_ || ( topWidget && !topWidget->isShown() ) ||
+	 !comboBoxFieldToSearch2 )
     return ;
   FLTableMetaData * tMD = cursorVisualizacion_->metadata();
@@ -349,7 +394,7 @@
                                           true, 0, 0, false, false, false, QVariant(), false, QString::null, true, false, false );
         tMD->addFieldMD( fieldCheck );
       }
-          if ( !cursorVisualizacion_->contains( fieldNameCheckColumn_ ) ) {
+      if ( !cursorVisualizacion_->contains( fieldNameCheckColumn_ ) ) {
                   QSqlRecord recordCursor( *( cursorVisualizacion_->editBuffer() ) );
         QSqlFieldInfo fakeFieldInfo( fieldNameCheckColumn_, QVariant::Bool, -1, -1, -1, QVariant(), 0, false, false, true );
                 cursorVisualizacion_->clear();
@@ -432,9 +477,11 @@
 	comboBoxFieldToSearch->insertItem( "*" );
     horizHeader->setClickEnabled( false );
     horizHeader->setClickEnabled( true, sortColumn_ );
-    horizHeader->setSortIndicator( -1, Qt::Ascending );
+	// dpinelo
+	horizHeader->setClickEnabled( true, sortColumn2_ );
+	horizHeader->setSortIndicator( -1, Qt::Ascending );
     horizHeader->setSortIndicator( sortColumn_, ( orderAsc_ ? Qt::Ascending : Qt::Descending ) );
-    horizHeader->show();
+	horizHeader->show();
   }
   if ( refreshData || sender() ) {
@@ -1013,10 +1060,15 @@
   aliasCheckColumn_ = t;
 }
-void FLTableDB::switchSortOrder( int ) {
-  orderAsc_ = !orderAsc_;
-  tableRecords()->hide();
-  refresh( true, true );
+void FLTableDB::switchSortOrder( int col ) {
+  // dpinelo
+	if ( col == 0 ) {
+		orderAsc_ = !orderAsc_;
+	} else if ( col == 1 ) {
+		orderAsc2_ = !orderAsc2_;
+	}
+	tableRecords()->hide();
+	refresh( true, true );
 }
 void FLTableDB::activeTabData( bool on ) {

Eah... por ahí va eso.

Pero esta solución, aunque muy buena, no es óptima. Si la columna es un campo de tipo varchar (o string, como se le llama en AbanQ), el optionslist, guarda siempre en esa columna la cadena entera. Supongamos, por ejemplo, una columna "tipo_articulo"  y un options list

<optionslist>Articulo prefabricado, Materia prima, Producto intermedio, Producto terminado</optionslist>

El detalle, es que esas cadenas se almacenan constantemente en la columna de la base de datos. Eso no es mayor problema si queremos indexar sobre esa columna, por ejemplo... Quizás es más interesante, el poder guardar en lugar de esos valores, otros, según la siguiente relación

<optionslist>Articulo prefabricado, Materia prima, Producto intermedio, Producto terminado</optionslist>
<optionsvalues>1,2,3,4</optionsvalues>

De esta forma, cuando el usuario escoga en el combo box "Artículo prefabricado" en la columna de la base de datos, se guardará un 1.

¿Cómo se puede implementar esto en AbanQ? Es relativamente sencillo. Os pongo a continuación las diferencias entre archivos.

Index: abanq/src/flbase/FLDataTable.cpp
===================================================================
--- abanq/src/flbase/FLDataTable.cpp	(revisión: 114)
+++ abanq/src/flbase/FLDataTable.cpp	(copia de trabajo)
@@ -233,18 +233,37 @@
       break;
       case QVariant::String: {
-        text = field->value().toString();
+        QString textView;
+		text = field->value().toString();
         if ( fieldTMD->hasOptionsList() ) {
-          QStringList ol( fieldTMD->optionsList() );
-          if ( !ol.contains( text ) ) {
-            QVariant defVal( fieldTMD->defaultValue() );
-            if ( defVal.isValid() )
-              text = defVal.toString();
-            else
-              text = ol.first();
-          }
-          text = FLUtil::translate( "MetaData", text );
-        }
+			// dpinelo: El valor del campo lo buscamos en la lista de valores si está definida
+			if ( fieldTMD->optionsValues().isEmpty() ) {
+				QStringList ol( fieldTMD->optionsList() );
+				if ( !ol.contains( text ) ) {
+					QVariant defVal( fieldTMD->defaultValue() );
+					if ( defVal.isValid() )
+						text = defVal.toString();
+					else
+						text = ol.first();
+				}
+				text = FLUtil::translate( "MetaData", text );
+			} else {
+				QStringList ol( fieldTMD->optionsValues() );
+				QStringList olList ( fieldTMD->optionsList() );
+			// ¿Contiene el valor?
+				if ( !ol.contains( text ) ) {
+					QVariant defVal( fieldTMD->defaultValue() );
+					if ( defVal.isValid() )
+						textView = defVal.toString();
+					else {
+						textView = olList.first();
+					}
+				} else {
+					textView = olList[ol.findIndex(text)];
+				}
+			}
+			text = FLUtil::translate( "MetaData", textView );
+		}
         p->drawText( 2, 2, cr.width() - 4, cr.height() - 4, fieldAlignment( field ), text );
       }
       break;

Index: abanq/src/flbase/FLFieldDB.cpp
===================================================================
--- abanq/src/flbase/FLFieldDB.cpp	(revisión: 114)
+++ abanq/src/flbase/FLFieldDB.cpp	(copia de trabajo)
@@ -294,7 +294,12 @@
   QString tAux( t );

   if ( ol && editor_ )
-    tAux = field->optionsList()[ ::qt_cast( editor_ )->currentItem()];
+	  // dpinelo
+	  if ( field->optionsValues().isEmpty() ) {
+	  	tAux = field->optionsList()[ ::qt_cast( editor_ )->currentItem()];
+	  } else {
+		tAux = field->optionsValues()[ ::qt_cast( editor_ )->currentItem()];
+	  }

   if ( !cursor_->bufferIsNull( fieldName_ ) ) {
     if ( tAux == cursor_->valueBuffer( fieldName_ ).toString() ) {
@@ -403,12 +408,25 @@

   if ( field->hasOptionsList() ) {
     int idxItem = -1;
-    if ( v.type() == QVariant::String )
-      idxItem = field->optionsList().findIndex( v.toString() );
-    if ( idxItem == -1 )
+    if ( v.type() == QVariant::String ) {
+		// dpinelo
+		if ( field->optionsValues().isEmpty() ) {
+			idxItem = field->optionsList().findIndex( v.toString() );
+		} else {
+			idxItem = field->optionsValues().findIndex( v.toString() );
+		}
+	}
+	if ( idxItem == -1 )
       idxItem = v.toInt();
     ::qt_cast( editor_ )->setCurrentItem( idxItem );
-    updateValue( ::qt_cast( editor_ )->currentText() );
+	if ( field->optionsValues().isEmpty() ) {
+		updateValue( ::qt_cast( editor_ )->currentText() );
+	} else {
+		int idxValue = field->optionsList().findIndex( ::qt_cast( editor_ )->currentText() );
+		if ( idxValue != -1 ) {
+			updateValue( field->optionsValues()[idxValue] );
+		}
+	}
 #ifdef FL_TEST
     ::qt_cast( qApp )->continueTesting( FLTester::FIELD_READY, this->name() );
 #endif
@@ -1317,19 +1335,39 @@
       break;

     case QVariant::String: {
-      bool doHome = false;
-      if ( ol ) {
-        if ( v.toString() == ::qt_cast( editor_ )->currentText() )
-          return ;
-      } else {
-        if ( v.toString() == ::qt_cast( editor_ )->text() )
-          return ;
-        doHome = ( ::qt_cast( editor_ )->text().isEmpty() );
-      }
+		bool doHome = false;
+		if ( ol ) {
+			// dpinelo
+			if ( field->optionsValues().isEmpty() ) {
+				if ( v.toString() == ::qt_cast( editor_ )->currentText() ) {
+					return ;
+				} else {
+					if ( v.toString() == ::qt_cast( editor_ )->text() )
+						return ;
+					doHome = ( ::qt_cast( editor_ )->text().isEmpty() );
+				}
+			} else {
+				int index = field->optionsValues().findIndex( v.toString() );
+				if ( index != -1 ) {
+					QString comp = field->optionsList()[index];
+					if ( comp == ::qt_cast( editor_ )->currentText() ) {
+						return ;
+					} else {
+						if ( comp == ::qt_cast( editor_ )->text() )
+							return ;
+						doHome = ( ::qt_cast( editor_ )->text().isEmpty() );
+					}
+				}
+			}
+		}
 	  disconnect( editor_, SIGNAL( textChanged( const QString & ) ), this, SLOT( updateValue( const QString & ) ) );
       if ( v.isValid() && !v.isNull() ) {
-        if ( ol )
-          ::qt_cast( editor_ )->setCurrentItem( field->optionsList().findIndex( v.toString() ) );
+        if ( ol ) {
+			// dpinelo
+			int index = field->optionsValues().findIndex( v.toString() );
+			::qt_cast( editor_ )->setCurrentItem( index );
+		//		::qt_cast( editor_ )->setCurrentItem( field->optionsList().findIndex( v.toString() ) );
+		}
         else
           ::qt_cast( editor_ )->setText( v.toString() );
       } else {
@@ -1534,8 +1572,11 @@
         doHome = ( ::qt_cast( editor_ )->text().isEmpty() );
 	  disconnect( editor_, SIGNAL( textChanged( const QString & ) ), this, SLOT( updateValue( const QString & ) ) );
       if ( !null ) {
-        if ( ol )
-          ::qt_cast( editor_ )->setCurrentItem( field->optionsList().findIndex( v.toString() ) );
+        if ( ol ) {
+			// dpinelo
+			int index = field->optionsValues().findIndex( v.toString() );
+			::qt_cast( editor_ )->setCurrentItem( index );
+		}
         else
           ::qt_cast( editor_ )->setText( v.toString() );
       } else {

Index: abanq/src/flbase/FLFieldMetaData.cpp
===================================================================
--- abanq/src/flbase/FLFieldMetaData.cpp	(revisión: 114)
+++ abanq/src/flbase/FLFieldMetaData.cpp	(copia de trabajo)
@@ -59,6 +59,8 @@
     delete relationM1_;

   optionsList_.clear();
+  // dpinelo
+  optionsValues_.clear();
 }

 FLFieldMetaData::FLFieldMetaData( const QString & n, const QString & a, bool aN, bool iPK,
@@ -196,3 +198,24 @@
   }
   return type;
 }
+
+// dpinelo
+void FLFieldMetaData::setOptionsValues(const QString & ol)
+{
+	d->optionsValues_.clear();
+	QString olTranslated = ol;
+	if ( ol.contains( "QT_TRANSLATE_NOOP" ) ) {
+		QStringList components = QStringList::split( ';', olTranslated );
+		QString component;
+
+		olTranslated = "";
+		for ( int i = 0; i < components.count(); i++ ) {
+			component = components[ i ];
+			component = component.mid( 30, component.length() - 32 );
+			if ( i > 0 )
+				olTranslated += ",";
+			olTranslated += component;
+		}
+	}
+	d->optionsValues_ = QStringList::split( ',', olTranslated );
+}

Index: abanq/src/flbase/FLFieldMetaData.h
===================================================================
--- abanq/src/flbase/FLFieldMetaData.h	(revisión: 114)
+++ abanq/src/flbase/FLFieldMetaData.h	(copia de trabajo)
@@ -384,6 +384,14 @@
   QStringList optionsList();

   /**
+  dpinelo: La lista de opciones para el campo se compone del valor que se guarda
+  y del valor que se muestra
+
+  @return Lista de valores del campo
+  */
+  QStringList optionsValues();
+
+  /**
   Establece la lista de opciones para el campo

   @param ol Cadena de texto con la opciones para el campo
@@ -392,6 +400,14 @@
   void setOptionsList( const QString & ol );

   /**
+  dpinelo: Establece la lista de valores para el campo
+
+  @param ol Cadena de texto con la opciones para el campo
+  separada por comas, p.e. "opcion1,opcion2,opcion3"
+   */
+  void setOptionsValues( const QString & ol );
+
+  /**
   Obtiene si el campo es de tipo Check
   */
   bool isCheck() const;
@@ -572,6 +588,11 @@
   Lista de opciones para el campo
   */
   QStringList optionsList_;
+
+  /**
+  dpinelo: Lista de valores para el campo
+  */
+  QStringList optionsValues_;

   /**
   Indica si las modificaciones del campo se hacen fuera de cualquier transaccion.
@@ -746,6 +767,11 @@
   return d->optionsList_;
 }

+// dpinelo
+inline QStringList FLFieldMetaData::optionsValues() {
+	return d->optionsValues_;
+}
+
 inline bool FLFieldMetaData::isCompoundKey() const {
   return d->isCompoundKey_;
 }

Index: abanq/src/flbase/FLManager.cpp
===================================================================
--- abanq/src/flbase/FLManager.cpp	(revisión: 114)
+++ abanq/src/flbase/FLManager.cpp	(copia de trabajo)
@@ -302,6 +302,8 @@
   bool aN = true, iPK = true, c = false, iNX = false, uNI = false, coun = false, oT = false, vG = true;
   int t = QVariant::Int, l = 0, pI = 4, pD = 0;
   QVariant dV = QVariant();
+  // dpinelo
+  QString olValues;

   QDomNode no = field->firstChild();

@@ -446,7 +448,13 @@
         no = no.nextSibling();
         continue;
       }
-    }
+	  // dpinelo
+	  if ( e.tagName() == "optionsvalues" ) {
+		  olValues = e.text();
+		  no = no.nextSibling();
+		  continue;
+	  }
+	}
     no = no.nextSibling();
   }

@@ -455,6 +463,10 @@

   if ( !ol.isEmpty() )
     f->setOptionsList( ol );
+
+  // dpinelo
+  if ( !olValues.isEmpty() )
+	  f->setOptionsValues ( olValues );

   no = field->firstChild();

Detalles: Los números de líneas quizás no sean los correctos. Mi código está algo modificado, pero al menos sí aparecen el código que he modificado. En cualquier caso, voy a extraer todos las diferencias entre mi versión de AbanQ y la publicada por InfoSial indicando qué he añadido, para que así podáis sincronizar vuestro código con el mío sin problemas... pero necesito algo de tiempo para hacerlo.

Vamos a poner un ejemplo: En AbanQ tenemos el formulario de artículos dentro del módulo de almacén. Quizás sería interesante añadir una opción para comprobar los movimientos de stocks, entendiendo por los mismos las entradas a almacén (albaranes dados de alta) y salidas (albaranes a clientes). Sería interesante visualizar en un TableDB el resultado de una query que agrupara ambas entradas. Claro, ocurre que para hacer esa query, es necesario utilizar una cláusula SQL, union.  Así por ejemplo, podríamos desear tener una consulta tal como esta

select 'Entrada' as tipo, lp.referencia, lp.cantidad, ap.idalbaran
from albaranesprov as ap inner join lineasalbaranesprov as lp
on ap.idalbaran = lp.idalbaran
union
select 'Salida' as tipo, lc.referencia, lc.cantidad, ac.idalbaran
from albaranescli as ac inner join lineasalbaranescli as lc
on ac.idalbaran = lc.idalbaran

Si usáis PosgreSQL, lo ideal, es crear esta consulta como una vista (así garantizáis que la consulta se encuentra precompilada y optimizada antes de ejecutarse, lo que proporciona una mayor velocidad de ejecución, en general). Pongamos por ejemplo, que esta consulta le damos el nombre tvw_movimientosstock.

Ahora bien, ¿cómo maneja AbanQ las vistas en PostgreSQL? No las maneja, ni falta que hace (bueno, relativamente). Como utiliza las Qt, éstas hacen transparente el acceso a tablas y/o vistas en PostgreSQL por el driver que traen integrado. Esto significa que podemos crear una vista, y acceder a ella desde AbanQ generando el archivo de metadatos de tabla .mtd y el archivo de query .qry correspondiente. Sólo hay que tener en cuenta un par de detalles.

Veamos el archivo Query movimientosstocksqry.qry.

<!DOCTYPE QRY>
<QRY>
	<name>movimientosstocksqry</name>

	<tables>lineasalbaranesprov,albaranesprov</tables>

	<select>
		tipo, referencia, cantidad, idalbaran
	</select>

	<from>
		tvw_movimientosstocks
	</from>

	<where>
	</where>

	<order>
	</order>
</QRY>

El contenido de <table> "importa poco", ya que quien realmente tiene la información de cómo acceder es el elemento vista tvw_movimientosstock. El .mtd es sencillo: movimientosstocksqry.mtd

<!DOCTYPE TMD>
<TMD>
    <!--dpinelo: Tabla creada para mantener el almacen de papeles-->
    <name>movimientosstocksqry</name>
    <query>movimientosstocksqry</query>
    <alias>QT_TRANSLATE_NOOP(&quot;MetaData&quot;,&quot;Movimientos del stocks&quot;)</alias>
    <field>
        <name>referencia</name>
        <alias>QT_TRANSLATE_NOOP(&quot;MetaData&quot;,&quot;Referencia&quot;)</alias>
        <null>false</null>
        <type>string</type>
        <length>18</length>
    </field>
    <field>
        <name>tipo</name>
        <alias>QT_TRANSLATE_NOOP(&quot;MetaData&quot;,&quot;Movimiento&quot;)</alias>
        <null>true</null>
        <pk>false</pk>
        <type>string</type>
        <length>20</length>
    </field>
    <field>
        <name>cantidad</name>
        <alias>QT_TRANSLATE_NOOP(&quot;MetaData&quot;,&quot;Cantidad&quot;)</alias>
        <null>true</null>
        <pk>false</pk>
        <type>uint</type>
    </field>
    <field>
        <name>idalbaran</name>
        <alias>QT_TRANSLATE_NOOP(&quot;MetaData&quot;,&quot;ID Albarán&quot;)</alias>
        <null>true</null>
        <pk>false</pk>
        <type>uint</type>
    </field>
</TMD>

En este .mtd lo que hay que tener claro y en cuenta, es que el nombre de la tabla (<name>) y el de la query (<query>) deberían coincidir. ¿Porqué? Para que no se cree una tabla con el nombre de la vista. De esta forma, podemos asignar en cualquier FLTableDB el nombre de la tabla que queremos mostrar a esta query (incluso con foreign key), garantizando la ejecución desde una vista, y cierta mejora en el rendimiento.

Por contra, AbanQ no está preparado para trabajar con vistas explícitamente: No las espera. Por tanto no esperéis que las administre. Eso es labor vuestra, directamente en PostgreSQL (atentos por ejemplo, al tema permisos).

Telefónica oferta propiamente el alquiler de una centralita y sus terminales, pagando un alquiler por teléfono y centralita mensual que es realmente interesante... Pero aun así, pensé en hacer una prueba antes. Utilizar Asterisk, una herramientaen software libre que permite implementar una centralita, utilizando además, protocolos libres (detalle este muy importante para futuras interoperabilidades) como SIP.

Así que manos a la obra, lo único que necesitaba era adquirir una tarjeta que recibiera las líneas de teléfono analógicas que tenemos contratadas. Las reinas indiscutibles en este sector son las Digium, básicamente porque son las tarjetas que desarrolla la empresa del creador y principal motor de Asterisk. Su problema, el precio. 180 euros para una prueba (en cualquier caso, mucho menos que 2.500 euros!!). Así, que adquirí las OpenVox, concretamente la A400P, que es un clon de la TDM410P (la de Digium)... Sí, OpenVox es una empresa china. Además, adquirí un módulo FXS para recibir llamadas.

Y manos a la obra, instalé TrixBox, una distribución Linux que viene ya preparada con todo el software para configurar una centralita... Me reconoció todo el hardware... y configuré.

En unas 6 horas, había configurado la centralita, con operadora virtual, grupos de capturas, múltiples extensiones, franjas horarias, buzones de voz... todo en un ordenador un tanto antiguo (un Pentium III con 256 megas de RAM).

O sea, que probando, he conseguido ahorrar 2.500 €... Y eso es lo que voy a hacer. Ahora dejaré las pruebas, y haré la implementación real de Asterisk en un ordenador algo más potente.  Por supuesto, tuve FUD de algún que otro comercial ("ni te imaginas cuántas de esas asterisk he tenido que quitar..."). Asterisk es una solución tan buena como cualquier otra en este mundo. Hay empresas que se dedican a implementar este tipo de herramientas... y seguro que sale más barato. Por preguntar, y que os hagan una prueba, no perdéis nada.