01-10-2008 11:42 AM
hi experts,
SELECTION-SCREEN BEGIN OF BLOCK server WITH FRAME TITLE text-009.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: data_app RADIOBUTTON GROUP csbi.
SELECTION-SCREEN COMMENT 4(35) text-006 FOR FIELD data_app."744242
parameters : p_fname1 like rlgrap-filename default 'D:\usr\sap\ESP\DVEBMGS32\work\.boma1.dat' modif id s1.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: data_frn RADIOBUTTON GROUP csbi DEFAULT 'X'.
SELECTION-SCREEN COMMENT 4(35) text-007 FOR FIELD data_frn."744242
PARAMETERS: p_fname2 LIKE rlgrap-filename DEFAULT 'D:\Documents and Settings\czfnct\Desktop\boma.xls' modif id s2.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK server.
my requirement is when data_frm radio button is active p_fname1 should be disabled or disappeared.
and when data_app radio button is active p_fname2 should be disabled or disappeared.
kindly suggest how to acheive it.
regards,
pavan
01-10-2008 11:53 AM
Hi,
Please refer to the code below :
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.
01-10-2008 11:49 AM
At Selection-Screen.
Loop at Screen.
If data_frm radio = 'X'.
if screen-group = 'S1'.
screen-invisible = 1.
elseif screen-group = 'S2'.
screen-invisible = 0.
endif.
endif.
If data_app_radio = 'X'.
if screen-group = 'S2'.
screen-invisible = 1.
elseif screen-group = 'S1'.
screen-invisible = 0.
endif.
endif.
Modify Screen.
Endloop.
awrd points if useful
Bhupal
01-10-2008 11:52 AM
try this,
at selection-screen.
if radio button = 'X'.
loop at screen.
if screen-name = 'UR parameter name'.
screen-invisible = '1'.
screen-active = '0'.
modify screen.
endif.
endloop.
endif.
i think it should work
Edited by: Amit Sawant on Jan 10, 2008 12:52 PM
01-10-2008 11:53 AM
Hi,
Please refer to the code below :
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.
01-10-2008 12:06 PM
SELECTION-SCREEN BEGIN OF BLOCK server WITH FRAME TITLE text-009.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: data_app RADIOBUTTON GROUP csbi USER-COMMAND umd.
SELECTION-SCREEN COMMENT 4(35) text-006 FOR FIELD data_app.
PARAMETERS : p_fname1 LIKE rlgrap-filename DEFAULT 'D:\usr\sap\ESP\DVEBMGS32\work\.boma1.dat' MODIF ID s1.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: data_frn RADIOBUTTON GROUP csbi DEFAULT 'X'.
SELECTION-SCREEN COMMENT 4(35) text-007 FOR FIELD data_frn. "744242
PARAMETERS: p_fname2 LIKE rlgrap-filename DEFAULT 'D:\Documents and Settings\czfnct\Desktop\boma.xls' MODIF ID s2.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK server.
*my requirement is when data_frm radio button is active p_fname1 should be disabled or disappeared.
*and when data_app radio button is active p_fname2 should be disabled or disappeared.
*
*kindly suggest how to acheive it.
*
*regards,
*pavan
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
IF screen-group1 = 'S1' AND data_app = 'X'.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
IF screen-group1 = 'S2' AND data_frn = 'X'.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
01-10-2008 12:32 PM
hi,
Thank you all for u r quick reply. with all u r help i completed my task.
cheers,
pavan
01-10-2008 12:34 PM
hi,
try like this
SELECTION-SCREEN BEGIN OF BLOCK server WITH FRAME TITLE text-010.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: data_app RADIOBUTTON GROUP csbi DEFAULT 'X' USER-COMMAND ucom.
SELECTION-SCREEN COMMENT 4(35) text-008 FOR FIELD data_app. "744242
PARAMETERS : p_fname1 LIKE rlgrap-filename DEFAULT 'D:\usr\sap\ESP\DVEBMGS32\work\.boma1.dat' modif id s1..
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: data_frn RADIOBUTTON GROUP csbi.
SELECTION-SCREEN COMMENT 4(35) text-009 FOR FIELD data_frn. "744242
PARAMETERS: p_fname2 LIKE rlgrap-filename DEFAULT 'D:\Documents and Settings\czfnct\Desktop\boma.xls' modif id s2. .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK server.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
IF data_app = 'X'.
IF screen-name = 'P_FNAME1' .
p_fname1 = 'D:\usr\sap\ESP\DVEBMGS32\work\.boma1.dat' .
screen-input = 1.
ENDIF.
IF screen-name = 'P_FNAME2' .
screen-input = 0.
CLEAR p_fname2.
ENDIF.
MODIFY SCREEN.
ELSEIF data_frn = 'X'.
IF screen-name = 'P_FNAME2' .
p_fname2 = 'D:\Documents and Settings\czfnct\Desktop\boma.xls' .
screen-input = 1.
ENDIF.
IF screen-name = 'P_FNAME1'.
screen-input = 0.
CLEAR p_fname1.
ENDIF.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
reward if useful...