Application Development 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
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Search instead for 
Did you mean: 

selection screen

Former Member

‎09-18-2007 10:19 PM

0 Kudos

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 .

9 REPLIES 9

former_member583013
Active Contributor

‎09-18-2007 10:23 PM

0 Kudos 

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

Greetings,

Blag.

Former Member
In response to former_member583013

‎09-18-2007 10:43 PM

0 Kudos

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.

Former Member
In response to former_member583013

‎09-18-2007 11:16 PM

0 Kudos

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.

Former Member
In response to former_member583013

‎09-19-2007 6:41 AM

0 Kudos

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.

Former Member

‎09-18-2007 10:27 PM

0 Kudos

hi go to se51 and write the logic in pbo

loop at screen.

screen-input = '0'.

screen-name = 'field name'.

modify screen.

endloop.

Former Member

‎09-18-2007 11:19 PM

0 Kudos

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.

Former Member

‎09-19-2007 5:29 AM

0 Kudos

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

Former Member

‎09-19-2007 5:37 AM

0 Kudos

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

Former Member

‎09-19-2007 6:28 AM

0 Kudos

Hello Deepthi,

Find the sample code below.

IF RB_NAME = 'X' <i>** If Radio Button is enabled</i>

LOOP AT SCREEN.

IF SCREEN-NAME EQ 'input_name'.

<i>** Check for the input filed names and enable them</i>

SCREEN-INPUT = 1.

ENDIF.

MODIFY SCREEN.

ENDLOOP.

ENDIF.

<b>Reward Points If Useful</b>

Regards, Srikanth