topic Re: selection screen in Application Development and Automation Discussions

selection screen

Former Member — Tue, 18 Sep 2007 21:19:21 GMT

i have few fields on the selection screen , initially they are disabled , only when i select a radio button the input fields have to get enabled . how can i do that .

Re: selection screen

Former Member — Tue, 18 Sep 2007 21:23:48 GMT


AT SELECTION-SCREEN.
LOOP AT SCREEN.
IF SCREEN-NAME EQ 'TEST'.
SCREEN-INPUT = 1.
ENDIF.
MODIFY SCREEN.
ENDLOOP.

Greetings,

Blag.

Re: selection screen

Former Member — Tue, 18 Sep 2007 21:27:01 GMT

hi go to se51 and write the logic in pbo

loop at screen.

screen-input = '0'.

screen-name = 'field name'.

modify screen.

endloop.

Re: selection screen

Former Member — Tue, 18 Sep 2007 21:43:55 GMT

i need something like this.

at selection-screen output.

loop at screen.

if screen-name = 'CHECK'.

screen-input = 0.

screen-output = 1.

modify screen.

endif.

endloop.

at selection-screen .

if input1 = 'X'.

loop at screen.

if screen-name = 'check'.

screen-input = 1.

screen-output = 0.

modify screen.

endif.

endloop.

endif.

Re: selection screen

Former Member — Tue, 18 Sep 2007 22:16:08 GMT

PARAMETERS : Pre_lay RADIOBUTTON GROUP RG USER-COMMAND R DEFAULT 'X'.

PARAMETERS : Apln_lay RADIOBUTTON GROUP RG .

selection-screen begin of block b1 with frame.

parameters : Pre_layr(10) type c modif id abc.

selection-screen end of block b1.

selection-screen begin of block b2 with frame.

parameters : Appl_lay(40) type c modif id def.

selection-screen end of block b2.

at selection-screen output.

IF Pre_lay = 'X'.

LOOP AT SCREEN.

IF screen-group1 = 'DEF' .

screen-active = '0'.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ENDIF.

IF Apln_lay = 'X'.

LOOP AT SCREEN.

IF screen-group1 = 'ABC' .

screen-active = '0'.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ENDIF.

Re: selection screen

Former Member — Tue, 18 Sep 2007 22:19:12 GMT

check this sample piece of code....

If Validation option is not chosen then hide the upload option

if p_valid = space.

loop at screen.

if screen-name = 'P_ERRORS'

or screen-name = 'P_UPLOAD'

or screen-name = '%BS01010_BLOCK_1000'

or screen-name = '%_P_ERRORS_%_APP_%-TEXT'

or screen-name = '%_P_UPLOAD_%_APP_%-TEXT'.

screen-invisible = 1.

endif.

modify screen.

endloop.

If Validation option is chosen then show the upload option

else.

loop at screen.

if screen-name = 'P_ERRORS'

or screen-name = 'P_UPLOAD'

or screen-name = '%BS01010_BLOCK_1000'

or screen-name = '%_P_ERRORS_%_APP_%-TEXT'

or screen-name = '%_P_UPLOAD_%_APP_%-TEXT'.

screen-invisible = 0.

endif.

modify screen.

endloop.

endif.

Make the checkbox for error handling editable depending
on the upload status

perform sub_checkbox_handle.

Re: selection screen

Former Member — Wed, 19 Sep 2007 04:29:20 GMT

Hi,

Use the below code.

tables: pa0000, pa0001.

parameters: p_rad1 radiobutton group rad1 default 'X' user-command rusr,

p_rad2 radiobutton group rad1,

p_rad3 radiobutton group rad1,

p_rad4 radiobutton group rad1,

p_rad5 radiobutton group rad1.

selection-screen: begin of block blk1 with frame.

select-options: s_pernr for pa0000-pernr modif id ABC,

s_stat2 for pa0000-stat2 modif id DEF,

s_werks for pa0001-werks modif id GHI,

s_persg for pa0001-persg modif id JKL,

s_persk for pa0001-persk modif id MNO.

selection-screen: end of block blk1.

AT SELECTION-SCREEN output.

LOOP AT SCREEN.

IF SCREEN-GROUP1 = 'ABC'.

IF p_rad1 = 'X'.

SCREEN-INPUT = 1.

ELSE.

SCREEN-INPUT = 0.

ENDIF.

MODIFY SCREEN.

ENDIF.

IF SCREEN-GROUP1 = 'DEF'.

IF p_rad2 = 'X'.

SCREEN-INPUT = 1.

ELSE.

SCREEN-INPUT = 0.

ENDIF.

MODIFY SCREEN.

ENDIF.

IF SCREEN-GROUP1 = 'GHI'.

IF p_rad3 = 'X'.

SCREEN-INPUT = 1.

ELSE.

SCREEN-INPUT = 0.

ENDIF.

MODIFY SCREEN.

ENDIF.

IF SCREEN-GROUP1 = 'JKL'.

IF p_rad4 = 'X'.

SCREEN-INPUT = 1.

ELSE.

SCREEN-INPUT = 0.

