Problemas con el REPORT

[carlos]

Un saludo fraternal a todo
Sin duda cada día molesto menos, lo que quiere decir qe me le he colado al
XAILER bastante y obviamente todo ha sido gracias a ustedes.
Ahora bien, me esta pasando alguito con los reportes y no logro salir de
ahi.
Me pasa algo raro,, ejecuto el ejemplo de los reportes que me sale en
XAILERSAMPLESPRINTING y no me da ningu problema,, ahora bien, hago lo
siguiente en un programa mio y:
METHOD BtnPrintClick( oSender ) CLASS TControlar
LOCAL oListado, oColu, oFont1, oFont2
::oDSEquipos:Gotop()
With Object oFont1 := TFont():New()
:cName := "Arial"
:nSize := 12
:lBold := .T.
END WITH
With Object oFont2 := TFont():New()
:cName := "Arial"
:nSize := 10
:lBold := .f.
END WITH
REPORT oListado TITLE "LISTADO DE INVENTARIOS" ;
HEADER DtoC(Date()) + " " + Time() ;
FOOTER "Pagina: " + lTrim(Str(oListado:nPage )) ALIGN taCENTER ;
PREVIEW
COLUMN OF oListado TITLE "Record" DATA Recno() ALIGN taRIGHT
COLUMN OF oListado TITLE "CODIGO", "DESCRIPCION", "MODELO" ;
DATA Equipos->IDINV, Equipos->Descrip, Modelo->Descrip
COLUMN OF oListado TITLE "Marca","Cantidad" DATA Marcas->Descrip,
Equipos->Cantidad
COLUMN OF oListado TITLE "Cantidad" DATA Equipos->Cantidad ALIGN
taRIGHT ;
PICTURE "@E 99,999,999" TOTAL
RUN REPORT oListado
RETURN Nil
Y obtengo este error:
FrmControl.prg(2734) E0030 Syntax Error: "parse error at 'oListado'"
FrmControl.prg(2736) E0030 Syntax Error: "parse error at 'OF'"
FrmControl.prg(2739) E0030 Syntax Error: "parse error at 'OF'"
FrmControl.prg(2741) E0030 Syntax Error: "parse error at 'OF'"
FrmControl.prg(2745) E0030 Syntax Error: "parse error at 'OF'"
No creo que haga algo mal puesto que uso la misma sintaxi del ejemplo ante
dicho,, me pueden decir que esta pasando.
Saludos de antemanos

[ignacio]

Carlos,
Falta un #include "report.ch" seguramente.
Un saludo,
"Carlos Cedeño Vera" <carlos@labodegadeclimas.com> escribió en el mensaje
news:[email=4300dec7@ozsrvnegro.ozlan.local...]4300dec7@ozsrvnegro.ozlan.local...[/email]
> Un saludo fraternal a todo
>
> Sin duda cada día molesto menos, lo que quiere decir qe me le he colado al
> XAILER bastante y obviamente todo ha sido gracias a ustedes.
>
> Ahora bien, me esta pasando alguito con los reportes y no logro salir de
> ahi.
>
> Me pasa algo raro,, ejecuto el ejemplo de los reportes que me sale en
> XAILERSAMPLESPRINTING y no me da ningu problema,, ahora bien, hago lo
> siguiente en un programa mio y:
>
>
> METHOD BtnPrintClick( oSender ) CLASS TControlar
> LOCAL oListado, oColu, oFont1, oFont2
> ::oDSEquipos:Gotop()
> With Object oFont1 := TFont():New()
> :cName := "Arial"
> :nSize := 12
> :lBold := .T.
> END WITH
> With Object oFont2 := TFont():New()
> :cName := "Arial"
> :nSize := 10
> :lBold := .f.
> END WITH
>
> REPORT oListado TITLE "LISTADO DE INVENTARIOS" ;
> HEADER DtoC(Date()) + " " + Time() ;
> FOOTER "Pagina: " + lTrim(Str(oListado:nPage )) ALIGN taCENTER ;
> PREVIEW
>
> COLUMN OF oListado TITLE "Record" DATA Recno() ALIGN taRIGHT
>
> COLUMN OF oListado TITLE "CODIGO", "DESCRIPCION", "MODELO" ;
> DATA Equipos->IDINV, Equipos->Descrip, Modelo->Descrip
>
> COLUMN OF oListado TITLE "Marca","Cantidad" DATA Marcas->Descrip,
> Equipos->Cantidad
>
> COLUMN OF oListado TITLE "Cantidad" DATA Equipos->Cantidad ALIGN
> taRIGHT ;
> PICTURE "@E 99,999,999" TOTAL
>
> RUN REPORT oListado
>
> RETURN Nil
>
> Y obtengo este error:
>
> FrmControl.prg(2734) E0030 Syntax Error: "parse error at 'oListado'"
> FrmControl.prg(2736) E0030 Syntax Error: "parse error at 'OF'"
> FrmControl.prg(2739) E0030 Syntax Error: "parse error at 'OF'"
> FrmControl.prg(2741) E0030 Syntax Error: "parse error at 'OF'"
> FrmControl.prg(2745) E0030 Syntax Error: "parse error at 'OF'"
>
> No creo que haga algo mal puesto que uso la misma sintaxi del ejemplo ante
> dicho,, me pueden decir que esta pasando.
>
> Saludos de antemanos
>
>
>