Application Development and Automation 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: 
Read only

selection screen

Former Member
0 Likes
211

Hi Friends,

My requriment is to change the selection screen depending on the selection of radio buttons.

for example

if i select rb1 i need to display BLOCK s1 WITH FRAME TITLE text-000.

if i select rb2 i need to dispaly BLOCK s2 WITH FRAME TITLE text-000.

Thanks,

Suri.

1 ACCEPTED SOLUTION
Read only

valter_oliveira
Active Contributor
0 Likes
195

Hello there!

If a block is empty, i.e no fields active, it won't appear. So, do something like this:

1 - in all fields of block 1, insert MODIF ID bl1

PARAMETERS: p_matnr TYPE matnr MODIF ID bl1.

, and the fields of block 2, insert MODIF ID bl2

PARAMETERS: p_kunag TYPE kunag MODIF ID bl1.

.

2 - create event AT SELECTION-SCREEN OUTPUT, insert a statement like this:


AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
  CASE screen-group1.
    WHEN 'BL1'.
      IF rb1 EQ 'X'.
        screen-active = '1'.
      ELSE.
        screen-active = '0'.
      ENDIF.
      MODIFY SCREEN.
    WHEN 'BL2'.
      IF rb2 EQ 'X'.
        screen-active = '1'.
      ELSE.
        screen-active = '0'.
      ENDIF.
      MODIFY SCREEN.
    WHEN OTHERS.
  ENDCASE.
ENDLOOP.

Best regards.

Valter Oliveira.

1 REPLY 1
Read only

valter_oliveira
Active Contributor
0 Likes
196

Hello there!

If a block is empty, i.e no fields active, it won't appear. So, do something like this:

1 - in all fields of block 1, insert MODIF ID bl1

PARAMETERS: p_matnr TYPE matnr MODIF ID bl1.

, and the fields of block 2, insert MODIF ID bl2

PARAMETERS: p_kunag TYPE kunag MODIF ID bl1.

.

2 - create event AT SELECTION-SCREEN OUTPUT, insert a statement like this:


AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
  CASE screen-group1.
    WHEN 'BL1'.
      IF rb1 EQ 'X'.
        screen-active = '1'.
      ELSE.
        screen-active = '0'.
      ENDIF.
      MODIFY SCREEN.
    WHEN 'BL2'.
      IF rb2 EQ 'X'.
        screen-active = '1'.
      ELSE.
        screen-active = '0'.
      ENDIF.
      MODIFY SCREEN.
    WHEN OTHERS.
  ENDCASE.
ENDLOOP.

Best regards.

Valter Oliveira.