topic Re: modify screen in Application Development and Automation Discussions

modify screen

Former Member — Wed, 12 Mar 2008 03:53:43 GMT

hi experts,

Can u please explain me about modifying the selection screen.

My requirement is I got 1 parameter field and 2 radiobuttons of same group on the selection screen.

if i select one of the radiobuttons then the parameter field should go invisible.

thanks in advance.

good answers will be rewarded.

Re: modify screen

Former Member — Wed, 12 Mar 2008 03:55:13 GMT

Refr this code

PARAMETERS & SELECT-OPTIONS *

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

PARAMETERS : p_pay1 RADIOBUTTON GROUP grp USER-COMMAND fc DEFAULT 'X',

p_pay2 RADIOBUTTON GROUP grp.

SELECTION-SCREEN END OF BLOCK b1.

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

SELECT-OPTIONS : s_pernr FOR pa0000-pernr. "Personnel Number

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT (31) text-018.

PARAMETERS : p_begda LIKE pa0000-begda OBLIGATORY. "Start Date

SELECTION-SCREEN COMMENT 52(05) text-019.

PARAMETERS : p_endda LIKE pa0000-endda OBLIGATORY. "End Date

SELECTION-SCREEN END OF LINE.

SELECT-OPTIONS : s_stat2 FOR pa0000-stat2, "Status

s_werks FOR pa0001-werks, "Personnel Area

s_raufnr FOR catsdb-raufnr MODIF ID md1. "Internal Order Number

SELECTION-SCREEN END OF BLOCK b2.

AT SELECTION-SCREEN *

AT SELECTION-SCREEN OUTPUT.

IF p_pay1 EQ 'X'.

LOOP AT SCREEN.

IF screen-group1 = 'MD1'.

screen-active = '1'.

screen-input = '0'.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ELSEIF p_pay2 EQ 'X'.

LOOP AT SCREEN.

IF screen-group1 = 'MD1'.

screen-active = '1'.

screen-input = '1'.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ENDIF.

Reward points..

Re: modify screen

Former Member — Wed, 12 Mar 2008 03:56:07 GMT

check with the following code

code************************************************************************

Parameters and Selection Options

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

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

SELECT-OPTIONS: s_lifnr FOR lfm1-lifnr .

SELECTION-SCREEN END OF BLOCK b1.

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

PARAMETERS:

r_asn RADIOBUTTON GROUP rad1 USER-COMMAND uc1 DEFAULT 'X',

r_ers RADIOBUTTON GROUP rad1 ,

r_830 RADIOBUTTON GROUP rad1,

r_850 RADIOBUTTON GROUP rad1,

r_862 RADIOBUTTON GROUP rad1,

r_810 RADIOBUTTON GROUP rad1,

r_820 RADIOBUTTON GROUP rad1,

r_824 RADIOBUTTON GROUP rad1.

SELECTION-SCREEN END OF BLOCK b2.

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

SELECT-OPTIONS: s_bstae FOR lfm1-bstae MODIF ID sd1.

PARAMETERS:

p_ekorg TYPE lfm1-ekorg MODIF ID md1,

p_evcode TYPE edp21-evcode MODIF ID md2,

p_kappl TYPE nach-kappl MODIF ID md3,

p_parvw TYPE nach-parvw MODIF ID md4,

p_kschl TYPE nach-kschl MODIF ID md5,

p_vakey TYPE nach-vakey MODIF ID md6,

p_werks TYPE werks_d MODIF ID md7,

p_bukrs TYPE lfb1-bukrs MODIF ID md8.

SELECTION-SCREEN END OF BLOCK b3.

*eject

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

Initialization

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

INITIALIZATION.

PERFORM check_authorization.

*eject

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

at selection screen

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

*AT SELECTION-SCREEN.

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

IF r_asn EQ 'X'

AND ( screen-group1 = 'MD3' or screen-group1 = 'MD4'

or screen-group1 = 'MD5' or screen-group1 = 'MD6'

or screen-group1 = 'MD7' or screen-group1 = 'MD8').

screen-active = '0'.

screen-invisible = '1'.

screen-input = '0'.

screen-output = '0'.

ELSEIF r_ers EQ 'X'

AND ( screen-group1 = 'SD1' or screen-group1 = 'MD1'

or screen-group1 = 'MD2' or screen-group1 = 'MD3'

or screen-group1 = 'MD4' or screen-group1 = 'MD5'

or screen-group1 = 'MD6' or screen-group1 = 'MD7'

or screen-group1 = 'MD8').

