En tema de la clase REPORT

[Emilio Gil]

Como sustituir:
REPORT oReport TITLE "Tí­tulo del reporte" FONT oFont1 PREVIEW
por
REPORT oReport FONT oFont1 PREVIEW
oReport:????? := "Tí­tulo del reporte"
he probado con:
oReport:Title :=
oReport:cTitle :=
y no consigo dar con la solución, tampoco sé si será posible.
Saludos.
Emilio Gil.

[ignacio]

Emilio,
No es tan sencillo. La cabecera del informe, incluido si título está
gestionada por una clase aparte TRtpLine. La propiedad del Report que guarda
la cabecerá se llama oHeader, y estos son sus miembros:
CLASS TRptLine
PUBLISHED:
PROPERTY oReport // Report object
PROPERTY aLine // Array of codeblocks that return lines of text
PROPERTY aAlignment // Array of style alignment for every line in
aLines
PROPERTY aFonts // Array of numeric font to use for every line in
aLines
PROPERTY nColor INIT clBlack
PROPERTY Cargo
EVENT OnPrintLine( oSender, nLine, cText, nFont, nColor ) // cText, nFont
and nColor byRef
PUBLIC:
DATA aRow, aWidth
DATA nCol, nHeight, nWidth
METHOD New( oReport ) CONSTRUCTOR
METHOD Create( oReport, aLine, nAlignment, cType ) CONSTRUCTOR
METHOD AddLine( bLine, nAlignment )
METHOD Adjust( nFirstRow, nFirstCol )
METHOD Print( nStartRow )
ENDCLASS
Espero que podamos tener la documentación de los informes muy pronto.
Un saludo
"Emilio Gil" <emilio@iplasticas.com> escribió en el mensaje
news:44169b6b$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Como sustituir:
>
> REPORT oReport TITLE "Título del reporte" FONT oFont1 PREVIEW
>
> por
>
> REPORT oReport FONT oFont1 PREVIEW
>
> oReport:????? := "Título del reporte"
>
> he probado con:
>
> oReport:Title :=
> oReport:cTitle :=
>
> y no consigo dar con la solución, tampoco sé si será posible.
>
>
> Saludos.
> Emilio Gil.
>

[Rene Flores]

Emilio:
Yo solucione eso, haciendo un WITH OBJECT antes del RUN REPORT:
WITH OBJECT oRep
:aColumns[1]:onPrintData := {|oSender, nLine, cText, nFont, nColor|
nFont := IIF((ALI_CATTOD)->subcuenta = "0000",3,2) }
:aColumns[2]:onPrintData := {|oSender, nLine, cText, nFont, nColor|
nFont := IIF((ALI_CATTOD)->subcuenta = "0000",3,2) }
:aColumns[3]:onPrintData := {|oSender, nLine, cText, nFont, nColor|
nFont := IIF((ALI_CATTOD)->subcuenta = "0000",3,2) }
:aColumns[4]:onPrintData := {|oSender, nLine, cText, nFont, nColor|
nFont := IIF((ALI_CATTOD)->subcuenta = "0000",3,2) }
:aColumns[5]:onPrintData := {|oSender, nLine, cText, nFont, nColor|
nFont := IIF((ALI_CATTOD)->subcuenta = "0000",3,2) }
:nGridStyle := rgVERTICAL
:nGroupLine := rlNONE
:nTitleUpLine := rlSINGLE
:nTitleDnLine := rlSINGLE
:bSkip := {|| (ALI_CATTOD)->(DBSKIP())}
:oTitle:aAlignment[2] := taRIGHT
:lPreview := IIF(::oCombobox1:nIndex = 1, .T., .F.)
END WITH
RUN REPORT oRep WHILE ! (ALI_CATTOD)->(EOF())
A ver si te hace el apaño.
Saludos
Rene Flores
http://www.ciber-tec.com
Gil escribió:
> Como sustituir:
>
> REPORT oReport TITLE "Tí­tulo del reporte" FONT oFont1 PREVIEW
>
> por
>
> REPORT oReport FONT oFont1 PREVIEW
>
> oReport:????? := "Tí­tulo del reporte"
>
> he probado con:
>
> oReport:Title :=
> oReport:cTitle :=
>
> y no consigo dar con la solución, tampoco sé si será posible.
>
>
> Saludos.
> Emilio Gil.
>