Me encuentro con el siguiente problema:
Estoy haciendo un reporte con TReport y veo que existe una función para resaltar llamada SHADOW pero es solamente para columnas. Como podria aplicarlo para una condición? Osea cada linea que cumpla con una cierta caracteristica.
Como veran hay un numero en rojo. Necesitaria que esa linea salga toda resaltada en amarillo.
Adjunto mi codigo, donde preesp es un valor logico e indica si tiene que ir resaltado o no:
- Code: Select all Expand view
- report rep_per CAPTION n_empcort + space(10) + 'Imprimir Cobranza Abierta de choferes por cliente' ;
font oFuentep, oFueREP , oFuenteS , oFuentbc, oFuenteM, oFuentbc, oFuentep, oFuentep, oFuentbc ;
title n_empcort,;
'RESUMEN DE COBRANZA ABIERTA DE CHOFERES POR CLIENTE',;
'Reparto: '+ dtoc(VNUM[1]) ,;
'',;
'Fecha de impresión: '+DTOC(DATE())+ "-"+TIME(),;
'' LEFT;
footer 'Pagina : '+str(rep_per:npage,3) center preview
column title 'Codigo' data field->codigo size 6 picture "@!" font 2
column title 'Marca' data field->marca size 18 picture "@!" font 2
column title 'Producto' data field->art size 25 picture "@!" font 2
column title 'Cantidad' data field->cantidad TOTAL size 14 picture "@e 9,999,999.99" font 2
column title 'Peso' data field->peso TOTAL size 14 picture "@e 9,999,999.99" font 2
column title 'Unitario' data field->unitario size 14 picture "@e 9,999,999.99" FONT if(field->preesp,8,2)
column title 'Subtotal' data field->subtotal TOTAL size 14 picture "@e 999,999,999.99" font 2
//group on field->chofer header "Chofer: "+field->nomcho footer "Totales"
group on (field->nomcho,field->chofer) header "Chofer: "+field->nomcho font 6 footer 'Total chofer - ' + qchofer EJECT
//group on field->codcli footer 'Total cliente - ' + rep_per:aGroups[2]:cValue
group on field->codcli header "Cliente "+ field->cliente font 7 footer 'Total'
Rep_per:bInit:= { || DbGoTop() }
end report
rep_per:otitle:afont[1]:={||3}
rep_per:otitle:afont[2]:={||4}
rep_per:otitle:afont[3]:={||4}
rep_per:otitle:afont[4]:={||4}
rep_per:SetTxtColor(CLR_GREEN,6)
rep_per:SetTxtColor(CLR_BLUE,7)
rep_per:SetTxtColor(CLR_RED,8)
rep_per:SetTxtColor(CLR_RED,9)
