Xailer & OZ Software

HOLA A TODOS.
NUEVAMENTE DANDO MOLESTIAS.
ESTOY PRACTICANDO EN GENERAR UN REPORTE PERO AL COMPILARLO ME DA ERRORES.
ESTE EJEMPLO LO SAQUE DE LOS EJEMPLOS QUE TRAE XAILER.
ANTERIORMENTE LO HICE EN OTRO FORMULARIO Y CORRE BIEN
PERO AHORA LO ESTOY TRATANDO DE PONER EN OTRO FORMULARIO PERO ME DALOS
SIGUIENTE ERRORES ERRORES
Compilando filtro.prg...
Compilando Form1.prg...
Form1.prg(51) Error E0030 Syntax error: "parse error at 'OREPORT'"
Form1.prg(58) Error E0030 Syntax error: "parse error at 'OF'"
Form1.prg(63) Error E0030 Syntax error: "parse error at 'OF'"
Form1.prg(68) Error E0030 Syntax error: "parse error at 'OF'"
Form1.prg(73) Error E0030 Syntax error: "parse error at 'OGROUP'"
Form1.prg(76) Warning W0001 Ambiguous reference: 'RLNONE'
Form1.prg(77) Warning W0001 Ambiguous reference: 'RGHORIZONTAL'
Enlazando filtro.exe...
Fatal: Unable to open file 'FORM1.OBJ'
2 Warnings, 6 Errors
¿ QUE ESTOY HACIENDO MAL O QUE DEBO DE HACER ?
GRACIAS POR TODA AYUDA
O SI ALGUIEN HA LOGRADO HACER FUNCIONAR REPORTES CON CRYSTAL REPORT EN
XAILER POR FAVOR EXPLIQUENME COMO HACERLO, YA DESCARQUE UN EJEMPLO PERO NO
LOGRO HACER QUE FUNCIONE.
ESTE ES EL REPORTE
METHOD Button1Click( oSender ) CLASS TForm1
Local oReport, oGroup, oFont1, oFont2
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
::oDBFDataSet1:OrdSetFocus("NUMERO")
::oDBFDataSet1:Gotop()
REPORT oReport ;
TITLE "Catalogo de Clientes" ;
HEADER DtoC( Date() ) + " " + Time() ;
header "Pagina: " + lTrim( Str( oReport:nPage ) ) ALIGN taCENTER ;
PREVIEW font oFont1, oFont2
COLUMN OF oReport ;
TITLE "numero" ;
DATA clientes->numero;
ALIGN taRIGHT ;
FONT 2
COLUMN OF oReport ;
TITLE "Nombre" ;
DATA clientes->nombre ALIGN taRIGHT ;
FONT 2
COLUMN OF oReport ;
TITLE "Direccion" ;
DATA clientes->direccion ALIGN taRIGHT ;
FONT 2
GROUP oGroup OF oReport ;
ON clientes->numero ;
header "Cliente " + oGroup:cValue + ":" ;
footer "" FONT 2
oReport:nTitleUpLine := rlNONE
oReport:nGridStyle := rghorizontal
RUN REPORT oReport
RETURN Nil

Pedro,
Añade :
#include "report.ch"
al inicio de tu formulario o módulo .prg
Saludos,
José Luis Capel
"Pedro de Leon Rodas" <pedro_deleon@hotmail.com> escribió en el mensaje
news:[email=4626f06b@ozsrv2.ozlan.local...]4626f06b@ozsrv2.ozlan.local...[/email]
> HOLA A TODOS.
> NUEVAMENTE DANDO MOLESTIAS.
>
> ESTOY PRACTICANDO EN GENERAR UN REPORTE PERO AL COMPILARLO ME DA ERRORES.
>
> ESTE EJEMPLO LO SAQUE DE LOS EJEMPLOS QUE TRAE XAILER.
>
> ANTERIORMENTE LO HICE EN OTRO FORMULARIO Y CORRE BIEN
> PERO AHORA LO ESTOY TRATANDO DE PONER EN OTRO FORMULARIO PERO ME DALOS
> SIGUIENTE ERRORES ERRORES
>
> Compilando filtro.prg...
> Compilando Form1.prg...
> Form1.prg(51) Error E0030 Syntax error: "parse error at 'OREPORT'"
> Form1.prg(58) Error E0030 Syntax error: "parse error at 'OF'"
> Form1.prg(63) Error E0030 Syntax error: "parse error at 'OF'"
> Form1.prg(68) Error E0030 Syntax error: "parse error at 'OF'"
> Form1.prg(73) Error E0030 Syntax error: "parse error at 'OGROUP'"
> Form1.prg(76) Warning W0001 Ambiguous reference: 'RLNONE'
> Form1.prg(77) Warning W0001 Ambiguous reference: 'RGHORIZONTAL'
> Enlazando filtro.exe...
> Fatal: Unable to open file 'FORM1.OBJ'
> 2 Warnings, 6 Errors
>
> ¿ QUE ESTOY HACIENDO MAL O QUE DEBO DE HACER ?
>
> GRACIAS POR TODA AYUDA
>
> O SI ALGUIEN HA LOGRADO HACER FUNCIONAR REPORTES CON CRYSTAL REPORT EN
> XAILER POR FAVOR EXPLIQUENME COMO HACERLO, YA DESCARQUE UN EJEMPLO PERO NO
> LOGRO HACER QUE FUNCIONE.
>
>
>
>
>
>
> ESTE ES EL REPORTE
>
> METHOD Button1Click( oSender ) CLASS TForm1
>
> Local oReport, oGroup, oFont1, oFont2
>
> 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
>
> ::oDBFDataSet1:OrdSetFocus("NUMERO")
> ::oDBFDataSet1:Gotop()
>
>
> REPORT oReport ;
> TITLE "Catalogo de Clientes" ;
> HEADER DtoC( Date() ) + " " + Time() ;
> header "Pagina: " + lTrim( Str( oReport:nPage ) ) ALIGN taCENTER ;
> PREVIEW font oFont1, oFont2
>
>
> COLUMN OF oReport ;
> TITLE "numero" ;
> DATA clientes->numero;
> ALIGN taRIGHT ;
> FONT 2
>
> COLUMN OF oReport ;
> TITLE "Nombre" ;
> DATA clientes->nombre ALIGN taRIGHT ;
> FONT 2
>
> COLUMN OF oReport ;
> TITLE "Direccion" ;
> DATA clientes->direccion ALIGN taRIGHT ;
> FONT 2
>
> GROUP oGroup OF oReport ;
> ON clientes->numero ;
> header "Cliente " + oGroup:cValue + ":" ;
> footer "" FONT 2
>
>
> oReport:nTitleUpLine := rlNONE
> oReport:nGridStyle := rghorizontal
>
>
> RUN REPORT oReport
>
> RETURN Nil
>
>
>
>
>
>
>