Clipper/FiveWin - Font en Report

   
Vista:

Font en Report

Publicado por marcelo (161 intervenciones) el 04/08/2008 19:01:19
Estimado defino un Report con 3 columnas y tres tipos de impresión, segun el do case qeu aparece en el prg son:

La primera impresion es solo el RUBRO, funciona ok.
La segunda imprsion es RUBRO y PARTIDA, funciona ok. imprimo en negrita el RUBRO y sencilla la partida.
La tercera imprsion es la que imprime la descripción de la PARTIDA y me sale en negrita.

******************************************************************************************
La idea es que la descripción de la PARTIDA no salga en negrita, pero no se como le paso el Font a la función saymemo...
******************************************************************************************

este es el prg y la function saymemo:

Define Font Font01 Name "Arial" Size 0,-10
Define Font Font02 Name "Arial" Size 0,-10 bold

Report Rep01 Title "TAREAS" left;
Font Font02,Font01;
header "Fecha: "+dtoc(date()),;
"Pag. No. "+str(Rep01:nPage,3) right;
footer SPACE(10)+repl("_",103),;
"JUAN GOMEX - Arquitecto | Parana 888 1º A - C.F. | TE: 5555-4444" center;
Preview

column title "CODIGO" data Wodigos->Codigo size 07 at 500
column title "CONCEPTO" data Wodigos->Concepto size 60
column title "UD." data Wodigos->Unidad size 06 center

END REPORT

Rep01:aColumns[1]:bDataFont := {|| iif(right(Wodigos->Codigo,2)="00",1 ,2 ) }
Rep01:aColumns[2]:bDataFont := {|| iif(right(Wodigos->Codigo,2)="00",1 ,2 ) }
Rep01:aColumns[3]:bDataFont := {|| iif(right(Wodigos->Codigo,2)="00",1 ,2 ) }

do case
case Cual=1
ACTIVATE REPORT Rep01 for right(Wodigos->Codigo,2)="00"
case Cual=2
ACTIVATE REPORT Rep01 ON EndGROUP (Rep01:NewLine())
case Cual=3
ACTIVATE REPORT Rep01 on change saymemo()
endcase

Font01:End()

sele Codi0000
retu nil
//----------------------------------------------------------------------
STATIC Function SayMemo()
LOCAL cText, cLine
LOCAL nFor, nLines

//Rep01:Newline()

cText := Wodigos->Descripcio
nLines := MlCount(cText,Renglon->Catalogo)

FOR nFor := 2 TO nLines
cLine := MemoLine(cText,Renglon->Catalogo, nFor)
Rep01:StartLine()
Rep01:Say(2,cLine)
Rep01:EndLine()
NEXT

Rep01:Newline()

retu nil
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Font (leer este)

Publicado por marcelo (161 intervenciones) el 04/08/2008 22:37:26
EN LA SIGUIENTE FUNCION SAYMEMO, EL TEXTO SALE IMPRESO CON EL PRIMER TIPO DE FONT QUE INDICO EN EL REPORT, PERO YO QUIERO OTRO TIPO DE LETRA PARA EL CAMPO MEMO, DONDE LE PASO EL FONT????

STATIC Function SayMemo()
LOCAL cText, cLine
LOCAL nFor, nLines

cText := Wodigos->Descripcio
nLines := MlCount(cText,Renglon->Catalogo)

FOR nFor := 2 TO nLines
cLine := MemoLine(cText,Renglon->Catalogo, nFor)
Rep01:StartLine()
Rep01:Say(2,cLine)
Rep01:EndLine()
NEXT

Rep01:Newline()

retu nil
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Font (leer este)

Publicado por marcelo (161 intervenciones) el 05/08/2008 01:18:17
ya está.
si alguno tiene esta duda alguna vez, es:
Rep:say(nº de columna, texto, nº de font)
si no está nº de font, por defecto es la 1.
gracias !!!!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar