Mostrar cor no Tbrowse

Fórum sobre a linguagem CA-Clipper.

Moderador: Moderadores

negrao
Usuário Nível 3
Usuário Nível 3
Mensagens: 186
Registrado em: 06 Jul 2004 08:38

Mostrar cor no Tbrowse

Mensagem por negrao »

Pessoal, ta dando erro da falta de um ")" qndo compilo. O que to querendo fazer é o seguinte:

Tenho um tabela que tem os seguintes registros:
codi1 codi2 tipo
10 20 ES
21 10 ES
35 10 SE

Todos os codigos que comecam(codi1 e codi2) por 10 e for E queria que ficasse em vermelho no meu Tbrowse.
O comando abaixo que faz essa verificacao, mas ta dando erro.

v_bloq:colorblock := {|| iif(codi1=codi),iif(subs(tipo,1,1)="E",{3,2},{4,2}),iif(codi2=codi),IIF(SUBS(tipo,2,1)=="E",{3,2},{4,2})}

Obs.:
codi => 10
{3,2} => cor vermelha
{4,2} => cor preta
Dudu_XBase
Membro Master
Membro Master
Mensagens: 1071
Registrado em: 25 Ago 2003 16:55

Mensagem por Dudu_XBase »

Boa Noite Negrao !!
Altere e verifica se o erro persiste....

Código: Selecionar todos

  v_bloq:colorblock := {|| iif(codi1=codi .or. codi2=codi,iif(subst(tipo,1,1)="E",{3,2},{4,2}))}
   


________________________________________________________________________________________________________
(Aow Saudade) Clipper 5.2e, Blinker 7, RDD SIXNSX, DBFCDX /Xharbour 1.0, Rdd Mediator (Mysql) Free , RDD Sqlrdd (Sql Server) Comercial
(Hoje) C# Python Sql Server e Oracle




negrao
Usuário Nível 3
Usuário Nível 3
Mensagens: 186
Registrado em: 06 Jul 2004 08:38

Mensagem por negrao »

Dudu_xbase, valeu pela dica.
Deu erro sim , mas foi so acrescentar no final o .t. que rodou certinho

v_bloq:colorblock := {|| iif(codi1=codi .or. codi2=codi,iif(subst(tipo,1,1)="E",{3,2},{4,2}),.T.)}
Responder