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