Page 1 of 1
Clase Report modificada por RenOmaS
Posted: Fri Feb 23, 2007 6:21 pm
by Marcelo Via Giglio
Holas,
estoy utilizando la clase report modificada por RenOmaS para poder pasar los reportes a Excel.
El problema esta que con esta clase no se puede visualizar las lineas cuando se difine le reporte con oReport:cellView(), a simple vista todo parece estar correcto, pero al previsualizar el reporte, no aparece el cuadriculado que deberia.
Alguien tiene el mismo problema? y si tiene la solucion aun mejor.
saludos
Marcelo
Posted: Fri Feb 23, 2007 8:50 pm
by RenOmaS
Estas seguro...
oReport:CellView()
tienes que ejecutarlo despues de haber definidos las columnas del reporte, siempre ha funcionado asi.. al menos en la version que tengo...que es un poco antigua
Salu2
Posted: Fri Feb 23, 2007 9:40 pm
by Marcelo Via Giglio
Hola,
(gracias por responder)
si, no me sale el grid, tan solo el contorno y no las lineas horizontales de division de cada linea.
Mira tu codigo es completemente claro, y no estas tocando el codigo de la clase original me parece muy raro, sera que puedes enviarme tus clases para probarlas (report y mreport) (via at dicyt.umss.edu.bo)
Desde ya muchas gracias
un saludo
Marcelo
Posted: Mon Feb 26, 2007 9:13 am
by RenOmaS
La que utilizo. es la que esta en utilidades (en este foro), es la que posteo Jose M.
salu2
Aqui la solucion
Posted: Tue Mar 06, 2007 7:15 pm
by Marcelo Via Giglio
Holas,
la solucion para el problema del cellview, va reemplazando el metodo
startline de la clase TMReport
METHOD StartLine( nHeight, lSeparator ) CLASS TMReport
If ::lSalida
::oSalida:StartLine( nHeight )
Else
Super:StartLine( nHeight, lSeparator )
EndIf
Return NIL
saludos
Marcelo
Re: Aqui la solucion
Posted: Wed Mar 07, 2007 1:27 am
by jnavas
Marcelo,
Puedes enviarme esta clase hacia
jnavas@datapronet.com
Marcelo Via Giglio wrote:Holas,
la solucion para el problema del cellview, va reemplazando el metodo
startline de la clase TMReport
METHOD StartLine( nHeight, lSeparator ) CLASS TMReport
If ::lSalida
::oSalida:StartLine( nHeight )
Else
Super:StartLine( nHeight, lSeparator )
EndIf
Return NIL
saludos
Marcelo