FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour TReport como resaltar fila - shadow
Posts: 50
Joined: Tue Feb 02, 2021 10:21 PM
TReport como resaltar fila - shadow
Posted: Wed Jun 30, 2021 04:30 PM
Buenas tardes Foro,

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 (fw): Select all Collapse
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)
Nicolás
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: TReport como resaltar fila - shadow
Posted: Wed Jun 30, 2021 05:51 PM
regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion