Visible/Invisible Selection Screen Fields

[Former Member]

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....

[Former Member]

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.

[Former Member]

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.

[Former Member]

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

[Former Member]

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.

[Former Member]

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

[Former Member]

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

[Former Member]

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