Xailer & OZ Software

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

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
>
>
>