tReport y separaci

jose.luis · Mensaje por **jose.luis** » Vie Nov 03, 2006 10:05 am

Hola,
Me gustaría hacer dos cosas con la tReport (no he sabido ver como).
Suponiendo este trozo de código:
COLUMN OF oReport ;
TITLE "F. Pago","Importe" ;
DATA oMemdataset1:FPago, STR/oMemDataSet1:importe)
A. Quisiera que, para esa columna, la primera linea la pinte en negrita (por
ejemplo) y la segunda en la fuente estándard.
B. Quisiera establecer un alto de linea de tal manera que al imprimir el
listado los registros queden ligeramente separados unos de otros. Me
explico mejor (ver imagen): cuando para cada fila indico que hay dos lineas
no he sabido ver como hacer que cada nueva fila se separe de la anterior un
poco más.
Saludos y gracias por vuestra ayuda.
José Luis Capel

Attached files

pablogarciau · Mensaje por **pablogarciau** » Vie Nov 03, 2006 10:42 am

Jose Luis :
COLUMN OF oReport ;
TITLE "F. Pago","Importe","" ; <---- Eso te da una linea
debajo de cada bloque
DATA oMemdataset1:FPago, STR/oMemDataSet1:importe)
Para lo de la fuente en negritas
LOCAL oFont1,oFont2
With Object oFont1 := TFont():New()
:cName := "Courier New"
:nSize := 10
:lBold := .F.
END WITH
With Object oFont1 := TFont():New()
:cName := "Courier New"
:nSize := 10
:lBold := .t.
END WITH
luego
REPORT oReport HEADER cTitulo1;
PREVIEW MODAL JOBNAME "Como le quieras poner" FONT oFont1,oFont2
y Luego
COLUMN OF oReport ;
TITLE "F. Pago","Importe","" ;
DATA oMemdataset1:FPago, STR/oMemDataSet1:importe) FONT 2 (si
quieres negritas, por default toma la primera)

pablogarciau · Mensaje por **pablogarciau** » Vie Nov 03, 2006 10:47 am

Juan Pablo Garcia escribió:
> Jose Luis :
>
> COLUMN OF oReport ;
> TITLE "F. Pago","Importe","" ; <---- Eso te da una linea
> debajo de cada bloque
> DATA oMemdataset1:FPago, STR/oMemDataSet1:importe)
>
>
Perdon, es asi :
COLUMN OF oReport ;
TITLE "F. Pago","Importe"
DATA oMemdataset1:FPago, STR/oMemDataSet1:importe),""

YouTube · Mensaje por **ignacio** » Lun Nov 06, 2006 5:30 pm

José Luis,
> A. Quisiera que, para esa columna, la primera linea la pinte en negrita
> (por ejemplo) y la segunda en la fuente estándard.
Mira el evento TRptColumn:OnPrintData()
> B. Quisiera establecer un alto de linea de tal manera que al imprimir el
> listado los registros queden ligeramente separados unos de otros. Me
> explico mejor (ver imagen): cuando para cada fila indico que hay dos
> lineas no he sabido ver como hacer que cada nueva fila se separe de la
> anterior un poco más.
Lo más sencillo es en el evento OnChanged llamar al método NewLine(
nHeight ) con el alto exacto que quieres conseguir.
Un saludo,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"José Luis Capel" <jose.luis@iaicom.com> escribió en el mensaje
news:[email=454b063e@news.xailer.com...]454b063e@news.xailer.com...[/email]
> Hola,
>
> Me gustaría hacer dos cosas con la tReport (no he sabido ver como).
>
> Suponiendo este trozo de código:
>
> COLUMN OF oReport ;
> TITLE "F. Pago","Importe" ;
> DATA oMemdataset1:FPago, STR/oMemDataSet1:importe)
>
> A. Quisiera que, para esa columna, la primera linea la pinte en negrita
> (por ejemplo) y la segunda en la fuente estándard.
>
> B. Quisiera establecer un alto de linea de tal manera que al imprimir el
> listado los registros queden ligeramente separados unos de otros. Me
> explico mejor (ver imagen): cuando para cada fila indico que hay dos
> lineas no he sabido ver como hacer que cada nueva fila se separe de la
> anterior un poco más.
>
> Saludos y gracias por vuestra ayuda.
> José Luis Capel
>
>

jose.luis · Mensaje por **jose.luis** » Lun Nov 06, 2006 5:37 pm

Ignacio,
Gracias por tu respuesta. Voy a ponerlo en práctica.
Saludos,
José Luis Capel
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
news:454f630b$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> José Luis,
>
>> A. Quisiera que, para esa columna, la primera linea la pinte en negrita
>> (por ejemplo) y la segunda en la fuente estándard.
>
> Mira el evento TRptColumn:OnPrintData()
>
>> B. Quisiera establecer un alto de linea de tal manera que al imprimir el
>> listado los registros queden ligeramente separados unos de otros. Me
>> explico mejor (ver imagen): cuando para cada fila indico que hay dos
>> lineas no he sabido ver como hacer que cada nueva fila se separe de la
>> anterior un poco más.
>
> Lo más sencillo es en el evento OnChanged llamar al método NewLine(
> nHeight ) con el alto exacto que quieres conseguir.
>
> Un saludo,
>
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
> "José Luis Capel" <jose.luis@iaicom.com> escribió en el mensaje
> news:[email=454b063e@news.xailer.com...]454b063e@news.xailer.com...[/email]
>> Hola,
>>
>> Me gustaría hacer dos cosas con la tReport (no he sabido ver como).
>>
>> Suponiendo este trozo de código:
>>
>> COLUMN OF oReport ;
>> TITLE "F. Pago","Importe" ;
>> DATA oMemdataset1:FPago, STR/oMemDataSet1:importe)
>>
>> A. Quisiera que, para esa columna, la primera linea la pinte en negrita
>> (por ejemplo) y la segunda en la fuente estándard.
>>
>> B. Quisiera establecer un alto de linea de tal manera que al imprimir el
>> listado los registros queden ligeramente separados unos de otros. Me
>> explico mejor (ver imagen): cuando para cada fila indico que hay dos
>> lineas no he sabido ver como hacer que cada nueva fila se separe de la
>> anterior un poco más.
>>
>> Saludos y gracias por vuestra ayuda.
>> José Luis Capel
>>
>>
>
>