Hola Armando, gracias por contestar.
No se me ha solucionado, persiste el error, y cosa curiosa, antes me daba un error 6 por cada linea del bPostEnd ahora solo me da una vez, además de que me coloca una línea de fin de página al final de la página de los datos y me monta las lineas que debería ir como pie de página en la siguiente página.
Este es el código donde se produce el error, pero ¡¡¡¡OJO!!! ese error sólo lo produce en uno de los meses listados, en el resto de los meses no se produce, y el reporte sale correcto.
.........
COLUMN TITLE "TOTAL " ;
DATA (cAlias)->total;
PICTURE "999,999.99";
TOTAL ;
FONT 2 ;
GRID 2
END REPORT
oReport:bPostEnd :={|| DatosFin( oReport, aBases ) }
ACTIVATE REPORT oReport
oFont1:End()
oFont2:End()
oPen1:End()
oPen2:End()
RETURN NIL
*-------------------------------------------------------------------------------
Function DatosFin(oReport,aBases)
*-------------------------------------------------------------------------------
oReport:lGrid := .f.
oReport:NewLine()
If oReport:NeedNewPage()
* oReport:EndPage()
oReport:StartPage()
EndIF
oReport:lGrid := .f.
If aBases[1] <> 0
oReport:Say(5,"Base Imponible al 16 %"+" "+Transform(aBases[1],"999,999.99"))
oReport:NewLine()
EndIf
If aBases[2] <> 0
oReport:Say(5,"Base Imponible al 4 %"+" "+Transform(aBases[2],"999,999.99"))
oReport:NewLine()
EndIf
If aBases[3] <> 0
oReport:Say(5,"Base Imponible al 7 %"+" "+Transform(aBases[3],"999,999.99"))
oReport:NewLine()
EndIf
If aBases[4] <> 0
oReport:Say(5,"Base Imponible al 1 %"+" "+Transform(aBases[4],"999,999.99"))
oReport:NewLine()
EndIf
If aBases[5] <> 0
oReport:Say(5,"Base Imponible al 4 %"+" "+Transform(aBases[5],"999,999.99"))
oReport:NewLine()
EndIf
If aBases[6] <> 0
oReport:Say(5,"Base Imponible al 0,5 %"+" "+Transform(aBases[6],"999,999.99"))
oReport:NewLine()
EndIf
If aBases[7] <> 0
oReport:Say(5,"Base Imponible exenta"+" "+Transform(aBases[7],"999,999.99"))
EndIf
Return nil
