Utilizo FWH 2.6 + Harbour. Para separar columnas de un report mediante una linea vertical hago:
COLUM TITLE "Mi titulo 1" DATA ......... GRID 1
COLUM TITLE "Mi titulo 2" DATA ........ GRID 1
驴C贸mo puedo separar las lineas con una linea horizontal? (GRID 0 y GRID 2 dan "Error de acceso a array")
驴Alguien sabe alguna forma de pintar las rows del report alternativamente con fondo gris (como SHADOW) y blanco?
Gracias,
Rafael
Buscando en los foros he encontrado respuesta a un par de mis preguntas:
1.- GRID 0 y GRID 2 exigen definir PEN en el report
2.- Para lineas de separaci贸n horizontal: ON CHANGE oReport:Separator() (Gracias, Paul - http://fivetechsoft.com/forums/viewtopi ... +separator)
Sigue en pie la pregunta sobre lineas de colores alternados
Saludos, Rafael
Rafael
justo despues de definir las column del report y antes del END REPORT
tecleas
oReport:CellView()
y listo!!
Un saludo
LORENZO
ups.... se me olvid贸 decirte que para alternar colores o sombras horizontales debes jugar con los "SHADOW" de cada columna. Es decir:
...
column title 'M铆nimo' data str(minimo,6) SHADOW font 2 right grid
...
activate report infor ON STARTLINE versombra(infor)
...
...
funct versombra(infor)
Local nVeces
IF infor:aColumns[1]:lShadow
FOR nVeces := 1 TO Len(infor:aColumns)
infor:aColumns[nVeces]:lShadow := .F.
NEXT
ELSE
FOR nVeces := 1 TO Len(infor:aColumns)
infor:aColumns[nVeces]:lShadow := .T.
NEXT
ENDIF
RETURN NIL
y listo el pollo! el resultado final es bastante atractivo.
Un saludo.
LORENZO
Hola Lorenzo
Estuve probando lo que recomiendas, y me funcion贸 perfecto, de hecho est谩 muy bueno.
Pero como siempre uno quiere un poco m谩s, me surgi贸 una duda.
Si quisiera en vez de intercambiar entre fila y fila del report entre otros colores distintos al gris y el blanco?
Qu茅 deber铆a agregar?
Desde ya muchas gracias
Saludos, Esteban
Lorenzo:
Lo prob茅 y funcion贸 de maravilla. Muchas gracias
Rafael
Armando:
Muchas gracias por tu soluci贸n. Funciona perfectamente pero 驴c贸mo lo haces para que el header de cada grupo no se marque en color (cuando le toque una linea par)?
Rafael
Rafael:
No me he topado con un problema as铆, seguramente es porque el reporte se imprime cuando el usuario elige solo una marca de repuesto entonces no hay un nuevo grupo en todo el reporte.
Saludos
Armando:
Muy buena tu soluci贸n funciona perfectamente para lo que yo estoy haciendo.
Desde ya muchas gracias.
Saludos, Esteban.
Armando:
Bueno; lo de los headers tampoco tiene demasiada importancia. Har茅 algunas pruebas m谩s y veremos si saco algo en claro. Muchas gracias otra vez.
Rafael
....
oReport:CellView()
oReport:bStartLine := {|oReport|IF(oReport:nCounter % 2 =0,PintaLi(oReport),)}
ACTIVATE REPORT oReport ON INIT ListDiaEnfer2(oReport,vMes,vAni,vDes,vHas,oDbf)
...
Return nil
//
//
Function ListDiaEnfer2(oReport,vMes,vAni,vDes,vHas,oDbf)
DO WHILE !oDbf:Eof()
oReport:StartLine()
oReport:Say( 1 , oDbf:NOMBRE , 1 , 1 )
oReport:EndLine()
oDbf:Skip()
ENDDO
Return nil
//Esteban:
Ummm, no entiendo para que utilizas la funci贸n ListDiaEnfer()
si la Clase TReport ya utiliza un DO WHILE para imprimir todos los registros de la DBF activa.
Podr铆as mostrar m谩s c贸digo para ver como defines las columnas ?
Saludos
REPORT oReport TITLE Titulo CENTER;
HEADER Empresa,Titulo2,Titulo3 LEFT;
FOOTER "Fecha:"+DTOC(Date())+" Hora:"+Time()+" Pagina:"+STR(oReport:nPage,3) RIGHT;
FONT oFont1,oFont2,oFont3,oFont4;
PREVIEW;
CAPTION "Vista previa del listado"
COLUMN TITLE "C贸digo" DATA " " CENTER SIZE 10
COLUMN TITLE "Emplado" DATA " " CENTER SIZE 40
COLUMN TITLE "D铆as Enfermo" DATA " " CENTER SIZE 10
ENDREPORT
oReport:oTitle:aFont[1] :={|| 4}
oReport:oHeader:aFont[1] :={|| 3}
oReport:oHeader:aFont[2] :={|| 3}
oReport:oHeader:aFont[3] :={|| 3}
oReport:aColumns[ 1]:bTitleFont:={|| 3}
oReport:aColumns[ 2]:bTitleFont:={|| 3}
oReport:aColumns[ 3]:bTitleFont:={|| 3}
oReport:CellView()
ACTIVATE REPORT oReport ON INIT ListDiaEnfer2(oReport,vMes,vAni,vDes,vHas)
DBCLOSEALL()
oFont1:End()
oFont2:End()
oFont3:End()
oFont4:End()
Return nil
//Esteban:
Ok, podr铆as intentar dejando que la TReport haga su ciclo normal solo para probar si con eso se soluciona el problema del pintado, pues no veo otra raz贸n.
Saludos