Boa Tarde, Quero criar uma UPC para alterar a cor da linha de um browse, por exemplo no programa CE0830, preciso deixar a cor da fonte em azul quando o depósito for igual a EXP.
ESSE É UM TROCHO DE UMA UPC Q FIZ NO MI1014 /* --- verificando os itens selecionados no browser --------------- */ /* ---------------------------------------------------------------- */ IF p-ind-event = "verifBrowser" THEN DO: 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). /* IF CAN-FIND (solic-serv WHERE solic-serv.nr-soli-serv = int(wh-buffer:BUFFER-FIELD("nr-soli-serv"):BUFFER-VALUE) AND solic-serv.cd-sint-padr = "001") THEN */ /* alterado para olhar o campo manutencao, conforme solucitacao do Gustavo */ IF CAN-FIND (solic-serv WHERE solic-serv.nr-soli-serv = int(wh-buffer:BUFFER-FIELD("nr-soli-serv"):BUFFER-VALUE) AND solic-serv.cd-manut = "1") THEN /* IF wh-buffer:BUFFER-FIELD("nr-soli-serv"):BUFFER-VALUE = "10" THEN */ DO: /* MESSAGE wh-buffer:BUFFER-FIELD("nr-soli-serv"):BUFFER-VALUE VIEW-AS ALERT-BOX INFO BUTTONS OK. */ /* his-solic-serv.nr-soli-serv:BGCOLOR IN BROWSE wh-brSolicserv-mi1014 = 12. */ DO i-col = 1 TO 10: wh-colbrw-mi1014[i-col]:BGCOLOR = 4. wh-colbrw-mi1014[i-col]:FGCOLOR = 15. END. END. /* MESSAGE STRING( wh-buffer:BUFFER-FIELD("nr-soli-serv"):BUFFER-VALUE ) VIEW-AS ALERT-BOX INFO BUTTONS OK. */ END. END.