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.

Ante la inclusión en el Anteproyecto de Ley de Economía sostenible de modificaciones legislativas que afectan al libre ejercicio de las libertades de expresión, información y el derecho de acceso a la cultura a través de Internet, muchos periodistas, bloggers, usuarios, profesionales y creadores de Internet manifestamos nuestra firme oposición al proyecto, y declaramos que:

1. Los derechos de autor no pueden situarse por encima de los derechos fundamentales de los ciudadanos, como el derecho a la privacidad, a la seguridad, a la presunción de inocencia, a la tutela judicial efectiva y a la libertad de expresión.
2. La suspensión de derechos fundamentales es y debe seguir siendo competencia exclusiva del poder judicial. Ni un cierre sin sentencia. Este anteproyecto, en contra de lo establecido en el artículo 20.5 de la Constitución, pone en manos de un órgano no judicial -un organismo dependiente del ministerio de Cultura-, la potestad de impedir a los ciudadanos españoles el acceso a cualquier página web.
3. La nueva legislación creará inseguridad jurídica en todo el sector tecnológico español, perjudicando uno de los pocos campos de desarrollo y futuro de nuestra economía, entorpeciendo la creación de empresas, introduciendo trabas a la libre competencia y ralentizando su proyección internacional.
4. La nueva legislación propuesta amenaza a los nuevos creadores y entorpece la creación cultural. Con Internet y los sucesivos avances tecnológicos se ha democratizado extraordinariamente la creación y emisión de contenidos de todo tipo, que ya no provienen prevalentemente de las industrias culturales tradicionales, sino de multitud de fuentes diferentes.
5. Los autores, como todos los trabajadores, tienen derecho a vivir de su trabajo con nuevas ideas creativas, modelos de negocio y actividades asociadas a sus creaciones. Intentar sostener con cambios legislativos a una industria obsoleta que no sabe adaptarse a este nuevo entorno no es ni justo ni realista. Si su modelo de negocio se basaba en el control de las copias de las obras y en Internet no es posible sin vulnerar derechos fundamentales, deberían buscar otro modelo.
6. Consideramos que las industrias culturales necesitan para sobrevivir alternativas modernas, eficaces, creíbles y asequibles y que se adecuen a los nuevos usos sociales, en lugar de limitaciones tan desproporcionadas como ineficaces para el fin que dicen perseguir.
7. Internet debe funcionar de forma libre y sin interferencias políticas auspiciadas por sectores que pretenden perpetuar obsoletos modelos de negocio e imposibilitar que el saber humano siga siendo libre.
8. Exigimos que el Gobierno garantice por ley la neutralidad de la Red en España, ante cualquier presión que pueda producirse, como marco para el desarrollo de una economía sostenible y realista de cara al futuro.
9. Proponemos una verdadera reforma del derecho de propiedad intelectual orientada a su fin: devolver a la sociedad el conocimiento, promover el dominio público y limitar los abusos de las entidades gestoras.
10. En democracia las leyes y sus modificaciones deben aprobarse tras el oportuno debate público y habiendo consultado previamente a todas las partes implicadas. No es de recibo que se realicen cambios legislativos que afectan a derechos fundamentales en una ley no orgánica y que versa sobre otra materia.

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

Emilio, para cualquier cosa que necesites, ya sabes dónde estoy.

Un abrazo.

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.

Propósito de enmienda: Al menos una entrada semanal…

Saludos

A partir de este momento, podemos distinguir a grandes rasgos 3 grupos principales de elementos a configurar:

• La configuración del módulo encargado de utilizar las líneas analógicas (las de teléfono de toda la vida): Zapata
• Configuración general de Asterisk
• Dialplan (el conjunto de extensiones y reglas internas a nuestra centralita: nuestra instalación local)

Veamos la configuración de Zapata. Ello se hace editando directamente el fichero /etc/asterisk/zapata.conf . Hay detalles muy importantes en él, que pueden dar más de un quebradero de cabeza. Os adjunto el zapata.conf que me función a mí, profusamente comentado. Digo el que me funcionó a mí, porque dependiendo de vuestra línea habréis de configurar una u otras cosas (en mi caso, por ejemplo, casi no tuve que configurar nada de cancelación de eco, por ejemplo).

La idea en este fichero es la de definir “canales”  por los que circulará la voz para Asterisk. En este caso, configuraremos un único canal (g0) que podrá ubicar 4 comunicaciones de voz con el exterior (tantas como puertos tiene la tarjeta digitalizadora, y como líneas de teléfono tengo contratadas).

;
; Zapata telephony interface
;
; Configuration file

[trunkgroups]

[channels]
; Habilita la recepcion del Caller ID (es decir, del número
; del llamante). Sin esta opción, Asterisk no será capaz de
; obtener el número de teléfono de quién nos llama
usercallerid=yes

; Usando el valor asreceived en callerid, te pasa directamente
; la identificación que viene en la linea por el provedor de
; telefonía
callerid=asreceived

; Permitimos que en las llamadas salientes se indique nuestro
; número
hidecallerid=no

relaxdtmf=yes

; Esta opción es válida cuando tenemos una línea con ADSI
; (Analog Display Services Interface)
adsi=yes

