topic-31738

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Problema con Encabezados de TReport
Posted: Tue Dec 22, 2015 01:56 AM

Antonio y amigos del foro:

En versiones anteriores como la FWH0810 cuando el título excedía el ancho de la columna,
el texto se extendía hacia las columnas contiguas, hacia la izquierda si la alineación era a la
derecha y hacia la derecha si la alineación era hacia la izquierda, tal como se ve en el texto
"Totales del inventario:" (Ocupa dos columnas).

Ahora en la versión FWH1507 el texto del título se trunca a la longitud de lo ancho de la columna
tal como se ve en la imagen, el texto en el título de la tercera columna es "Unidad de medida"

¿¿¿Es posible dar el mismo efecto al texto del título como el que tiene el texto de los totales????

Creo que mejor que por default el texto del título se extienda a las columnas contiguas, no?

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: Problema con Encabezados de TReport
Posted: Wed Dec 23, 2015 04:02 PM

Antonio:

No es posible?

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: Problema con Encabezados de TReport
Posted: Mon Dec 28, 2015 04:35 PM

Arriba

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: Problema con Encabezados de TReport
Posted: Wed Dec 30, 2015 02:48 AM

Hola Armando.
Dale un vistazo a la Class TRcolum (RColum.prg), en los metodos SayTitle y SayData.

Si te fijas bien, en el metodo SayData está esta linea: //nWidth := ::oReport:oDevice:GetTextWidth(cText, oFont) // To Review: Why is this line here?

No lo he probado, pero que tal si modificas el metodo SayTitle:
...
...
::nCurLine := nLine

nWidth := ::oReport:oDevice:GetTextWidth(cTiTle, oFont) //aqui agregas esto

//y aqui reemplazas ::nWidth por nWidth
::oReport:oDevice:Say(nRow, nCol, cTitle, oFont, ::nWidth,;
::oReport:aClrText[nFont],,::nPad-1)

Espero que puedas solucionar, sin embargo... ¿Qué pasaría si ancho de las columnas anterior y posterior es pequeño?

Por otro lado, tambien puedes utilizar dos o mas lineas en el titulo de la columna que mencionas.

Saludos.

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: Problema con Encabezados de TReport
Posted: Wed Dec 30, 2015 04:37 AM

Francisco:

Eres muy amable al darme tu sugerencia, no me gusta meterle mano a las clases por dos
simples razones primero: no tengo el suficiente tiempo ni conocimiento y segunda, te obliga
a que con cada actualización tengas que volver a modificar la clase, por esto prefiero dejar
a los expertos que lo hagan.

Sin embargo, con ganas de aprender seguiré tu sugerencia pues me parece que es mejor
dejar los encabezados como en la clase TSBrowse que utiliza los super encabezados.

Saludos y muchas gracias

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: Problema con Encabezados de TReport
Posted: Wed Dec 30, 2015 04:46 AM

Francisco:

He intentado tu sugerencia cambiando el código y quedó como sigue:

Code (fw): Select all Collapse

   nWidth := ::oReport:oDevice:GetTextWidth(cText, oFont)

   if ! Empty( cText )
      if ! ::lMemo
         if ::nVAlign > 0
            nTopMargin  := ::oReport:nRowHeight - Len( ::aData ) * ::nDataHeight
            if ::nVAlign == 1
               nTopMargin  /= 2
            endif
         endif
      endif
      ::oReport:oDevice:Say( nRow + nTopMargin, nCol, cText, oFont, nWidth,;
                           ::oReport:aClrText[nFont],,::nPad-1)

Agregue el RColumn.Prg a mi script de compilación pero no hubo cambio, me falta algo?

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: Problema con Encabezados de TReport
Posted: Wed Dec 30, 2015 11:33 PM

Armando.
No estoy seguro que esas lineas que muestras sean del metodo SayTitle. (En mi version son otras)
En esto momento estoy fuera. Mas tarde te digo.
Saludos.

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: Problema con Encabezados de TReport
Posted: Thu Dec 31, 2015 01:12 AM

Francisco:

No había entendido, ya ves porqué no me animo a modificar clases?.

Correcto, ahora todo va bien, ya nada mas habré de tener cuidado
cuando cambie de versión.

Así quedó:

Code (fw): Select all Collapse

      nWidth := ::oReport:oDevice:GetTextWidth(cTitle, oFont)

     ::oReport:oDevice:Say(nRow, nCol, cTitle, oFont, nWidth,;
                           ::oReport:aClrText[nFont],,::nPad-1)

Saludos y muchas gracias

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: Problema con Encabezados de TReport
Posted: Thu Dec 31, 2015 01:30 AM

Me alegra que lo hayas solucionado.

Feliz año nuevo...!

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

FiveTech Support Forums

Continue the discussion