Reportes

[swrite]

Estimados señores buenos dias
Estoy tratando de usar la clase para los reportes, me hallo atascado en
lo siguiente
REPORT ::oReport ;
TITLE ::cTitle ;
HEADER empresa ,;
'Fecha de emisión : ' + Dtoc( Date() ) + Space(20) +
'Página : ' + StrZero( ::oReport:nPage,4) ;
ALIGN taCENTER ;
PREVIEW ;
FONT ::oFont_Normal, ::oFont_Normal_Bold, ::oFont_Doble,
::oFont_Doble_Bold
//aca se produce el error indicando que no hay el mensaje aFont
::oReport:oHeader:aFont[1] := { || ::Id_oFont_Doble_Bold }
//ACA EL ERROR
::oReport:oHeader:aFont[2] := { || ::Id_oFont_Normal_Bold }
::oReport:oTitle:aFont[1] := { || ::Id_oFont_Normal_Bold }
//esto funcionaba bien en Fw, como debo poner para poder setear el font
de la primera y segunda fila del Header ??
Saludos y gracias
Att
Wilson 'W' Gamboa A
swrite@uio.satnet.net

[ignacio]

Wilson,
En otro mensaje del foro se ha publicado hoy mismo la documentación de la
clase Report. Es parecida a la de Fw pero han cambiado algunas cosas, y
precisamente una de ellas es la que comenta. Actualmente oHeader:aFontS
recoge un array de valores numéricos y se utiliza el evento
oHeader:OnPrintLine() para cambiar temporalmente el font a imprimir.
Un saludo,
"Wilson 'W' Gamboa A" <swrite@uio.satnet.net> escribió en el mensaje
news:[email=44844bc0@ozsrvnegro.ozlan.local...]44844bc0@ozsrvnegro.ozlan.local...[/email]
> Estimados señores buenos dias
>
> Estoy tratando de usar la clase para los reportes, me hallo atascado en lo
> siguiente
>
> REPORT ::oReport ;
> TITLE ::cTitle ;
> HEADER empresa ,;
> 'Fecha de emisión : ' + Dtoc( Date() ) + Space(20) + 'Página
> : ' + StrZero( ::oReport:nPage,4) ;
> ALIGN taCENTER ;
> PREVIEW ;
> FONT ::oFont_Normal, ::oFont_Normal_Bold, ::oFont_Doble,
> ::oFont_Doble_Bold
>
> //aca se produce el error indicando que no hay el mensaje aFont
>
> ::oReport:oHeader:aFont[1] := { || ::Id_oFont_Doble_Bold } //ACA
> EL ERROR
> ::oReport:oHeader:aFont[2] := { || ::Id_oFont_Normal_Bold }
> ::oReport:oTitle:aFont[1] := { || ::Id_oFont_Normal_Bold }
>
> //esto funcionaba bien en Fw, como debo poner para poder setear el font de
> la primera y segunda fila del Header ??
>
> Saludos y gracias
>
> Att
> Wilson 'W' Gamboa A
> swrite@uio.satnet.net

[jrcpoli]

Saludos:
Por favor en que mensaje se ha publicado la documentación y en que New.
Gracias.
José Ramón Castro
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
news:448477ce$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Wilson,
>
> En otro mensaje del foro se ha publicado hoy mismo la documentación de la
> clase Report. Es parecida a la de Fw pero han cambiado algunas cosas, y
> precisamente una de ellas es la que comenta. Actualmente oHeader:aFontS
> recoge un array de valores numéricos y se utiliza el evento
> oHeader:OnPrintLine() para cambiar temporalmente el font a imprimir.
>
> Un saludo,
>
> "Wilson 'W' Gamboa A" <swrite@uio.satnet.net> escribió en el mensaje
> news:[email=44844bc0@ozsrvnegro.ozlan.local...]44844bc0@ozsrvnegro.ozlan.local...[/email]
>> Estimados señores buenos dias
>>
>> Estoy tratando de usar la clase para los reportes, me hallo atascado en
>> lo
>> siguiente
>>
>> REPORT ::oReport ;
>> TITLE ::cTitle ;
>> HEADER empresa ,;
>> 'Fecha de emisión : ' + Dtoc( Date() ) + Space(20) + 'Página
>> : ' + StrZero( ::oReport:nPage,4) ;
>> ALIGN taCENTER ;
>> PREVIEW ;
>> FONT ::oFont_Normal, ::oFont_Normal_Bold, ::oFont_Doble,
>> ::oFont_Doble_Bold
>>
>> //aca se produce el error indicando que no hay el mensaje aFont
>>
>> ::oReport:oHeader:aFont[1] := { || ::Id_oFont_Doble_Bold } //ACA
>> EL ERROR
>> ::oReport:oHeader:aFont[2] := { || ::Id_oFont_Normal_Bold }
>> ::oReport:oTitle:aFont[1] := { || ::Id_oFont_Normal_Bold }
>>
>> //esto funcionaba bien en Fw, como debo poner para poder setear el font
>> de
>> la primera y segunda fila del Header ??
>>
>> Saludos y gracias
>>
>> Att
>> Wilson 'W' Gamboa A
>> swrite@uio.satnet.net
>
>

[swrite]

Ignacio, no he hallado la documentacion que comentas, la podrias poner
en el foro ??
Gracias y perdon es que tengo premura
Saludos
Wilson 'W' Gamboa A
swrite@uio.satnet.net

[Francisco Sanchez]

REPORT oReport TITLE "TITLE1", ;
"TITLE2",;
"TITLE3" ALIGN taLEFT ;
HEADER "HEADER1",;
"HEADER2",;
"HEADER3",;
"HEADER4",;
"HEADER5",;
"HEADER6",;
"HEADER7",;
"HEADER8",;
"HEADER9",;
" " ALIGN taCENTER ;
FOOTER "Página : " + lTrim( Str( nPage ) ) ALIGN taCENTER
;
JOBNAME Upper( "LISTADO DE PRUEBAS" ) ;
FONT aFont[1], aFont[2], aFont[3], aFont[4]
WITH OBJECT oReport
:oHeader:aFonts[1] := 1
FOR n := 2 TO 9
:oHeader:aFonts[n] := 2
NEXT
FOR n := 1 TO 3
:oTitle:aFonts[n] := 2
NEXT
END WITH
Espero este ejemplo te sirva.
Un saludo

[ignacio]

Wilson,
Castellano: http://www.xailer.com/help/Report_es.rar
Ingles: http://www.xailer.com/help/Report_en.rar
Saludos,
"Wilson 'W' Gamboa A" <swrite@uio.satnet.net> escribió en el mensaje
news:44875652$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Ignacio, no he hallado la documentacion que comentas, la podrias poner en
> el foro ??
> Gracias y perdon es que tengo premura
>
> Saludos
>
> Wilson 'W' Gamboa A
> swrite@uio.satnet.net