screen-active = '0'.

screen-invisible = '1'.

screen-input = '0'.

screen-output = '0'.

ELSEIF r_830 EQ 'X'

AND ( screen-group1 = 'SD1' or screen-group1 = 'MD1'

or screen-group1 = 'MD2' or screen-group1 = 'MD6'

or screen-group1 = 'MD7' or screen-group1 = 'MD8').

screen-active = '0'.

screen-invisible = '1'.

screen-input = '0'.

screen-output = '0'.

ELSEIF r_850 EQ 'X'

AND ( screen-group1 = 'SD1' or screen-group1 = 'MD1'

or screen-group1 = 'MD2' or screen-group1 = 'MD6'

or screen-group1 = 'MD7' or screen-group1 = 'MD8').

screen-active = '0'.

screen-invisible = '1'.

screen-input = '0'.

screen-output = '0'.

ELSEIF r_862 EQ 'X'

AND ( screen-group1 = 'SD1' or screen-group1 = 'MD1'

or screen-group1 = 'MD2' or screen-group1 = 'MD8').

screen-active = '0'.

screen-invisible = '1'.

screen-input = '0'.

screen-output = '0'.

ELSEIF r_810 EQ 'X'

AND ( screen-group1 = 'MD3' or screen-group1 = 'MD4'

or screen-group1 = 'MD5' or screen-group1 = 'MD6'

or screen-group1 = 'MD7' or screen-group1 = 'MD8').

screen-active = '0'.

screen-invisible = '1'.

screen-input = '0'.

screen-output = '0'.

ELSEIF r_820 EQ 'X'

AND ( screen-group1 = 'SD1' or screen-group1 = 'MD1'

or screen-group1 = 'MD2' or screen-group1 = 'MD3'

or screen-group1 = 'MD4' or screen-group1 = 'MD5'

or screen-group1 = 'MD6' or screen-group1 = 'MD7' ).

screen-active = '0'.

screen-invisible = '1'.

screen-input = '0'.

screen-output = '0'.

ELSEIF r_824 EQ 'X'

AND ( screen-group1 = 'SD1' or screen-group1 = 'MD1'

or screen-group1 = 'MD2' or screen-group1 = 'MD3'

or screen-group1 = 'MD4' or screen-group1 = 'MD5'

or screen-group1 = 'MD6' or screen-group1 = 'MD7'

or screen-group1 = 'MD8').

screen-active = '0'.

screen-invisible = '1'.

screen-input = '0'.

screen-output = '0'.

ENDIF.

MODIFY SCREEN.

ENDLOOP.

*eject

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

Event top of page

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

TOP-OF-PAGE.

*eject

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

event Start of Selection

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

START-OF-SELECTION.

*eject

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

*EVENT End-of selection

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

END-OF-SELECTION.

*eject

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

*EVENT End-of page

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

END-OF-PAGE.

************************************************************************[/

Reward Points if helpful..

Re: modify screen

Former Member — Wed, 12 Mar 2008 04:08:10 GMT

Hi,

Sample code:

selection screen declaration:

parameter: p_a type vbal-vbeln modif id 'G1'.

and in radio button declaration, give the extension "user-command 'UC1'. "

at selection-screen output.

loop at screen.

*on clicking this r_b1, the

*parameter becomes invisible

if r_b1 = 'X'.

if screen-group = 'G1'.

screen-input = 0.

screen-invisible = 1.

endif.

else.

if screen-group = 'G1'.

screen-input = 0.

endif.

modify screen.

endloop.

reward if helpful.

Regards,

Ramya

Re: modify screen

Former Member — Wed, 12 Mar 2008 04:26:36 GMT

Try the below code



parameters: rb_box1 radio button group g1 user command u1.
parameters: rb_box2 radio button group g1.

parameters: p_param1 type mara-matnr modif id m1.

at selection-screen output.
"The below will make p_param1 invisible if rb_box1 is selected.
loop at screen. 
  if screen-group1 = 'M1'.
    if rb_box1 = 'X'.
      screen-active = 1.
    else.
      screen-active = 0.
    endif.    
  endif.
  modify screen.   "this modifies the screen layout
endloop.

Hope this helps.

Thanks,

Balaji