Negrilla en cGrandTotal de TReport

Negrilla en cGrandTotal de TReport

Postby FranciscoA » Fri Feb 16, 2018 9:37 pm

Hola amigos.
Puede alguno de ustedes decirme como poner en negrilla la leyenda del cGrandTotal de Treport?
Gracias de antemano.
Francisco J. Alegría P.
Chinandega, Nicaragua.

Fwxh-MySql-TMySql
User avatar
FranciscoA
 
Posts: 2105
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.

Re: Negrilla en cGrandTotal de TReport

Postby FranciscoA » Sat Feb 17, 2018 1:19 am

Bueno, después de intentar algun tiempo... (horas) lo hice de dos maneras. La primera sin modificar la Classe, y la segunda modificandola.
Lo dejo aquí por si a alguien le es útil.



Code: Select all  Expand view

1a)
oReport:bEnd:={|| oReport:Say(1, "TOTAL " + cTitulo ,2 ,PAD_LEFT , oReport:nRow + oReport:nStdLineHeight ) }


2da)
     //Desde el reporte...
     IF oReport:lCreated
        oReport:nGrandTotalFont := 2  //enviar la fuente requerida, de las establecidas
        oReport:cGrandTotal := "TOTAL " + cTitulo
     .......

   //En la Classe TReport, METHOD PageTotal()
   //Crear esta Data...
   DATA nGrandTotalFont INIT Nil     //FranciscoA 16/02/2018

   //Y modificar asi:...
   if ::lFinish
      if ! Empty( ::cGrandTotal )
      ::oDevice:Say( ::nRow,;
            ::aCols[ 1 ],;
            ::cGrandTotal,;
            ::aFont[if(::nGrandTotalFont == nil, eval( ::bStdFont ), ::nGrandTotalFont) ],;     //::aFont[eval( ::bStdFont ) ],;  //FranciscoA 16/02/2018
            nil,;
            ::aClrText[eval( ::bStdFont ) ],2 )
      endif
   else
.......
 


Saludos
Francisco J. Alegría P.
Chinandega, Nicaragua.

Fwxh-MySql-TMySql
User avatar
FranciscoA
 
Posts: 2105
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.

Re: Negrilla en cGrandTotal de TReport

Postby FranciscoA » Sat Feb 17, 2018 1:29 am

Ups...!!!
En la primera opcion tienen que omitir oReport:cGrandTotal =
Francisco J. Alegría P.
Chinandega, Nicaragua.

Fwxh-MySql-TMySql
User avatar
FranciscoA
 
Posts: 2105
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 12 guests