topic Re: Disabling certain fields on the selection screen. in Application Development and Automation Discussions

Disabling certain fields on the selection screen.

Former Member — Wed, 02 Jan 2008 12:12:01 GMT

Hi all,

I want to disable certain fields on selection screen of my program, also i want to display certain fields on selection screen only if a particular field on the selection screen is checked or selected. Please guide me how this can be achieved via coding in a program.

Thanks & regards,

Chetan.

Re: Disabling certain fields on the selection screen.

Former Member — Wed, 02 Jan 2008 12:18:17 GMT

SELECTION SCREEN DECLARATION ****
BLOCK B1 BEGINS ****

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.

SELECT-OPTIONS: S_EBELN FOR EKKO-EBELN MODIF ID S1.

PARAMETER P_MATNR TYPE MARA-MATNR MODIF ID S2.

SELECTION-SCREEN END OF BLOCK B1.

BLOCK B1 ENDS ****
BLOCK B2 BEGINS ****

SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-002.

PARAMETERS:R1 RADIOBUTTON GROUP G1 USER-COMMAND UC,

R2 RADIOBUTTON GROUP G1.

SELECTION-SCREEN END OF BLOCK B2.

BLOCK B2 ENDS ****

AT SELECTION-SCREEN OUTPUT ****

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

IF R1 = 'X' AND SCREEN-GROUP1 = 'S2'.

SCREEN-INPUT = 0.

MODIFY SCREEN.

CLEAR SCREEN.

ENDIF.

IF R2 = 'X' AND SCREEN-GROUP1 = 'S1'.

SCREEN-INPUT = 0.

MODIFY SCREEN.

CLEAR SCREEN.

ENDIF.

ENDLOOP.

Reward if useful

Regards

ANUPAM

Re: Disabling certain fields on the selection screen.

Former Member — Wed, 02 Jan 2008 12:20:55 GMT

Hi Chetan,

try this.

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.

reward if useful.

regards,

sravanthi.

Re: Disabling certain fields on the selection screen.

Former Member — Wed, 02 Jan 2008 12:37:39 GMT

Hi Chethan,

Check this...

TABLES : MARC.

PARAMETERS: MATNR AS CHECKBOX USER-COMMAND UCM.

PARAMETERS: PLANT AS CHECKBOX USER-COMMAND UCM.

SELECT-OPTIONS: S_MATNR FOR marc-matnr MODIF ID mat.

SELECT-OPTIONS: S_WERKS FOR marc-werks MODIF ID wrk.

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

IF MATNR = 'X' AND SCREEN-GROUP1 = 'MAT'.

SCREEN-INPUT = 0.

MODIFY SCREEN.

ENDIF.

IF PLANT = 'X' AND SCREEN-GROUP1 = 'WRK'.

SCREEN-INPUT = 0.

MODIFY SCREEN.

ENDIF.

ENDLOOP.