topic selection screen in Application Development and Automation Discussions

selection screen

Former Member — Sun, 19 Aug 2007 08:02:08 GMT

in a selection screen i have 2 check box and three select options when i click on the check box the select options should be disabled and when i click on the second check box all the select options should be enabled, how to do this scenario.

thanks in advance

Baidyanath

Re: selection screen

Former Member — Sun, 19 Aug 2007 09:18:44 GMT

See the sample code and do accordingly

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.

PARAMETERS: pa_file TYPE rlgrap-filename MODIF ID abc,

pa_lifnr TYPE lfa1-lifnr MODIF ID abc,

pa_vkorg TYPE vbak-vkorg MODIF ID abc.

SELECTION-SCREEN END OF BLOCK b1.

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.

PARAMETERS: pa_kunnr TYPE vbak-kunnr MODIF ID def.

SELECT-OPTIONS: s_lifnr FOR gs_lfa1-lifnr MODIF ID def,

s_date FOR gs_lfa1-erdat MODIF ID def,

s_augru FOR gs_vbak-augru MODIF ID def,

s_vbeln FOR gs_vbak-vbeln MODIF ID def.

SELECTION-SCREEN END OF BLOCK b2.

SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-003.

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS: pa_upd RADIOBUTTON GROUP g1 USER-COMMAND uc01 DEFAULT 'X'."#EC *

SELECTION-SCREEN COMMENT 3(60) text-004 FOR FIELD pa_upd.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS: pa_rep RADIOBUTTON GROUP g1 ."#EC *

SELECTION-SCREEN COMMENT 3(60) text-005 FOR FIELD pa_rep.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK b3.

IF pa_rep EQ gc_x.

LOOP AT SCREEN.

IF screen-group1 = gc_abc.

screen-input = gc_zero_num.

ELSEIF screen-group1 = gc_def.

screen-active = gc_one_num.

ENDIF.

MODIFY SCREEN.

ENDLOOP.

ELSEIF pa_upd EQ gc_x.

*For Reprocessing

LOOP AT SCREEN.

IF screen-group1 = gc_def.

screen-input = gc_zero_num.

ELSEIF screen-group1 = gc_abc.

screen-active = gc_one_num.

ENDIF.

MODIFY SCREEN.

CLEAR pa_upd.

ENDLOOP.

ENDIF.

***********************************************************

REPORT zrich_001.

PARAMETERS: p_rad1 RADIOBUTTON GROUP grp1 DEFAULT 'X'

user-command chk,

p_rad2 RADIOBUTTON GROUP grp1.

SELECT-OPTIONS: s_datum1 FOR sy-datum MODIF ID d1,

s_datum2 FOR sy-datum MODIF ID d2.

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

IF p_rad1 = 'X'

AND screen-group1 = 'D2'.

screen-active = '0'.

ENDIF.

IF p_rad2 = 'X'

AND screen-group1 = 'D1'.

screen-active = '0'.

ENDIF.

MODIFY SCREEN.

ENDLOOP.

<b>Reward points for useful Answers</b>

Regards

Anji

Re: selection screen

Former Member — Sun, 19 Aug 2007 09:20:45 GMT

Hi, Baidyanath

I have writen a sample code for radio button. Copy this code and use in se38. it may help you. if you need for check box, i will create for that too.

Eg.

report zradio.

SELECTION-SCREEN : BEGIN OF BLOCK b1 WITH FRAME TITLE text-002.

PARAMETERS: FIRST RADIOBUTTON GROUP g1 USER-COMMAND loc DEFAULT 'X',

SECOND RADIOBUTTON GROUP g1.

SELECTION-SCREEN : END OF BLOCK b1.

SELECTION-SCREEN : BEGIN OF BLOCK b2 WITH FRAME TITLE text-003.

PARAMETERS : ONE TYPE localfile MODIF ID abc DEFAULT 'C:\',

TWO TYPE localfile MODIF ID ab.

SELECTION-SCREEN : END OF BLOCK b2.

AT SELECTION-SCREEN OUTPUT.

PERFORM sub_modify_sel_screen.

FORM sub_modify_sel_screen .

LOOP AT SCREEN.

IF screen-name = 'ONE'.

IF FIRST = 'X'.

screen-input = 0.

ELSE.

screen-input = 1.

ENDIF.

IF screen-name = 'TWO'.

IF SECOND = 'X'.

screen-input = 0.

ELSE.

screen-input = 1.

ENDIF.

MODIFY SCREEN.

ENDLOOP.

ENDFORM. " modify_sel_screen