; En esta opción se especifica en qué momento la operadora
; nos envía el identificador de llamada.
; El número que aparece es el número de tonos (de rings)
sendcalleridafter=2

; Esta opción es la que nos proporcionará identificación de
; llamada y es también vital. Sin ella, se produce algo raro
; en las llamadas: Al llamar se produce un evento
; "Starting switch on Zap" y un hangup justo antes de contestar;
; la llamada. Al contestar Asterisk la llamada se produce
; otro "Starting switch on Zap" (Es como si hubiera dos llamadas
; dentro de una misma, una justo antes de contestar y otra a
; posteriori). Sin este parámetro, el CALLERID(num)
; sólo es detectado en el primer evento, y cuando se
; descuelga, se ha perdido el CALLERID.
; Esta opción, hace que el callerid se mantenga en el segundo
; evento. Os dejo parte de la documentación original en inglés:
;
; distinctiveringaftercid = yes | no
;
; If this is enabled a short initial ring is generated
; followed by caller;  ID and then the normal or distinctive
; ring cadence is used. This type of ringing is used in
; Australia and on some UK cable company exchanges. If this
; is turned off then sendcalleridafter MUST be correct and all
; user defined cadences MUST have a suitable silence marked for
; caller ID.
distinctiveringaftercid=yes

; Si el caller ID se envía antes del primer ring, la operadora
; señalizará el inicio de ese envío con una inversión de la
; polaridad en la línea: con esta opción, nuestro hardware
; local, lo detectará.
polarityevents=yes

; Esta opcion da graves problemas en la deteccion del
; "descolgado", ya que es una opción que sólo funciona
; adecuadamente en EEUU. Sirve para poder identificar el
; fin de una llamada. (Sí, hay ciertas ocasiones en las que
; Asterisk puede no detectar que en el extremo remoto
; se ha colgado la llamada)
;callprogress=yes

; Esta opcion hará que suenen unos pips en las llamadas,
; cuando se este haciendo una llamada por un canal, y se
; produzca otra llamada por el mismo canal. (La opción de llamada en espera)
callwaiting=yes

; Puesta a yes establece que Asterisk enviara el Caller
; ID al telefono durante la indicación de una llamada en
; espera. Requiere que la anterior opción este a yes.
callwaitingcallerid=yes

; Esta opción permite poner una llamada en espera.
; Estamos hablando del canal analógico zaptel, nada
; tiene que ver con las extensiones que se crearán después.
threewaycalling=no

; This option has effect only when threewaycalling=yes.
; If threewaycalling=yes and transfer=yes, then once you've
; placed a call on hold with a hook flash, you can transfer
; that call to another extension by dialling the extension
; and hanging up
transfer=yes

; Cuando esta opción esté a yes, al transferir una llamada
; a otro teléfono, el CallerID original se transferirá también.
useincommingcalleridonzaptransfer=yes

; Opciones que indica el tipo de señalización que utiliza
; tu operadora para transmitir el callerId.
; En España (Telefónica) son estas:
cidsignalling=bell
cidstart=ring
;
; Type of caller ID signalling in use
;     bell     = bell202 as used in US
;     v23      = v23 as used in the UK
;     v23_jp   = v23 as used in Japan
;     dtmf     = DTMF as used in Denmark, Sweden and Netherlands
;     smdi     = Use SMDI for callerid.  Requires SMDI to be
;                enabled (usesmdi).
;
;cidsignalling=bell
;     ring     = a ring signals the start
;     polarity = polarity reversal signals the start
; 

; Opciones que sirven para que Asterisk detecte si en
; el otro extremo (a quien realizamos la llamada)
; está ocupado
busydetect=yes
busycount=6

; Para tener todo en español
language=es

; Definirá el contexto de este canal: Será utilizado
; dentro del Dialplan para indicarle a Asterisk, por qué
; canales, o contexto, pueden entrar y salir llamadas.
context=from-zaptel

; Señalización. Tenemos canales FXO con senializacion FXS
signalling=fxs_ks

; Estas tres opciones son necesarias para saber
; cuando se cuelga y descuelga. Sin ellas es probable que
; vuestra tarjeta digitalizadora no sepa cuándo está
; recibiendo una llamada
; o cuando en el otro extremo han descolgado.
answeronpolarityswitch=yes
hanguponpolarityswitch=yes
polarityonanswerdelay=1
faxdetect=both
group=0
channel => 1-4
; Cuando creemos la de salida y se quiera hacer una
; llamada, especificaremos que se haga a través del
; canal g0 . Esa primera letra g, puede cambiarse según
;   g: Utiliza el canal de menor número disponible del
;      grupo especificado
;   G: Utiliza el canal de mayor número disponible del
;      grupo especificado
;   r: Sigue una estrategia Round-Robin de menor a mayor
;   R: Round-Robin de mayor a menor
; En nuestro caso, g
; La configuración anterior es válida hasta aquí:
; Si queremos configurar otro canal,
; reescribiremos a partir de aquí su nueva configuración
; hasta acabar en una línea similar

En el siguiente post estableceremos la configuración básica de Asterisk.