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: Select all Expand view
- 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)
