Clipper On Line • Ver Tópico - Cor em Browse como faço?

Cor em Browse como faço?

Discussão sobre a linguagem CA-Clipper.

Moderador: Moderadores

 

Cor em Browse como faço?

Mensagempor juniorcamilo » 13 Ago 2008 07:00

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).
.
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...
Nota de Moderação:
JoséQuintas: Mensagem editada para colocar a tag [ code ]
Veja como utilizar esta tag: Clique aqui
Avatar de usuário

juniorcamilo
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 343
Data de registro: 10 Nov 2006 08:12
Cidade/Estado: Pará
Curtiu: 29 vezes
Mens.Curtidas: 2 vezes

Cor em Browse como faço?

Mensagempor Pablo César » 13 Ago 2008 09:50

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()
Nota de Moderação:
JoséQuintas: formatei fonte, mas isso faz perder as cores. Voltei o conteúdo, mas como esta nota não pode ser removida....
Um clip-abraço !

Pablo César Arrascaeta
Compartilhe suas dúvidas e soluções com todos os colegas aqui do fórum.
Evite enviar as dúvidas técnicas por MPs ou eMails, assim todos iremos beneficiar-nos.
Avatar de usuário

Pablo César
Usuário Nível 7

Usuário Nível 7
 
Mensagens: 5312
Data de registro: 31 Mai 2006 10:22
Cidade/Estado: Curitiba - Paraná
Curtiu: 142 vezes
Mens.Curtidas: 152 vezes

Re: Cor em Browse como faço?

Mensagempor juniorcamilo » 13 Ago 2008 13:42

Obrigado...
Avatar de usuário

juniorcamilo
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 343
Data de registro: 10 Nov 2006 08:12
Cidade/Estado: Pará
Curtiu: 29 vezes
Mens.Curtidas: 2 vezes

Cor em Browse como faço?

Mensagempor carlaoonline » 01 Jun 2021 16:06

Avatar de usuário

carlaoonline
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 190
Data de registro: 24 Ago 2014 22:38
Cidade/Estado: Porto Alegre-RS
Curtiu: 73 vezes
Mens.Curtidas: 22 vezes




Retornar para CA-Clipper

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 4 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro