In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

ERROR AL CREAR REPORTE

Foro público de Xailer en español
Responder
Pedro de Leon Rodas
Mensajes: 19
Registrado: Vie Abr 06, 2007 3:46 am

ERROR AL CREAR REPORTE

Mensaje por Pedro de Leon Rodas »

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
Arriba
jose.luis
Mensajes: 1633
Registrado: Vie Oct 14, 2005 10:56 pm

ERROR AL CREAR REPORTE

Mensaje por jose.luis »

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

Volver a “Xailer Spanish”