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

Visible/Invisible Selection Screen Fields

Former Member
0 Likes
14,100

Hi , Could anyone please advice me...

Selection Screen have one selectoption and set of fields/BLOCK. based on selectoption input, I wants to make set of fields/BLOCK visible/invisible.

EX: select-option input as 1 make the block of fields visible if not '1' make invisible....

Thanks in advance....

1 ACCEPTED SOLUTION
Read only

Former Member
0 Likes
4,734

SELECT-OPTION s_matnr LIKE mara-matnr.

PARAMETERS p_maktx LIKE makt-maktx MODIF ID nam.

AT SELECTION-SCREEN.

IF s_matnr-low EQ '1'.

LOOP AT screen.

IF screen-group EQ 'NAM'.

screen-invisible = '1'.

ENDIF.

ENDLOOP.

ELSE.

LOOP AT screen.

IF screen-group EQ 'NAM'.

screen-invisible = '0'.

ENDIF.

ENDLOOP.

ENDIF.

Hi , Could anyone please advice me...

Selection Screen have one selectoption and set of fields/BLOCK. based on selectoption input, I wants to make set of fields/BLOCK visible/invisible.

EX: select-option input as 1 make the block of fields visible if not '1' make invisible....

Thanks in advance....

6 REPLIES 6
Read only

Former Member
0 Likes
4,735

SELECT-OPTION s_matnr LIKE mara-matnr.

PARAMETERS p_maktx LIKE makt-maktx MODIF ID nam.

AT SELECTION-SCREEN.

IF s_matnr-low EQ '1'.

LOOP AT screen.

IF screen-group EQ 'NAM'.

screen-invisible = '1'.

ENDIF.

ENDLOOP.

ELSE.

LOOP AT screen.

IF screen-group EQ 'NAM'.

screen-invisible = '0'.

ENDIF.

ENDLOOP.

ENDIF.

Read only

Former Member
0 Likes
4,734

Hi,

Check this example..

DATA: V_NUMBER TYPE I.

TABLES: MARA.

SELECT-OPTIONS: SO_NO FOR V_NUMBER.

SELECT-OPTIONS: SO_MATNR FOR MARA-MATNR MODIF ID M1.

PARAMETERS: P_KUNNR TYPE KUNNR MODIF ID M1.

AT SELECTION-SCREEN OUTPUT.

READ TABLE SO_NO INDEX 1.

IF SO_NO-LOW <> 1.

LOOP AT SCREEN.

IF SCREEN-GROUP1 = 'M1'.

SCREEN-INVISIBLE = '1'.

SCREEN-INPUT = '0'.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ENDIF.

Thanks,

Naren

Read only

Former Member
0 Likes
4,734

refer this demo code.u have to press enter at selection screen after changing value of select options.

tables pa0001.

parameters: P_pernr(8) modif ID ABD ,

p_date(10) modif ID ABD.

select-options s_pernr for pa0001-pernr default '00000001'.

AT SELECTION-SCREEN OUTPUT.

loop at screen.

if s_pernr-low = '00000000'.

if screen-group1 = 'ABD'.

SCREEN-ACTIVE = '0'.

MODIFY SCREEN.

ENDIF.

ELSE.

if screen-group1 = 'ABD'.

SCREEN-ACTIVE = '1'.

MODIFY SCREEN.

ENDIF.

ENDIF.

endloop.

Read only

Former Member
0 Likes
4,734

you have to cde

at selection-screen output.

if s_option-low = 1.

loop at screen.

if screen-name = 'P_MATNR' or screen-name = 'S_MATNR-LOW'.

screen-invisible = '0'.

modify screen.

endif.

endloop.

else.

loop at screen.

if screen-name = 'P_MATNR' or screen-name = 'S_MATNR-LOW'.

screen-invisible = '1'.

modify screen.

endif.

endloop.

endif.

regards

shiba dutta

Read only

Former Member
0 Likes
4,734

BR,

REPORT zextest595 .

*--- Radiobuttons

PARAMETERS: p_up RADIOBUTTON GROUP a DEFAULT 'X' USER-COMMAND rb,

p_list RADIOBUTTON GROUP a.

PARAMETERS: p_pcfile LIKE rlgrap-filename OBLIGATORY DEFAULT 'C:\'

MODIF ID ccc,

p_pctype LIKE rlgrap-filetype OBLIGATORY DEFAULT 'ASC'

MODIF ID ccc,

p_unix LIKE rlgrap-filename OBLIGATORY DEFAULT '.\'

MODIF ID ccc.

PARAMETERS: p_dir LIKE rlgrap-filename OBLIGATORY DEFAULT '.'

MODIF ID ddd,

p_fp LIKE rlgrap-filename

MODIF ID ddd.

*----


  • AT SELECTION-SCREEN

*----


AT SELECTION-SCREEN OUTPUT.

IF p_up = 'X' .

LOOP AT SCREEN.

CASE screen-group1.

WHEN 'CCC'.

screen-input = 1. "Enable

screen-invisible = 0. "Disable

MODIFY SCREEN.

WHEN 'DDD'.

screen-input = 0.

screen-invisible = 1.

MODIFY SCREEN.

ENDCASE.

ENDLOOP.

ENDIF.

IF p_list = 'X'.

LOOP AT SCREEN.

CASE screen-group1.

WHEN 'CCC'.

screen-input = 0.

screen-invisible = 1.

MODIFY SCREEN.

WHEN 'DDD'.

screen-input = 1.

screen-invisible = 0.

MODIFY SCREEN.

ENDCASE.

ENDLOOP.

ENDIF.

Pls. Mark if useful

Read only

Former Member
0 Likes
4,734

hello...Thanks all for your valuable advices....points rewarded,,,,