Xailer & OZ Software

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.

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

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