En los próximos días pondré la versión debug para Linux.

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.

Desde un FLTableDB, pinchamos en la opción Ver/Ocultar filtro. Escogemos ahora cualquier campo del tipo "double", "int" o "uint", modificamos la operación a Igual a (cualquier otra también vale para reproducirlo) e introducimos un valor. Al intentar ejecutar el filtro, si tenéis una base de datos PostgreSQL os dará un error, indicando que no se puede ejecutar la función "upper" sobre el campo.

El lugar donde se produce el bug en el código está situado en FLTableDB.cpp, en las líneas 1132 hasta 1137, dentro del método tdbFilterBuildWhere, y es fácil de ver: (código correspondiente al fuente del build 15245 disponible en la web de AbanQ)

case QVariant::UInt:
case QVariant::Int:
case QVariant::Double:
case QVariant::String:
case QVariant::StringList: {
        fieldArg = "upper(" + fieldName + ")";

Si os fijáis se aplica la función de base de datos "upper" a todos los campos. Esta función sirve para poner en mayúsculas una cadena de texto (AbanQ la utiliza para garantizar la comparación de cadenas de caracteres independientemente de que el usuario la introduzca en mayúsculas o minúsculas: se compara siempre en mayúsculas). El error está en que PostgreSQL se queja cuando a una columna integer o double precision se le hace un upper.

Así no es posible aplicar un filtro a este tipo de campos. ¿Solución? Super sencilla. Cambiad ese código por este, y recompilad

case QVariant::String:
case QVariant::StringList: {
        fieldArg = "upper(" + fieldName + ")";
case QVariant::UInt:
case QVariant::Int:
case QVariant::Double:

Así, el upper sólo se aplica a las cadenas.

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).

Pero siempre hay detalles que son mejorables, especialmente en la interfaz final del usuario, y en la llamada "experiencia de usuario" (qué dificultades o ayudas encuentra el usuario en el programa, siendo simplistas). Partimos de la base de utilizar la versión 2.3 y los módulos 2.2.

Existe una opción en el área de Facturación, dentro de Facturas, en el formulario maestro de Facturas de Proveedores: el botón "Asociar" (nombre mal elegido según mi punto de vista) que permite crear una factura de proveedor a partir de los albaranes emitidos por este. En este formulario, se pueden especificar unos parámetros de búsqueda para así obtener el listado de albaranes que cumplen esos criterios. Esos albaranes se agregan en un control QListView.

El problema de usabilidad viene cuando uno desea consultar algunos datos de ese QListView. Por ejemplo, no presenta ninguna opción de ordenación. ¿Es posible ordenarlo? Veamos como

La idea que he seguido es la de añadir un ComboBox que contenga el listado de las columnas que muestra el QListView. Según lo que el usuario escoja en ese ComboBox el QListView se ordena de una forma u otra. El formulario quedaría así...

Se observa que se ha incluído el ComboBox "Ordenar Por".  Eso se hace editando los ficheros agruparalbaranesprov.ui o agruparalbaranescli.prov, y añadiendo un control QComboBox desde QtDesigner. Además, también en QtDesigner añadimos los campos por los que queremos ordenar. En mi caso: "Nº Interno Alb.", "Fecha", "Total sin IVA", "Total con IVA", "Cod. Proveedor", "Nombre", "Nº Alb. Proveedor"

Ahora toca modificar un poquito de código QSA. Para ello, debemos editar el fichero agruparalbaranesprov.qs o agruparalbaranescli.qs (depende de si queréis habilitarlo en la parte de clientes o proveedores). Vamos a agregar una nueva función dentro de la clase oficial

// dpinelo: Para permitir ordenar
function establecerOrden() {
	return this.ctx.oficial_establecerOrden();
}

El cuerpo de esa función sería

function oficial_establecerOrden()
{
	var cbOrden:QComboBox = this.child("cbOrden");
	if (cbOrden.currentText == "Nº Interno Alb." ) {
		this.iface.ordenAlbaranes = "codigo";
	} else if ( cbOrden.currentText == "Fecha"  ) {
		this.iface.ordenAlbaranes = "fecha";
	} else if ( cbOrden.currentText == "Total sin IVA" ) {
		this.iface.ordenAlbaranes = "neto";
	} else if ( cbOrden.currentText == "Total con IVA" ) {
		this.iface.ordenAlbaranes = "total";
	} else if ( cbOrden.currentText == "Cod. Proveedor" ) {
		this.iface.ordenAlbaranes = "codproveedor";
	} else if ( cbOrden.currentText == "Nombre" ) {
		this.iface.ordenAlbaranes = "nombre";
	} else if ( cbOrden.currentText == "Nº Alb. Proveedor" ) {
		this.iface.ordenAlbaranes = "numproveedor";
	} else {
		this.iface.ordenAlbaranes = "codproveedor,codalmacen DESC";
	}
	this.iface.actualizar();
}

Como veis, sólo asigno a cada nombre que aparece en el ComboBox el nombre del campo en base de datos. Y ahora viene la madre del cordero, queremos que cuando el usuario seleccione un item del ComboBox, se produzca la ordenación: sólo debemos añadir en la función init, la siguiente conexión

		connect(this.child("cbOrden"), "activated(int)", this, "iface.establecerOrden");

En mi caso, cbOrden es el nombre que le he dado al control QComboBox en QtDesigner.

Sin embargo, si probáis esto no funcionará, ¿por qué? Porque QComboBox no está registrado en el QSA de AbanQ, y por tanto no podemos instanciar un objeto QComboBox en AbanQ. ¿Solución? Modificar el código fuente de AbanQ registrando QComboBox.

Sencillo: nos vamos al fichero FLObjectFactory.cpp , añadimos en el constructor:

FLObjectFactory::FLObjectFactory() : QSObjectFactory(), util_( 0 ), voidObject_( 0 ) {
  ...
  registerClass( "QComboBox", "QComboBox" );
}

Recompilamos, y listo, podremos ordenar.

FLFieldDB sin formato aplicado

Vale, al menos a mí me pasa, si voy con prisas, si voy con bulla (¿os suena en el curro?), ¿Qué cifra pone ahí? ¿ trece mil o ciento treinta mil?. Veamos lo siguiente:

FLFieldDB visualizando la cifra con Locale.

Se ve un poco mejor, ¿no? Voy a explicaros cómo se programa este pequeño cambio en AbanQ.

Todo el trabajo se va a centrar en los ficheros FLFieldDB.h y FLFieldDB.cpp. Ambos definen una serie de clases para el trabajo con campos asociados a columnas de registros en base de datos. La clase FLFieldDB controla el comportamiento básico de este tipo de campos (que pueden visualizar columnas de texto, booleanas, numéricas, memo, imágenes... ). FLFieldDB define un atributo editor_, que es un puntero a QWidget (la clase base de todos los objetos GUI de Qt). Esto nos indica que FLFieldDB crea un editor diferente por cada tipo de campo: Así para los campos booleanos, crea un widget que presenta un radio button, y para los campos numéricos crea un objeto de tipo FLLineEdit.

Ésta clase, la FLLineEdit, será sobre la que más trabajemos.

¿Qué conseguiremos? Lo siguiente: Todos los FLFieldDB que presentan un número y que NO tienen el foco, presentarán la cantidad con la configuración local que deseemos. Cuando el FLFieldDB recibe el foco, se eliminará automáticamente el formato local y aparecerá el número sin formato (tal y como en la primera imágen para permitir una mejor edición). El usuario edita la cantidad, y cuando pasa a otro campo, el que ha perdido el foco, será formateado de nuevo.

La implementación es relativamente sencilla. Necesitaremos varias cosas:

• Saber cuándo el FLFieldDB tiene el foco. Una forma sencilla es utilizar los eventos focusOutEvent y focusInEvent. El primero es invocado cuando el control tiene el foco y el segundo cuando lo recibe. Utilizaremos un nuevo atributo privado, tieneFoco_ y modificamos estas funciones tal y como sigue:

void FLLineEdit::focusOutEvent( QFocusEvent * f ) {
  // dpinelo
  tieneFoco_ = false;
  QString s = text();
#ifndef Q_OS_WIN32
  const QValidator *v = validator();
  if ( v ) {
    v->fixup( s );
    setText( s );
  }
#endif
  // dpinelo
  aplicarLocaleNumerico();
  QLineEdit::focusOutEvent( f );
}

void FLLineEdit::focusInEvent( QFocusEvent * f ) {
  // dpinelo
  tieneFoco_ = true;
  eliminarLocaleNumerico();
  if ( selectedText().isEmpty() )
    selectAll();
  QLineEdit::focusInEvent( f );
}

Sólo hemosagregado la información de cuándo se tiene el foco, y se llama a dos funciones, aplicarLocaleNumerico y eliminarLocaleNumerico que se encargarán de quitar y poner el locale.

• FLFieldDB controla la edición de campos numéricos (double, unsigned int e int) y de cadenas de texto. Pero los números que se presentan pueden tener diferente precisión. El FLLineEdit debe saber con cuánta precisión mostrar los números. Por ello, añadimos un atributo privado: partDecimal de tipo entero. Debemos ajustar además su valor: Ello se hace desde la función initEditor, que crear el widget que hará la edición de la columna asociada al FLFieldDB. Simplemente basta con

        ....
        editor_ = new FLLineEdit( this, "editor" );

        ::qt_cast( editor_ )->setFont( qApp->font() );
        ::qt_cast( editor_ )->type = type;
	// dpinelo
	::qt_cast( editor_ )->partDecimal = partDecimal;
	editor_->installEventFilter( this );
        ....

Ok. Prosigamos.

• Debemos controlar las funciones text() y setText() de FLLineEdit. Por ejemplo, las funciones que utilizan text() desde QSA esperan un valor sin formato local. Por tanto, text() deberá devolver, si el control NO tiene foco, el valor sin formatear. Por otro lado, al hacer setText(), si el control no tiene foco, deberá mostrarse con el valor numérico con el locale aplicado. Así tendremos que sobrecargar estas funciones quedando

// Si el objeto no tiene el foco, devolvemos el texto SIN formato
QString FLLineEdit::text() const
{
	bool ok;
	QString texto = QLineEdit::text();

	if ( !tieneFoco_ && ( type == QVariant::UInt || type == QVariant::Int || type == QVariant::Double ) ) {
		double valor = locale_.toDouble(texto, &ok);
		if ( ok ) {
			texto.setNum( valor, 'f', partDecimal );
		}
	}
	return texto;
}

// Si el objeto NO tiene el foco, y es numérico, le damos formato
void FLLineEdit::setText(const QString & cadena)
{
	bool ok;
	QString texto = cadena;

	if ( !tieneFoco_ && ( type == QVariant::UInt || type == QVariant::Int || type == QVariant::Double ) ) {
		double dValor = cadena.toDouble(&ok);
		if ( ok ) {
			texto = locale_.toString (dValor, 'f', partDecimal );
		}
	}
	QLineEdit::setText(texto);
}

En estas funciones se hace uso de un atributo privado de la clase FLLineEdit "locale_" que será una instancia de un objeto QLocale, el usado por Qt para dar formato. Simplemente, habría que declararlo como atributo privado, ya que el constructor por defecto de QLocale utiliza el locale establecido en el sistema operativo.

• Sólo nos queda la implementación de las funciones que al recibir y perder el foco el control, aplican o elimina el locale. Estas funciones tienen una particularidad: la utilización de la función blockSignals de Qt. No me gusta esta solución, ya que bloquean la emisión de toda señal del FLLineEdit (Todas incluyen las de dibujado), pero en Qt3 no hay ninguna solución a la siguiente problemática: Siempre que se utiliza setText se dispara textChanged, lo que nos provoca llamadas a los diferentes objetos conectados a esta señal con resultados inesperados. Esto está ya solucionado en Qt4 donde se provee una señal más, textEdited que se dispara sólo en caso de acción "humana".

// dpinelo
void FLLineEdit::aplicarLocaleNumerico()
{
	bool ok;

	// dpinelo: Cogemos el texto, si el campo es de tipo numérico y le aplicamos el locale. Esto se produce cuando
	// se ha perdido el foco
	if ( type == QVariant::UInt || type == QVariant::Int || type == QVariant::Double ) {
		double valor = text().toDouble(&ok);
		if ( ok ) {
			QString texto = locale_.toString (valor, 'f', partDecimal );
			blockSignals(true);
			setText(texto);
			blockSignals(false);
		}
	}
}

// dpinelo
void FLLineEdit::eliminarLocaleNumerico()
{
	bool ok;

	// dpinelo: Ahora si es numérico, eliminamos el formato, ya que el usuario va a editar y es mejor hacerlo con el número en limpio
	if ( type == QVariant::UInt || type == QVariant::Int || type == QVariant::Double ) {
		double valor = locale_.toDouble(text(), &ok);
		if ( ok ) {
			QString texto;
			texto.setNum( valor, 'f', partDecimal );
			blockSignals(true);
			setText (texto);
			blockSignals(false);
		}
	}
}

Nota: La utilización de tanta etiqueta dpinelo no es porque sea egocéntrico, es para así distinguir en el código de AbanQ cuáles son mis cambios, y así, con las nuevas versiones que ofrece InfoSial poder introducirlos fácilmente.

Pues listo: De todas formas, aquí tenéis los archivos cómo quedarían con todos estos cambios. Eah, a disfrutarlo

• FLFieldDB.cpp
• FLFieldDB.h