Conteúdo

Ocultar parâmetros de tela

Ocultar campos da tela é muito comum. Neste caso, quando clica em um radiobutton, mostra um campo texto, se clicar no outro radiobutton, aparece o outro campo texto.
REPORT ZSAPeiros.

PARAMETERS:
  p_r1    RADIOBUTTON GROUP r1 DEFAULT 'X' USER-COMMAND x1,
  p_r2    RADIOBUTTON GROUP r1,
  p_1(10) TYPE c,
  p_2(10) TYPE c.

AT SELECTION-SCREEN OUTPUT.
  LOOP AT SCREEN.
    IF p_r1 EQ 'X'.
      IF screen-name EQ 'P_1' OR
         screen-name EQ '%_P_1_%_APP_%-TEXT'.
        screen-invisible = 0.
        screen-active    = 1.
        MODIFY SCREEN.
      ENDIF.
      IF screen-name EQ 'P_2' OR
         screen-name EQ '%_P_2_%_APP_%-TEXT'.
        screen-invisible = 1.
        screen-active    = 0.
        MODIFY SCREEN.
      ENDIF.
    ELSE.
      IF screen-name EQ 'P_1' OR
         screen-name EQ '%_P_1_%_APP_%-TEXT'.
        screen-invisible = 1.
        screen-active    = 0.
        MODIFY SCREEN.
      ENDIF.
      IF screen-name EQ 'P_2' OR
         screen-name EQ '%_P_2_%_APP_%-TEXT'.
        screen-invisible = 0.
        screen-active    = 1.
        MODIFY SCREEN.
      ENDIF.
    ENDIF.
  ENDLOOP.

INITIALIZATION.
  %_p_r1_%_app_%-text = 'Radio 1'.
  %_p_r2_%_app_%-text = 'Radio 2'.
  %_p_1_%_app_%-text  = 'Texto 1'.
  %_p_2_%_app_%-text  = 'Texto 2'.