Saludos.
Eso... ¿Cómo se hace para poner el Titulo del Reporte también como encabezado para cada grupo?
REPORT oRep TITLE "Articulos comprados por fecha del " + ;
DTOC(mdesde) + " al " + DTOC(mhasta) ;
FONT oFont1,oFont2,oFont3 HEADER oApp:nomb_emp , ;
"Articulos comprados por fecha" CENTER ;
FOOTER "Hoja:" + STR(oRep:npage,3) ,"Fecha:"+DTOC(DATE()) CENTER;
PREVIEW CAPTION "Articulos comprados por fecha"
GROUP oGru ON oQry:Rubro HEADER oQry:rubro FOOTER "Totales Rubro" FONT 3
COLUMN TITLE "Nro.Fact." DATA oQry:numfac SIZE 15 FONT 1
COLUMN TITLE "Fecha" DATA oQry:fecha PICTURE "@D" SIZE 10 FONT 1
COLUMN TITLE "Cantidad" DATA oQry:cantidad PICTURE "999999999" ;
SIZE 10 FONT 2 TOTAL
COLUMN TITLE "Importe" DATA oQry:precio ;
PICTURE "9999999999.99" SIZE 12 FONT 2 TOTAL
oRep:oTitle:aFont[1] := {|| 3 }
oRep:bInit := {|| oQry:GoTop() }
oRep:bSkip := {|| oQry:Skip() }
END REPORT
// Activo el reporte
ACTIVATE REPORT oRep WHILE !oQry:EOF() ON INIT CursorArrow();
ON STARTPAGE oRep:SayBitmap(.1,.1,"LOGO.JPG",.3,.3);
ON POSTGROUP oRep:NewLine()
REPORT oRep TITLE "Articulos comprados por fecha del " + ;
DTOC(mdesde) + " al " + DTOC(mhasta) ;
FONT oFont1,oFont2,oFont3 HEADER oApp:nomb_emp , ;
"Articulos comprados por fecha" CENTER ;
FOOTER "Hoja:" + STR(oRep:npage,3) ,"Fecha:"+DTOC(DATE()) CENTER;
PREVIEW CAPTION "Articulos comprados por fecha"
GROUP oGru ON oQry:Rubro HEADER oQry:rubro FOOTER "Totales Rubro" FONT 3
COLUMN TITLE "Articulo" DATA oQry:detart SIZE 30 FONT 1
COLUMN TITLE "Codigo" DATA oQry:codart SIZE 06 FONT 1
COLUMN TITLE "Cantidad" DATA oQry:cantidad PICTURE "999999999" ;
SIZE 10 FONT 2 TOTAL
COLUMN TITLE "Importe" DATA oQry:precio ;
PICTURE "9999999999.99" SIZE 12 FONT 2 TOTAL
oRep:oTitle:aFont[1] := {|| 3 }
oRep:bInit := {|| oQry:GoTop() }
oRep:bSkip := {|| oQry:Skip() }
END REPORT
// Activo el reporte
ACTIVATE REPORT oRep WHILE !oQry:EOF() ON INIT CursorArrow();
ON STARTGROUP ReplicaTitulo(oRep,mdesde,mhasta) ON STARTPAGE oRep:SayBitmap(.1,.1,"LOGO.JPG",.3,.3);
ON POSTGROUP oRep:NewLine()
oQry:End()
RETURN
STATIC FUNCTION ReplicaTitulo(oRep,mdesde,mhasta)
oRep:NewLine()
oRep:TotalLine( RPT_DOUBLELINE )
oRep:Say(1,"Articulos comprados por fecha del " + ;
DTOC(mdesde) + " al " + DTOC(mhasta) ,2)
oRep:NewLine()
RETURN nil
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 99 guests