FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Negrilla en cGrandTotal de TReport
Posts: 2170
Joined: Fri Jul 18, 2008 01:24 AM
Negrilla en cGrandTotal de TReport
Posted: Fri Feb 16, 2018 09: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
Posts: 2170
Joined: Fri Jul 18, 2008 01:24 AM
Re: Negrilla en cGrandTotal de TReport
Posted: Sat Feb 17, 2018 01: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 (fw): Select all Collapse
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
Posts: 2170
Joined: Fri Jul 18, 2008 01:24 AM
Re: Negrilla en cGrandTotal de TReport
Posted: Sat Feb 17, 2018 01:29 AM

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

Francisco J. AlegrĂ­a P.

Chinandega, Nicaragua.



Fwxh-MySql-TMySql

Continue the discussion