Descargo de un WS y guardo los datos en una tabla mysql con la clase nativa de FWH
Tiro un browse y veo los datos del recordset maravillosamente.
Con esta función, intento generar un reporte en pdf de dichos dat
- Code: Select all Expand view
FUNCTION InfDesoaPdf( oRs, wfecha, wHorainic, wHorafin, lpdf )
LOCAL oReport, oBmp, oPrn, whora
whora:= Time()
whora:= Substr(whora, 1, 2) + Substr(whora, 4, 2)
lpdf:=.f. //pasar a .t.
oRs:Gotop()
DEFINE FONT oFont1 NAME "Arial" SIZE 0,-10
IF lPdf:=.t.
PRINT oPrn FILE ".\PDFS\" + wfecha + "-" + whora + ".pdf"
REPORT oReport ;
TITLE "*** Informe de Entrada al Desosado ***",;
wfecha + " de las " + wHorainic + " hasta las " + wHoraFin ;
HEADER "Fecha: " + dtoc(date()),;
"Hora: " + time() ;
RIGHT ;
FOOTER "Página: " + str(oReport:nPage,4) ;
CENTERED ;
TO DEVICE oPrn
ELSE
REPORT oReport ;
TITLE "*** Informe de Entrada al Desosado ***",;
wfecha + " de las " + wHorainic + " hasta las " + wHoraFin ;
HEADER "Fecha: " + dtoc(date()), ;
"Hora: " + time() ;
RIGHT ;
FOOTER "Página: " + str(oReport:nPage,4) ;
PREVIEW ;
CENTERED
ENDIF
COLUMN TITLE "Hora" ;
DATA oRs:Hora ;
PICTURE "XXXXXXXX" ;
SIZE 14 ;
FONT 1
COLUMN TITLE "Cantidad" ;
DATA oRs:Cantidad ;
PICTURE "999" ;
SIZE 14 ;
FONT 1
COLUMN TITLE "P. Neto" ;
DATA oRs:PesoNeto ;
PICTURE "999.99" ;
SIZE 14 ;
TOTAL
COLUMN TITLE "Hora" ;
DATA oRs:PesoNeto ;
PICTURE "XXXXXXXX" ;
SIZE 14 ;
GROUP ON oRs:ProductoId ;
HEADER "Producto: " + oRs:ProductoId
END REPORT
oReport:bInit := {|| oRs:Gotop()}
oReport:bSkip := {|| oRs:Skip()}
ACTIVATE REPORT oReport ON STARTGROUP oReport:NewLine() ;
ON STARTPAGE StartPage()
RETURN NIL
Me hace el reporte pero en blanco, y no me doy cuenta dónde está mal.
