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

issue with At selection-screen output

Former Member
0 Likes
422

Hi,

I tried in SDn to find suitable thread atlast i am creating query here.

My requirement is: i have two radiobuttons.

when i click first radiobutton it hasto show one selection screen it contains pernr and bukrs

when i click second radiobutton it has to show second selection screen . This screen includes personnel area and Wage type

Thanks,

Maheedhar

1 ACCEPTED SOLUTION
Read only

Former Member
0 Likes
388

Use "AT SELECTION-SCREEN OUTPUT" and distinguish them with "MODIF ID"

Code flows like this:

PARAMETERS r_online RADIOBUTTON GROUP g1
                     USER-COMMAND ex DEFAULT 'X'.
PARAMETERS r_batch RADIOBUTTON GROUP g1.
PARAMETERS r_down RADIOBUTTON GROUP g1.

PARAMETER: p_bukrs LIKE t024e-bukrs OBLIGATORY
                   DEFAULT 'US60'.
SELECT-OPTIONS: s_werks FOR marc-werks. 

PARAMETER: p_vari TYPE slis_vari MODIF ID md5.

PARAMETERS: p_a_file LIKE rlgrap-filename
                     DEFAULT '/transfer/us6/ZUS6MM04_MatPlt'
                     MODIF ID md2.
PARAMETERS: p_h_file LIKE rlgrap-filename
                     DEFAULT '/transfer/us6/ZUS6MM04_MatPlt_HDR'
                     MODIF ID md2.

PARAMETERS: p_hfile1 LIKE rlgrap-filename
                     DEFAULT '/transfer/us6/ZUS6MM04_MatPlt_HDR'
                     MODIF ID md3.
PARAMETERS: p_hfile2 LIKE rlgrap-filename
                     default 'C:\Transfer\US6\ZUS6MM04_MatPlt_HDR.txt'
                     MODIF ID md4.


*--------------------------------------------------------------------*
* AT SELECTION-SCREEN EVENTS
*--------------------------------------------------------------------*

AT SELECTION-SCREEN OUTPUT.
  PERFORM modify_screen.


*&-------------------------------------------------------------------*
*&      Form  MODIFY_SCREEN
*&-------------------------------------------------------------------*
*
*--------------------------------------------------------------------*
FORM modify_screen .
  LOOP AT SCREEN.
    IF r_online  = 'X'.
      IF screen-group1 = 'MD3' OR
         screen-group1 = 'MD4' OR
         screen-group1 = 'MD2'.
        screen-active = '0'.
      ENDIF.
    ELSEIF r_batch = 'X'.
      IF screen-group1 = 'MD3' OR
         screen-group1 = 'MD4' OR
        screen-group1 = 'MD5'.
        screen-active = '0'.
      ENDIF.
    ELSEIF r_down = 'X'.
      IF screen-group1 = 'MD2' OR
        screen-group1 = 'MD5'.
        screen-active = '0'.
      ENDIF.
    ENDIF.
    MODIFY SCREEN.
  ENDLOOP.

ENDFORM.                    " MODIFY_SCREEN

Hi,

I tried in SDn to find suitable thread atlast i am creating query here.

My requirement is: i have two radiobuttons.

when i click first radiobutton it hasto show one selection screen it contains pernr and bukrs

when i click second radiobutton it has to show second selection screen . This screen includes personnel area and Wage type

Thanks,

Maheedhar

2 REPLIES 2
Read only

Former Member
0 Likes
389

Use "AT SELECTION-SCREEN OUTPUT" and distinguish them with "MODIF ID"

Code flows like this:

PARAMETERS r_online RADIOBUTTON GROUP g1
                     USER-COMMAND ex DEFAULT 'X'.
PARAMETERS r_batch RADIOBUTTON GROUP g1.
PARAMETERS r_down RADIOBUTTON GROUP g1.

PARAMETER: p_bukrs LIKE t024e-bukrs OBLIGATORY
                   DEFAULT 'US60'.
SELECT-OPTIONS: s_werks FOR marc-werks. 

PARAMETER: p_vari TYPE slis_vari MODIF ID md5.

PARAMETERS: p_a_file LIKE rlgrap-filename
                     DEFAULT '/transfer/us6/ZUS6MM04_MatPlt'
                     MODIF ID md2.
PARAMETERS: p_h_file LIKE rlgrap-filename
                     DEFAULT '/transfer/us6/ZUS6MM04_MatPlt_HDR'
                     MODIF ID md2.

PARAMETERS: p_hfile1 LIKE rlgrap-filename
                     DEFAULT '/transfer/us6/ZUS6MM04_MatPlt_HDR'
                     MODIF ID md3.
PARAMETERS: p_hfile2 LIKE rlgrap-filename
                     default 'C:\Transfer\US6\ZUS6MM04_MatPlt_HDR.txt'
                     MODIF ID md4.


*--------------------------------------------------------------------*
* AT SELECTION-SCREEN EVENTS
*--------------------------------------------------------------------*

AT SELECTION-SCREEN OUTPUT.
  PERFORM modify_screen.


*&-------------------------------------------------------------------*
*&      Form  MODIFY_SCREEN
*&-------------------------------------------------------------------*
*
*--------------------------------------------------------------------*
FORM modify_screen .
  LOOP AT SCREEN.
    IF r_online  = 'X'.
      IF screen-group1 = 'MD3' OR
         screen-group1 = 'MD4' OR
         screen-group1 = 'MD2'.
        screen-active = '0'.
      ENDIF.
    ELSEIF r_batch = 'X'.
      IF screen-group1 = 'MD3' OR
         screen-group1 = 'MD4' OR
        screen-group1 = 'MD5'.
        screen-active = '0'.
      ENDIF.
    ELSEIF r_down = 'X'.
      IF screen-group1 = 'MD2' OR
        screen-group1 = 'MD5'.
        screen-active = '0'.
      ENDIF.
    ENDIF.
    MODIFY SCREEN.
  ENDLOOP.

ENDFORM.                    " MODIFY_SCREEN

Read only

Former Member
0 Likes
388

you need to do that using at selection screen output.