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