Footer en un grupo, no me funciona.

Footer en un grupo, no me funciona.

Postby Garbi » Tue Mar 22, 2016 11:08 am

Hola estoy intentado poner un footer a un grupo y cuando le pongo algo me da error de windows, si le pongo valor a header si funciona bien, os dejo el codigo para ver si me dais una idea de porque no me funciona.
Code: Select all  Expand view
  REPORT oReport TITLE vtitle;
            HEADER "TORRES ESPIC","Fecha: "+dtoc(date()),"Hora: "+substr(time(),1,5) RIGHT;
            FONT oFont1,oFont2,oFont3,oFont4;
            FOOTER OemtoAnsi("Pagina: ")+str(oReport:nPage,3) CENTERED;
            PREVIEW


     COLUMN TITLE "Pedido"    DATA alltrim(transform((cetiqueta)->pedido,"9999999999"))+"-"+alltrim(transform((cetiqueta)->orden,"999")) FONT 4 GRID
     COLUMN TITLE "Fecha"     DATA dtoc((cetiqueta)->fecha) size 8 GRID
     COLUMN TITLE "Cliente"   DATA substr(buscarclientelistado((cetiqueta)->cliente),1,25) FONT 2 GRID
     COLUMN TITLE "Articulo"  DATA substr(buscararticulolistado((cetiqueta)->articulo),1,25) FONT 2 GRID
     COLUMN TITLE "Stock"     DATA (cetiqueta)->unidades  FONT 4 total CENTER GRID
     COLUMN TITLE "Paquete"   DATA (cetiqueta)->paquetes  FONT 4 CENTER GRID
     COLUMN TITLE "Servido"   DATA iif((cetiqueta)->fin,"Si","No")  FONT 4 CENTER GRID

*     GROUP ON transform(tlistado[i,1],"9999999999")+"-"+alltrim(transform(tlistado[i,2],"999"))
*    GROUP ON transform(tlistado[i,1],"9999999999")+"-"+alltrim(transform(tlistado[i,2],"999")) header " Total : " + ( oReport:aGroups[ 1 ]:cValue )
     GROUP ON alltrim(transform((cetiqueta)->pedido,"9999999999"))+"-"+alltrim(transform((cetiqueta)->orden,"999")) HEADER "CABECERA" footer ""

     oReport:CellView()

     END REPORT
     IF oReport:lCreated
        oReport:oTitle:aFont[1] := {|| 3 }
        oReport:aColumns[1]:bDataFont := {|| 4 }
     endif


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

Jose Luis Alepuz
joseluis@mancomputer.com
www.mancomputer.com
Garbi
 
Posts: 336
Joined: Wed Nov 02, 2005 3:28 pm

Re: Footer en un grupo, no me funciona.

Postby Antonio Linares » Wed Mar 23, 2016 4:09 pm

Tienes un ejemplo en FWH\samples\report\rep10.prg
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42074
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 79 guests