I have the following code.
Code: Select all
REPORT oReporte CAPTION cTitulo PREVIEW ;
HEADER ALLTRIM(oApp:cRazonSocial),;
"",;
cTitulo CENTER;
TITLE "Fecha: "+Date2Txt(DATE()),;
"Hoja No:"+STR(oReporte:nPage,3);
FONT oFont1,oFont2,oFont3;
PEN oPen1,oPen2
COLUMN TITLE "Folio" DATA "" SIZE 4 RIGHT
COLUMN TITLE "Concepto" DATA "" SIZE 35 LEFT
COLUMN TITLE "Referencia" DATA "" SIZE 12 LEFT
COLUMN TITLE "Importe" DATA "" SIZE 11 RIGHT
COLUMN TITLE "Prestamos" DATA "" SIZE 11 RIGHT
END REPORT
IF oReporte:lCreated
oReporte:SetTxtColor(CLR_BLACK,1)
oReporte:SetTxtColor(CLR_HRED,2)
oReporte:SetTxtColor(CLR_HRED,3)
oReporte:SetPenColor(CLR_HBLUE)
oReporte:SetShdColor(CLR_YELLOW)
oReporte:oHeader:aFont[1] := {||3}
oReporte:oTitle:aPad[1] := RPT_LEFT
oReporte:oTitle:aPad[2] := RPT_RIGHT
oReporte:bInit := {|| oRsGas:MoveFirst() }
oReporte:nTopMargin := 300
oReporte:nDnMargin := 300
oReporte:bSkip := { || (nLinea++, oRsGas:MoveNext())}
ENDIF
ACTIVATE REPORT oReporte ;
ON STARTPAGE Alinea(oReporte,1,2);
ON CHANGE PonDet(oReporte);
ON END (TotFin(oReporte,oBrw),oRsGas:BookMark := nBookMark);
WHILE nLinea <= nHasta
oRsGas:SORT := "GAS_GAS ASC"
oBrw:Refresh()
oFont1:Release()
oFont2:Release()
oFont3:Release()
oPen1:Release()
oPen2:Release()
RETURN(.T.)
But when exporting it to Excel shows it incomplete, could you help me?, what am I omitting?
With best regards
