FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Diferentes Font en la misma columna con dos lineas.
Posts: 350
Joined: Wed Nov 02, 2005 03:28 PM
Diferentes Font en la misma columna con dos lineas.
Posted: Thu May 17, 2012 04:06 PM
Hola me gustaria saber si existe la posibilidad en un report con una columna con dos lineas ponerles diferentes FONT.
Ejemplo : En el codigo que sigue en la ultima columna según una condición cada "linea" tiene que usar un FONT distinto.
Gracias
Code (fw): Select all Collapse
DEFINE FONT oFont1 NAME "Arial" SIZE 0,-8
 DEFINE FONT oFont2 NAME "Arial" SIZE 0,-8 UNDERLINE


       REPORT oReport TITLE "Listado Pedidos";
            HEADER "TORRES ESPIC","Fecha: "+dtoc(date()) RIGHT;
            FONT oFont1,oFont2;
            FOOTER OemtoAnsi("Pagina: ")+str(oReport:nPage,3) CENTERED;
            PREVIEW



     COLUMN TITLE "Pedido"    DATA alltrim(transform((cpedido)->pedido,"9999999999"))+"-"+alltrim(transform((cpedido)->orden,"999")) GRID
     COLUMN TITLE "Articulo"  DATA alltrim((cpedido)->articulo) GRID
     COLUMN TITLE "Detalle"   DATA substr((cpedido)->detalle,1,25) GRID
     COLUMN TITLE "Unidades"  DATA TRANSFORM((cpedido)->unidades,"999,999") SIZE 5 CENTER GRID
     COLUMN TITLE "F.Fin "    DATA DTOC((cpedido)->ffin) GRID
     COLUMN TITLE "Nave A/S"  DATA iif((cpedido)->anaveas,dtoc((cpedido)->fanaveas),;
                                   dtoc((cpedido)->fnaveas)) GRID
     COLUMN TITLE "W-22"  DATA dtoc((cpedido)->fw22) GRID
     COLUMN TITLE "C/S"   DATA dtoc((cpedido)->fCS) GRID
     COLUMN TITLE "Perfilado"  DATA dtoc((cpedido)->fperfilado) GRID
     COLUMN TITLE "Pelado"    DATA dtoc((cpedido)->fpelado) GRID
     COLUMN TITLE "Pegado"  DATA dtoc((cpedido)->fpegado1) GRID
     COLUMN TITLE "Refilado 1" DATA dtoc((cpedido)->frefilado1) GRID
     COLUMN TITLE "Refilado 2"  DATA dtoc((cpedido)->frefilado2) GRID
     COLUMN TITLE "Embolsado","Paletizado","Comprimido"  DATA dtoc((cpedido)->fembolsado),dtoc((cpedido)->fpaletizad),dtoc((cpedido)->fcomprimid) GRID


     oReport:CellView()



     END REPORT

      oReport:aColumns[6]:bDataFont := {|| iif((cpedido)->anaveas,2 ,1 ) }
      oReport:aColumns[7]:bDataFont := {|| iif((cpedido)->aw22,2 ,1 ) }
      oReport:aColumns[8]:bDataFont := {|| iif((cpedido)->acs,2 ,1 ) }
      oReport:aColumns[9]:bDataFont := {|| iif((cpedido)->aperfilado,2 ,1 ) }
      oReport:aColumns[10]:bDataFont := {|| iif((cpedido)->apelado,2 ,1 ) }
      oReport:aColumns[11]:bDataFont := {|| iif((cpedido)->apegado1,2 ,1 ) }
      oReport:aColumns[11]:bDataFont := {|| iif((cpedido)->arefilado1,2 ,1 ) }
      oReport:aColumns[12]:bDataFont := {|| iif((cpedido)->arefilado2,2 ,1 ) }
     ACTIVATE REPORT oReport;
              ON STARTPAGE   oReport:SayBitmap(.1,.4, "TORRES.BMP",.4,.4)
Saludos,
Regards,

Jose Luis Alepuz
joseluis@mancomputer.com
www.mancomputer.com
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: Diferentes Font en la misma columna con dos lineas.
Posted: Fri May 18, 2012 12:56 AM
Dios no está muerto...



Gracias a mi Dios ante todo!

Continue the discussion