ENDIF.

MODIFY SCREEN.

ENDIF.

IF SCREEN-GROUP1 = 'MNO'.

IF p_rad5 = 'X'.

SCREEN-INPUT = 1.

ELSE.

SCREEN-INPUT = 0.

ENDIF.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

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

*Note

*Titles for Rado buttons and parameters.

*P_RAD1 Personal Number

*P_RAD2 Employment Status

*P_RAD3 Personnel Area

*P_RAD4 Employee Group

*P_RAD5 Employee Sub group

*S_PERNR Personal Number

*S_PERSG Employee Group

*S_PERSK Employee Sub group

*S_STAT2 Employment Status

*S_WERKS Personnel Area

Message was edited by:

Velangini Showry Maria Kumar Bandanadham

Message was edited by:

Velangini Showry Maria Kumar Bandanadham

Re: selection screen

Former Member — Wed, 19 Sep 2007 04:37:17 GMT

Hi Deepthi,

Check out with the below code.It will give you a clue as how to achieve your requirement.

selection-screen begin of block b3 with frame TITLE text-003.

parameters: rb_emp radiobutton group grp1 DEFAULT 'X' user-command rusr.

select-options: s_empid for y689emp-EMPID,

s_age for y689emp-AGE.

parameters: rb_mat radiobutton group grp1.

select-options: s_matno for y689_date-MATERIALNUM.

parameters: rb_mara radiobutton group grp1.

select-options: s_mtart for mara-mtart.

selection-SCREEN end of block b3.

AT SELECTION-SCREEN output.

LOOP AT SCREEN.

IF rb_emp = 'X'.

IF SCREEN-NAME = 'S_MATNO-LOW' or SCREEN-NAME ='S_MATNO-HIGH' or screen-name = 'S_MTART-LOW' or screen-name = 'S_MTART-HIGH'.

SCREEN-INPUT = 0.

ELSE.

SCREEN-INPUT = 1.

ENDIF.

MODIFY SCREEN.

elseif rb_mat = 'X'.

if screen-name = 'S_EMPID-LOW' or screen-name = 'S_EMPID-HIGH' or screen-name = 'S_AGE-LOW' or

screen-name = 'S_AGE-HIGH' or screen-name = 'S_MTART-LOW' or screen-name = 'S_MTART-HIGH'.

SCREEN-INPUT = 0.

ELSE.

SCREEN-INPUT = 1.

ENDIF.

MODIFY SCREEN.

elseif rb_mara = 'X'.

IF SCREEN-NAME = 'S_MATNO-LOW' or SCREEN-NAME ='S_MATNO-HIGH' or screen-name = 'S_EMPID-LOW' or screen-name = 'S_EMPID-HIGH'

or screen-name = 'S_AGE-LOW' or screen-name = 'S_AGE-HIGH'.

screen-input = 0.

else.

screen-input = 1.

endif.

modify screen.

ENDIF.

ENDLOOP.

Reward if useful.

Close the thread if your question is answered.

Regards

Sayee

Re: selection screen

Former Member — Wed, 19 Sep 2007 05:28:59 GMT

Hello Deepthi,

Find the sample code below.

IF RB_NAME = 'X' ** If Radio Button is enabled

LOOP AT SCREEN.

IF SCREEN-NAME EQ 'input_name'.

** Check for the input filed names and enable them

SCREEN-INPUT = 1.

ENDIF.

MODIFY SCREEN.

ENDLOOP.

ENDIF.

Reward Points If Useful

Regards, Srikanth

Re: selection screen

Former Member — Wed, 19 Sep 2007 05:41:59 GMT

ok see this its usefull to u

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

Selection screen *

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

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

If radio button is checked then upload file to DB.

PARAMETERS:rb_load RADIOBUTTON GROUP rb DEFAULT 'X' USER-COMMAND ucomm .

If radio button is checked then display the table details.

PARAMETERS: rb_disp RADIOBUTTON GROUP rb .

SELECTION-SCREEN END OF BLOCK bl1.

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

File to be uploaded (File Path)

PARAMETERS : p_file LIKE ibipparms-path MODIF ID gr2 . "OBLIGATORY

SELECTION-SCREEN END OF BLOCK bl2.

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

SELECT-OPTIONS: s_matgp FOR zsamp_alter-zmatgp MODIF ID gr3, "Customer code

s_werks FOR zsamp_alter-werks MODIF ID gr3, "Plant

s_matnr1 FOR zsamp_alter-zmatnr1 MODIF ID gr3, "Material number

s_matnr2 FOR zsamp_alter-zmatnr2 MODIF ID gr3. "BOM material number

SELECTION-SCREEN END OF BLOCK bl3.

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

At Selection screen *

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

AT SELECTION-SCREEN OUTPUT.

IF NOT rb_load IS INITIAL.

LOOP AT SCREEN.

IF screen-group1 = 'GR3'.

screen-invisible = 1.

screen-input = 0.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ELSE.

LOOP AT SCREEN.

IF screen-group1 = 'GR2'.

screen-invisible = 1.

screen-input = 0.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ENDIF.

thanks

kumar.