1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.

  2. Anuncie Aqui ! Entre em contato fdantas@4each.com.br

UPC alterar cor das linhas do Browse

Discussão em 'Progress 4GL' iniciado por ariricardo2, Outubro 22, 2014.

  1. ariricardo2

    ariricardo2 Sem Pontuação

    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.
  2. tcoutinho

    tcoutinho Moderador Moderador Equipe de Suporte

    Poste seu código.
  3. mpdelphi

    mpdelphi Membro Participativo

    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.

Compartilhe esta Página