Buenas!
Si tienes funcionando el ORB en el que te igualé las alturas de los campos que habías puesto, entonces mira a ver si esto te puede valer.
Posiblemente necesite un parche para cuando los campos sean de más de una fila (acabo de caer en eso), pero de todos modos mira a ver cómo va.
He calculado las filas que tienen texto (la mitad de las que genera ORB en cada tabla de las que nos interesan (que no son todas).
Después escalé una tabla para ponerme en la que está en el inicio de cada hoja, añadí una fila en la parte de encima, le añadí la palabra 'TOTAL' y al lado (segunda celda) el número de filas contadas anteriormente.
Finalmente, le quité el color a esa fila, para que no quede de color carne y que parezca que está en el encabezamiento.
El parche lo debes poner allí donde había colocado yo el tema de la autoaltura (Recuerda '================================)
¡Crucemos los dedos!
Código: Seleccionar todo
'===================================================================
'----------------------------------------
' Iniciamos parche para autoaltura
NTexttable = oreportdoc.Texttables().GetCount() ' Número de tablas
For z=2 to NTexttable-1 ' Revisamos todas las tablas
oTexttable = oreportdoc.Texttables(z) ' La tabla que toca en cada paso del ciclo
Filas = oTexttable.rows.count-1 ' Filas que tiene la tabla
Columnas = oTexttable.Columns.count-1 ' Columnas que tiene la tabla
Fila = oTexttable.rows ' Objeto Fila
'------------------------------------------------------------------------
' Vamos a inspeccionar cada tabla, para seleccionar las que tienen en la primera celda la expresión entrecomillada
oCell = oTextTable.getCellByPosition(0, 0) ' Primera celda de la tabla que toca
oText = oCell.Text ' Texto de la celda
oCurs = oText.createTextCursor() ' Cursor en la celda
oCurs.gotoEND(True) ' Cursor al final de la celda
if oCurs.GetString ="SERVICIO:" Then ' Condición para seleccionar la tabla
oTexttable = oreportdoc.Texttables(z+1) ' La tabla que toca en cada paso del ciclo sería la siguiente a la que tiene en su primera celda la palabra 'SERVICIO'
Filas = oTexttable.rows.count-1 ' Filas que tiene la tabla
'------------------------------------------------------
' Calculamos del total de filas las que tienen texto (hay otras en el medio que no lo tienen y que las genera ORB)
Total= Cint((Filas+1)/2) ' Filas en las que hay texto (las que se ven en el informe)
For i=0 to Filas ' Recorremos todas las filas de la tabla
Fila = oTexttable.rows(i) ' La fila que toca (Tercera en este caso)
oTexttable.getRows().getByIndex(i).IsAutoHeight = True ' Autoaltura
Next ' Siguiente fila
'---------------------------------------------
' Tomamos la tabla previa, para poder escribir como que fuese en el encabezamiento, pero es mentira
oTexttable = oreportdoc.Texttables(z) ' La tabla previa a la que usamos antes
'---------------------------------------------------------------------------
' 2º Insertamos una fila al principio y damos color blanco a las celdas
oTexttable.Rows.insertByIndex(0,1) ' Insertamos fila al principio de la tabla
oTexttable.getCellByPosition(0,0).setString(Trim("TOTAL")) ' Ponemos TOTAL en la primera celda
oCell = oTextTable.getCellByPosition(0,0) ' Seleccionamos la primera celda
oCell.setPropertyValue("BackColor", RGB(255, 255,255 )) ' El color que ponemos (blanco)
oCell = oTextTable.getCellByPosition(1,0) ' Seleccionamos la siguiente celda para poner los resultados
oCell.setPropertyValue("BackColor", RGB(255, 255,255 )) ' El color que ponemos
oTexttable.getCellByPosition(1, 0).setString(Total) ' Ponemos TOTAL en la segunda celda
End if ' Acabamos la condición para seleccionar la tabla
Next ' Vamos a la siguiente tabla
'------------------------------------------------------------
' Acabamos el parche de autoaltura
'==================================================================
Si no resuelve en los multilínea, ya miramos con otro parchecillo, recorriendo todas las filas, y contamos aquellas en las que en su segunda fila tiene texto (que serían las que tienen la fecha). Pero ahora ando con un poco de prisa.
Eso, que a ver si hay suerte!
Un saludo!
| Editado: En prueba rápida parece que funciona |
