Como mostrar o texto selecionado num radio-buttons

Discussão em 'Progress 4GL' iniciado por joelscampos, Maio 17, 2013.

  1. joelscampos

    joelscampos Membro Participativo

    Alguém sabe como eu conseguiria mostrar a descrição do valor selecionado de um radio-set? Ou seja, o label de um value do radio-buttons.

    A intenção é mostrar no relatório, a descrição da opção feita.

    Esta é a tentativa que fiz:

    Código:
    /* ------------------------------------ DEFINICAO DO RADIO-SET DO TIPO DE LAYOUT --- */
    def var in-classificacao-aux    as int init 1 label "Classificacao"
                                  view-as radio-set radio-buttons
                                  "Classificacao Nome",1,
                                  "Classificacao Codigo",2,
                                  "Classificacao CPF",3           no-undo.
    
    UPDATE in-classificacao-aux.
    
    
    MESSAGE in-classificacao-aux:RADIO-BUTTONS SKIP
            "Descrição da Classificação escolhida: "    in-classificacao-aux
    VIEW-AS ALERT-BOX INFO BUTTONS OK.
    
  2. pcampello19

    pcampello19 Sem Pontuação

    Cara não achei nenhum atributo que mostrasse o que você quer.

    Uma maneira de fazer seria assim:

    Código:
    /* ------------------------------------ DEFINICAO DO RADIO-SET DO TIPO DE LAYOUT --- */
    def var in-classificacao-aux    as int init 1 label "Classificacao"
                                  view-as radio-set radio-buttons
                                  "Classificacao Nome",1,
                                  "Classificacao Codigo",2,
                                  "Classificacao CPF",3           no-undo.
    
    UPDATE in-classificacao-aux.
    
    MESSAGE in-classificacao-aux:RADIO-BUTTONS SKIP
            "Descrição da Classificação escolhida: "   ENTRY(LOOKUP(in-classificacao-aux:SCREEN-VALUE,in-classificacao-aux:RADIO-BUTTONS,",") - 1,in-classificacao-aux:RADIO-BUTTONS,",")
    VIEW-AS ALERT-BOX INFO BUTTONS OK.
    
    Se não entender eu explico o que foi feito.

    Flw
  3. atila.cm

    atila.cm Membro Participativo

    Segue mais um exemplo para você:

    DEFINE VARIABLE in-classificacao-aux AS INT INIT 1 label "Classificacao"
    VIEW-AS RADIO-SET
    RADIO-BUTTONS "Classificacao Nome",1,
    "Classificacao Codigo",2,
    "Classificacao CPF",3.

    FORM
    in-classificacao-aux
    WITH FRAME main-frame NO-LABELS .
    ON VALUE-CHANGED OF in-classificacao-aux
    DO:
    ASSIGN in-classificacao-aux.
    IF in-classificacao-aux = 1 THEN DO:
    MESSAGE ENTRY (1, in-classificacao-aux:RADIO-BUTTONS, ",")
    VIEW-AS ALERT-BOX INFO BUTTONS OK.
    END.
    IF in-classificacao-aux = 2 THEN DO:
    MESSAGE ENTRY (3, in-classificacao-aux:RADIO-BUTTONS, ",")
    VIEW-AS ALERT-BOX INFO BUTTONS OK.
    END.
    IF in-classificacao-aux = 3 THEN DO:
    MESSAGE ENTRY (5, in-classificacao-aux:RADIO-BUTTONS, ",")
    VIEW-AS ALERT-BOX INFO BUTTONS OK.
    END.
    END.
    ENABLE in-classificacao-aux WITH FRAME main-frame.
    APPLY "VALUE-CHANGED" TO in-classificacao-aux.
    WAIT-FOR WINDOW-CLOSE OF CURRENT-WINDOW.

    Abraços
  4. joelscampos

    joelscampos Membro Participativo

    pcampello19, é exatamente o que eu precisava.
    Dessa maneira aí elimina a necessidade de escrever os valores da variável em dois locais no código.

    Muito obrigado.

Compartilhe esta Página