[RESOLVIDO] Cor do browser

Pessoal,

Em uma determinada conição preciso deixar um linha do browse em vermelho no mi1014, alguem tem algum exemplo do tipo ??

Bom dia.

Fiz este código para GPS/Serious Datasul.

On 'row-display' of b-wk-contrat
do:
if wk-contrat.qtd-produto <> '' then do:
wk-contrat.nm-plano-reduz:bgcolor in browse b-wk-contrat = 12.
wk-contrat.qtd-produto:bgcolor in browse b-wk-contrat = 12.
end.

end.


se tiver duvida me fale.

Flávio Campos

Flavio, Obrigado pela resposta

Eu ate consegui mostrar um valor na tela... mas nao consegui mudar a propriedado do bgcolor


IF VALID-HANDLE( wh-query-brSolicserv-mi1014 ) THEN
DO:
wh-query-brSolicserv-mi1014:GET-CURRENT().
wh-buffer = wh-query-brSolicserv-mi1014:GET-BUFFER-HANDLE(1).
/* wh-query-brSolicserv-mi1014:bgcolor = 12. */

/* wh-buffer(1):bgcolor = 12. */
/* wh-buffer:BUFFER-FIELD("nr-soli-serv"):COLUMN-BGCOLOR = 12. */
wh-buffer:get-browse-COLUMN(1):BGCOLOR = 12.


MESSAGE STRING( wh-buffer:BUFFER-FIELD("nr-soli-serv"):BUFFER-VALUE )
VIEW-AS ALERT-BOX INFO BUTTONS OK.

END.
END.

Creio que vc está pegando o handle do buffer e não do browse

wh-buffer = wh-query-brSolicserv-mi1014:GET-BUFFER-HANDLE(1).
wh-buffer:get-browse-COLUMN(1):BGCOLOR = 12.

vc precisa usar o "get-browse-COLUMN(1):BGCOLOR" no handle do browse...

se eu fizer da forma abaixo, eu ate consigo colocar a cor na coluna toda,,,,
IF h-frame:NAME = 'brSolicserv' THEN
DO:
wh-brSolicserv-mi1014 = h-frame:HANDLE.
ASSIGN wh-brSolicserv-mi1014:GET-BROWSE-COLUMN(1):COLUMN-BGCOLOR = 4.

wh-query-brSolicserv-mi1014 = wh-brSolicserv-mi1014:Query.
On "row-display" Of wh-brSolicserv-mi1014
PERSISTENT Run upc/upc_mi1014-2.p.

/* **************************** CONTEUDO DO upc_mi1014-2.p ******************************/
DEF NEW GLOBAL SHARED VAR wh-brSolicserv-mi1014 as widget-handle NO-UNDO .
DEF NEW GLOBAL SHARED VAR wh-bt-marca-mi1014 as widget-handle no-undo.
DEF NEW GLOBAL SHARED VAR wh-bt-marca-esp-mi1014 as widget-handle no-undo.
DEF NEW GLOBAL SHARED VAR wh-query-brSolicserv-mi1014 as widget-handle no-undo.
DEFINE VARIABLE wh-buffer AS HANDLE NO-UNDO.
IF VALID-HANDLE( wh-query-brSolicserv-mi1014 ) THEN
DO:
wh-query-brSolicserv-mi1014:GET-CURRENT().
wh-buffer = wh-query-brSolicserv-mi1014:GET-BUFFER-HANDLE(1).
MESSAGE STRING( wh-buffer:BUFFER-FIELD("nr-soli-serv"):BUFFER-VALUE )
VIEW-AS ALERT-BOX INFO BUTTONS OK.

END.


/* **************************** FIM DO upc_mi1014-2.p ******************************/


da forma acima ele deixa eu mudar a cor da coluna toda.......

mas o que eu preciso é uma condição onde se o valor do campo ttSolicServ.cd-sint-padr = '001', deixar a linha do browse em vermelho.
Eu nao sei como acessar a propriedade BGCOLOR da query dentro do programa upc_mi1014-2.p

O Objetivo disso é que quando um usuário abrir um solucitação no modulo de manutenção industrial (mi1014) e o sintoma for 001, significa que a maquina esta parada, dessa forma a equipe de manutenção tem como dar uma prioridade maior nesse caso.