Negrilla en cGrandTotal de TReport

[FranciscoA]

Hola amigos.
Puede alguno de ustedes decirme como poner en negrilla la leyenda del cGrandTotal de Treport?
Gracias de antemano.

[FranciscoA]

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  RUN

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

[FranciscoA]

Ups...!!!
En la primera opcion tienen que omitir oReport:cGrandTotal =