Pegar numero da linha do browser

Discussão em 'Progress 4GL' iniciado por jaozi_nho, Fevereiro 5, 2013.

  1. jaozi_nho

    jaozi_nho Membro Participativo

    Olá, gostaria de exibir 1 coluna no browser indicando o numero da linha, sem usar temp-table, existe alguma atributo no browser, exemplo "ficticio" BROWSE-2:current-row, gostaria de fazer isso no evento row-display do browser, como algo assim

    DO:
    ASSIGN i-linha = BROWSE-2:current-row .
    END.

    Se alguem souber se existe um atributo desses, ou alguma maneira de pegar o numero da linha sendo dada display no browser.

    Abraço.
  2. lima

    lima Membro Participativo

    Amigo,

    Você pode utilizar o atributo abaixo para pegar a linha corrente do browser.

    MESSAGE nome-browser:FOCUSED-ROW
    VIEW-AS ALERT-BOX INFO BUTTONS OK.

    Espero ter ajudado.

    Abraços.
  3. jaozi_nho

    jaozi_nho Membro Participativo

    Deu a mensagem de erro

    ---------------------------
    Erro (Press HELP to view stack trace)
    ---------------------------
    FOCUSED-ROW nao pode ser lido dentro de um trigger de ROW-DISPLAY para BROWSE BROWSE-2. (5906)
    ---------------------------
    OK Ajuda
    ---------------------------
  4. lima

    lima Membro Participativo

    Amigo, dentro do evento row-display do browse não é possível utilizar este comando.

    Abraços.
  5. jaozi_nho

    jaozi_nho Membro Participativo

    Olá, caso alguem queira alterar campos do browser e atualizar os campos calculados caso tenha algum sendo exibido na mesma linha, segue o exemplo de codigo abaixo .


    ON 'LEAVE':U OF tt-teste.c-char IN BROWSE BROWSE-2
    DO:
    DEF VAR i AS INT NO-UNDO INIT 1 .
    ASSIGN INPUT BROWSE BROWSE-2 tt-teste.c-char .
    ASSIGN i = BROWSE-2:FOCUSED-ROW IN FRAME f-cad .
    {&open-query-BROWSE-2}
    BROWSE-2:SELECT-ROW(i) .
    END.
  6. jaozi_nho

    jaozi_nho Membro Participativo

    Olá, caso alguem queira alterar campos do browser e atualizar os campos calculados caso tenha algum sendo exibido na mesma linha, segue o exemplo de codigo abaixo .


    ON 'LEAVE':U OF tt-teste.c-char IN BROWSE BROWSE-2
    DO:
    DEF VAR i AS INT NO-UNDO INIT 1 .
    ASSIGN INPUT BROWSE BROWSE-2 tt-teste.c-char .
    ASSIGN i = BROWSE-2:FOCUSED-ROW IN FRAME f-cad .
    {&open-query-BROWSE-2}
    BROWSE-2:SELECT-ROW(i) .
    END.

Compartilhe esta Página