FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Quisiera poner en gris (SHADOW) una celda de un report.
Posts: 350
Joined: Wed Nov 02, 2005 03:28 PM
Quisiera poner en gris (SHADOW) una celda de un report.
Posted: Wed May 16, 2012 06:04 PM
Hola me gustaria que dependiendo de una condición la "celda" de un report, la llamo celda por que estan con GRID, se activara el SHADOW o no pero me da error de array y no se que puedo estar haciendo mal o como hacerlo, aqui os dejo el codigo que estoy intentando usar :
Code (fw): Select all Collapse
DEFINE FONT oFont1 NAME "Arial" SIZE 0,-8


       REPORT oReport TITLE "Listado Pedidos";
            HEADER "TORRES ESPIC","Fecha: "+dtoc(date()) RIGHT;
            FONT oFont1;
            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,40) GRID
     COLUMN TITLE "Cliente"   DATA alltrim(transform((cpedido)->cliente,"9999999999")) GRID
     COLUMN TITLE "Unidades"  DATA (cpedido)->unidades picture "999,999" 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)) SHADOW GRID
     COLUMN TITLE "W-22","C/S","Perfilado"  DATA dtoc((cpedido)->fw22),dtoc((cpedido)->fCS),dtoc((cpedido)->fperfilado)
     COLUMN TITLE "Pelado"    DATA dtoc((cpedido)->fpelado)
     COLUMN TITLE "Pegado"  DATA dtoc((cpedido)->fpegado1)
     COLUMN TITLE "Refilado 1","Refilado 2"  DATA dtoc((cpedido)->frefilado1),dtoc((cpedido)->frefilado2)
     COLUMN TITLE "Embolsado","Paletizado","Comprimido"  DATA dtoc((cpedido)->fembolsado),dtoc((cpedido)->fpaletizad),dtoc((cpedido)->fcomprimid)

     oReport:aColumns[7]:lShadow:={||iif((cpedido)->anaveas,.t. ,.f.)}
     oReport:CellView()



     END REPORT

     ACTIVATE REPORT oReport;
              ON STARTPAGE   oReport:SayBitmap(.2,.5, "TORRES.BMP",.5,.5)


Agradeceria cualquier idea
Saludos,
Regards,

Jose Luis Alepuz
joseluis@mancomputer.com
www.mancomputer.com
Posts: 350
Joined: Wed Nov 02, 2005 03:28 PM
Re: Quisiera poner en gris (SHADOW) una celda de un report.
Posted: Thu May 17, 2012 10:40 AM

Hola ya he detectado el primer fallo y es oReport:aColumns[7]:lShadow:={||iif((cpedido)->anaveas,.t. ,.f.)} va despues del END REPORT, pero como no consigo hacerlo por ahora y si alguien no me da una idea voy a jugar con distintas fonts, vamos que el cumpla la condición lo subrayo y el que no no y asi he probado y lo he conseguido. Pero sería genial poder hacerlo. Gracias.

Saludos,
Regards,

Jose Luis Alepuz
joseluis@mancomputer.com
www.mancomputer.com

Continue the discussion