parameter

[Former Member]

Hi all

I have two radio buttons: B1 , B2

When B1 is selected, Parameter for Order type should be visible on screen

When B2 is selected, Parameter for Order type should be invisible.]

How i have to do that.

[Former Member]

SELECT-OPTIONS: s_pernr FOR pa0001-pernr,

s_begdt FOR pa0001-begda,

s_enddt FOR pa0001-endda.

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

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS: pa_emp RADIOBUTTON GROUP g1 USER-COMMAND uc01 DEFAULT 'X'.

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

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS: pa_det RADIOBUTTON GROUP g1 .

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

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK b3.

In At selection-Screen event write th code:

IF pa_det EQ 'X'.

LOOP AT SCREEN.

IF screen-name = 'S_BEGDT' or screen-name = 'S_ENDDT' .

screen-input = 0.

ENDIF.

MODIFY SCREEN.

ENDLOOP.

ELSEIF pa_rep EQ gc_x.

LOOP AT SCREEN.

IF screen-name = 'S_PERNR'.

screen-input = 0.

ENDIF.

Modify screen.

ENDLOOP.

Reward points if useful

Regards

Madhaiv

[former_member404244]

Hi,

check the bleow code and do accordingly for ur requirement

PARAMETERS : p_aserv RADIOBUTTON GROUP grp

USER-COMMAND app, "Application server

p_afile1 TYPE filename-fileextern , "Application File

"Name for contracts

p_afile2 TYPE filename-fileextern , "Application

"FileName for

"Long text

p_aerfl1 TYPE filename-fileextern , "Error File

"forcontracts

p_aerfl2 TYPE filename-fileextern , "Error File

"for Longtext

p_pserv RADIOBUTTON GROUP grp, "Presentation Server

p_pfile1 TYPE rlgrap-filename , "Presentation File

"Name forcontracts

p_pfile2 TYPE rlgrap-filename , "Presentation File

"Name for long

"texts

p_errfl1 TYPE rlgrap-filename ,

"Error File for

"contracts

p_errfl2 TYPE rlgrap-filename . "Err File Long text

at selection-screen output.

IF p_pserv IS INITIAL.

LOOP AT SCREEN.

CASE screen-name.

WHEN 'P_PFILE1'.

screen-input = 0.

MODIFY SCREEN.

WHEN 'P_PFILE2'.

screen-input = 0.

MODIFY SCREEN.

WHEN 'P_ERRFL1'.

screen-input = 0.

MODIFY SCREEN.

WHEN 'P_ERRFL2'.

screen-input = 0.

MODIFY SCREEN.

ENDCASE.

ENDLOOP.

ELSE.

LOOP AT SCREEN.

CASE screen-name.

WHEN 'P_AFILE1'.

screen-input = 0.

MODIFY SCREEN.

WHEN 'P_AFILE2'.

screen-input = 0.

MODIFY SCREEN.

WHEN 'P_AERFL1'.

screen-input = 0.

MODIFY SCREEN.

WHEN 'P_AERFL2'.

screen-input = 0.

MODIFY SCREEN.

ENDCASE.

ENDLOOP.

ENDIF.

Regards,

Nagaraj

[dhruv_shah3]

Hi,

YOu have to use the Loop at Screen.

if B1 is selected then in the loop you have to write

loop at screen.

screen-invisible = 0.

endloop.

modify screen.

end if.

Regards,

DS

[Former Member]

Hi,

Please see the below code :

TABLES : bsis.

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

PARAMETER : sp_sel radiobutton group rad USER-COMMAND radio DEFAULT 'X',

sp_all RADIOBUTTON GROUP rad.

SELECTION-SCREEN END OF BLOCK b1.

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

SELECT-OPTIONS : so_bukrs FOR bsis-bukrs MODIF ID sp1.

SELECT-OPTIONS : so_hkont FOR bsis-hkont MODIF ID sp2.

SELECTION-SCREEN END OF BLOCK b2.

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

IF sp_sel = 'X'.

IF screen-group1 = 'SP2'.

screen-input = '0'.

screen-invisible = '0'.

screen-required = '0'.

MODIFY SCREEN.

ENDIF.

elseif sp_all = 'X'.

IF screen-group1 = 'SP1'.

screen-input = '0'.

screen-invisible = '0'.

screen-required = '0'.

MODIFY SCREEN.

ENDIF.

endif.

ENDLOOP.

Thanks,

Sriram Ponna.