Cor em Browse como faço?

[juniorcamilo]

Amigos.

Como faco para mudar uma determinada informacao em uma linha e coluna no browse? meu cliente me pediu para quando estiver consultando um produto, se o produto estiver em promocao ele gostaria de ver o preco em outra cor? minha definicao do browse esta logo abaixo (resumida).

Código: Selecionar todos

.
Sele Pro
oBrowse := tBrowseDb(07,02,20,76)  && Cria Obj tBrowse se mudar
oColuna := tbColumnNew('Descri‡„o do Produto',{|| ATIINA+" "+CODPRO+" "+DESEST+" "+UNIEST })
oBrowse:addColumn( oColuna )
oColuna := tbColumnNew('Venda',{|| trans(PVEEST,"@e 9999.999")})
oBrowse:addColumn( oColuna )
.
//------- Configuracao do tBrowse
oBrowse:HeadSep := chr(196)
oBrowse:ColSep  := chr(179)
oBrowse:Freeze  := 1
oBrowse:RefreshAll()
.
do while .t.
Sele Pro
oBrowse:refreshAll()
oBrowse:ForceStable() && Estabilizacao do Browse
.
enddo

espero ter sido claro...

[Pablo César]

Faça uma função que retorne .T. ou .F. se o produto está em promoção, caso ja não exista um campo flag que guarde essa informação. Nesse caso, é só substituir "Função_que_vê_se_está_em_promoção(CODPRO)" pelo nome do campo na área tal (ex.: PROMO->em_promo="S")

Sele Pro
oBrowse := tBrowseDb(07,02,20,76) && Cria Obj tBrowse se mudar
oColuna := tbColumnNew('Descri‡„o do Produto',{|| ATIINA+" "+CODPRO+" "+DESEST+" "+UNIEST })
oColuna:colorblock({ || IIF(Função_que_vê_se_está_em_promoção(CODPRO), {13,14} , {1,2} ) })
oBrowse:addColumn( oColuna )

oColuna := tbColumnNew('Venda',{|| trans(PVEEST,"@e 9999.999")})
oColuna:colorblock({ || IIF(Função_que_vê_se_está_em_promoção(CODPRO), {13,14} , {1,2} ) })
oBrowse:addColumn( oColuna )
.
//------- Configuracao do tBrowse
oBrowse:HeadSep := chr(196)
oBrowse:ColSep := chr(179)
oBrowse:colorSpec := "00/07,15/03,14/07,15/06,01/07,15/01,02/07,15/02,05/07,15/05,00/07,15/00,08/07,08/07"
// 1 2 3 4 5 6 7 8 9 10 11 12 13 14
// 03=Amarelo , 05=Azul , 07=Verde , 09=Rosa , 11=Preto, 13=Cinza
oBrowse:Freeze := 1
oBrowse:RefreshAll()

[juniorcamilo]

Obrigado...

[carlaoonline]

http://pctoledo.com.br/forum/viewtopic. ... 75#p150375