How to disable a field on the basis radio button value selected.

Question

hello to all,
i am facing one problem.I have declared two selection screen blocks.
In one i hvae declared two radio button r1 -Fiscal year and r2--Datewise.
And in another selection screen block all i/p fields. like plant. date.year etc.
Now if user select r1-Fiscal year  then i/p field - date of second block should be disable.
And if user select r2-Datewise  then i/p field - year of second block should be disable.
SELECTION-SCREEN BEGIN OF BLOCK BLK WITH FRAME
          TITLE TEXT-002.
       PARAMETERS: R1 RADIOBUTTON GROUP RA1 user-command ucomm,
                   R2 RADIOBUTTON GROUP RA1 DEFAULT 'X'.
   SELECTION-SCREEN END OF BLOCK  BLK.
selection-screen begin of block b1 with
  frame title text-001.
parameters : gjahr like ZSA_DETAIL-gjahr  MODIF ID YAR,
             aedat like ZSA_DETAIL-aedat  MODIF ID DAT,
             werks like ZSA_DETAIL-werks .
selection-screen end of block b1.
AT SELECTION-SCREEN on RADIOBUTTON GROUP RA1.
   BREAK-POINT.
    IF R1 = 'X'. "fiscal
     LOOP AT SCREEN.
        IF screen-group1 = 'DAT'.
         screen-active = 0.
         screen-invisible = 1.
         MODIFY SCREEN.
         ENDIF.
        endloop.
   ELSEIF R2 = 'X'.
     LOOP AT SCREEN.
     IF screen-group1 = 'YAR'.
       screen-active = 0.
      MODIFY SCREEN.
     ENDIF.
     ENDLOOP.
    ENDIF.

Answer 1

Hi Shikha,
Regarding your query, when you select a particular radio-button then the fields pertaining to that radio-button should get activated or get displayed, otherwise it should be hidden.
This can be done adding the addition to the Radiobutton 'USER-COMMAND' this will automatically enable-up
the functionality of the fields related to that radiobutton, while disabling the others.
If USER-COMMAND isn't given, then ENTER key serves the purpose.
DATA:
w_carrid LIKE sflight-carrid,
w_connid LIKE sflight-connid.
PARAMETERS:
p_carrid RADIOBUTTON GROUP airl USER-COMMAND airline,
p_connid RADIOBUTTON GROUP airl.
SELECT-OPTIONS:
s_carrid FOR w_carrid,
s_connid FOR w_connid.
INITIALIZATION.
p_carrid = 'X'.
Now enabling desired fields and disabling the others, can be done by the following snippet.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
IF p_carrid EQ 'X'.
IF screen-name CS 'S_CONNID'.
screen-active = 0. " Disable the field S_CONNID
MODIFY SCREEN.
ELSEIF screen-name CS 'S_CARRID'.
screen-active = 1. " Enable the field S_CARRID
MODIFY SCREEN.
ENDIF.
ELSEIF p_connid EQ 'X'.
IF screen-name CS 'S_CARRID'.
screen-active = 0.
MODIFY SCREEN.
ELSEIF screen-name CS 'S_CONNID'.
screen-active = 1.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDLOOP.
Hope, this would help you solve your problem.
Thankyou,
Zahack.