Application Development Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 

Radio Button with selection-screen blocks

0 Kudos

Hello guys,

I have this doubt with the logic to implement in this code.

My task is to hide and show a block based on the radio button 'Locale' and 'Server'.

*&---------------------------------------------------------------------*
*& Report ZSERVER
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zserver.

TABLES: sbook.

TYPES: BEGIN OF ty_sbook,
carrid TYPE sbook-carrid,
connid TYPE sbook-connid,
bookid TYPE sbook-bookid,
passname TYPE sbook-passname,
END OF ty_sbook.

*--------------------------------------------------------------------*
*
* Building the selection-screen
*
*--------------------------------------------------------------------*

SELECTION-SCREEN BEGIN OF BLOCK block1 WITH FRAME TITLE ambiente NO INTERVALS.

PARAMETERS: p_locale RADIOBUTTON GROUP g_am.
PARAMETERS: p_sever RADIOBUTTON GROUP g_am.

SELECTION-SCREEN END OF BLOCK block1.

SELECTION-SCREEN BEGIN OF BLOCK block2 WITH FRAME TITLE locale NO INTERVALS.

PARAMETERS: carrid TYPE sbook-carrid.
PARAMETERS: p_fname TYPE string.
PARAMETERS: p_do_loc RADIOBUTTON GROUP g_lo.
PARAMETERS: p_up_loc RADIOBUTTON GROUP g_lo.

SELECTION-SCREEN END OF BLOCK block2.

SELECTION-SCREEN BEGIN OF BLOCK block3 WITH FRAME TITLE server NO INTERVALS.

PARAMETERS: p_path TYPE string.
PARAMETERS: p_no_fil TYPE string.
PARAMETERS: p_do_ser RADIOBUTTON GROUP g_se.
PARAMETERS: p_up_ser RADIOBUTTON GROUP g_se.
SELECTION-SCREEN END OF BLOCK block3.

INITIALIZATION.
ambiente = 'Ambiente di elaborazione'.
locale = 'Locale'.
server = 'Server'.

*--------------------------------------------------------------------*
*
* Start of code to implement
*
*--------------------------------------------------------------------*

AT SELECTION-SCREEN OUTPUT.

any suggestion?

1 ACCEPTED SOLUTION

former_member9115
Participant

Hi,

This may helpful.

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.
    IF RADIOBUTTON_1 = abap_true.
        IF screen-name CS 'RB_SUMMARY' .
            screen-output = 0.
            screen-active = 0.
          MODIFY SCREEN.
        ENDIF.
    ELSEIF RADIOBUTTON_2 = abap_true.
IF screen-name CS 'DETAIL'. screen-output = 0. screen-active = 0. MODIFY SCREEN.
ENDIF. ENDIF. IF sy-tcode = 'TCODEXX'. IF screen-name CS 'RB_FORM' . screen-output = 0. screen-active = 0. screen-invisible = 1. MODIFY SCREEN. ENDIF. ENDIF. ENDLOOP.
2 REPLIES 2

FredericGirod
Active Contributor

former_member9115
Participant

Hi,

This may helpful.

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.
    IF RADIOBUTTON_1 = abap_true.
        IF screen-name CS 'RB_SUMMARY' .
            screen-output = 0.
            screen-active = 0.
          MODIFY SCREEN.
        ENDIF.
    ELSEIF RADIOBUTTON_2 = abap_true.
IF screen-name CS 'DETAIL'. screen-output = 0. screen-active = 0. MODIFY SCREEN.
ENDIF. ENDIF. IF sy-tcode = 'TCODEXX'. IF screen-name CS 'RB_FORM' . screen-output = 0. screen-active = 0. screen-invisible = 1. MODIFY SCREEN. ENDIF. ENDIF. ENDLOOP.