How to disable a field in selection screen based on condition.

Question

Hi,
I have 2 radio buttons- p_normd, p_recov  and 2 other controls - like text boxes, say tb1 and tb2. and some mandatory fields below.
If i choose p_normd, i want one control(tb2) to be disabled and if i choose p_recov, i want the other control(tb1) to be disabled(tb2 should be enabled then.)
Currently i am using the following code. The 1'st radiobutton is intially checked. But the problem is when i click on the 2'nd radio button, the other control(tb1) is not getting disabled. When i double click, i get an error telling mandatory field to be filled. Only after the other mandatory fields below are filled, and after i double click on the unchecked radiobutton, the other control gets disabled.
Please suggest what to do..
The current code below:
  AT SELECTION-SCREEN OUTPUT. "ON RADIOBUTTON GROUP rg01.
  LOOP AT SCREEN.
  IF  p_normd EQ c_x  AND screen-group1 = 'SC2'.
        MOVE 0 TO screen-input.
      MODIFY SCREEN.
  ENDIF.
  IF p_recov EQ c_x AND screen-group1 = 'SC1'. "IF screen-name = 'ERDAT-LOW' OR screen-name = 'ERDAT-HIGH'.
        MOVE 0 TO screen-input.
        MODIFY SCREEN.
  ENDIF.
  ENDLOOP.
Thanks,
Ammu

Answer 1

Hi
declare your parameter as below:
parameters: p_x type c radio button group g1 user-command r.
in at selection screen output event .
check for the radio button.
loop at screen.
if screen group is <desired value>
then screen-active = 0 or 1. <do whatever you want to do.>
modify screen.
endloop.
see below the sample code.
<<<<<AT SELECTION SCREEN EVENT>>>>>
AT SELECTION-SCREEN ON BLOCK B1.
  IF P_LCOST = C_X.
    PERFORM CLEAR_FIELDS.    " Clearing fields before loading the screen
    CALL SELECTION-SCREEN 100 STARTING AT 20 5.
  ELSEIF  P_MCOST = C_X.
    PERFORM CLEAR_FIELDS1.          " Clearing fields before loading the screen
    CALL SELECTION-SCREEN 101 STARTING AT 20 5.
  ENDIF.
  IF SY-SUBRC = 0.
    PERFORM VALIDATION.             " Validating selection screen input
  ELSE.
    LEAVE TO TRANSACTION C_TRAN.
  ENDIF.
<<<<<<DECLARATION PART>>>>>>
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
PARAMETERS: P_LCOST RADIOBUTTON GROUP GI DEFAULT 'X',
            P_MCOST RADIOBUTTON GROUP GI.
SELECTION-SCREEN END OF BLOCK B1.
SELECTION-SCREEN BEGIN OF SCREEN 100 AS WINDOW TITLE TEXT-002.
SELECTION-SCREEN BEGIN OF BLOCK B2.
PARAMETERS: P_COAREA TYPE CSKS-KOKRS OBLIGATORY,         " controlling area
            P_FYR    TYPE COEP-GJAHR OBLIGATORY,         " fiscal year
            P_PERIOD TYPE COEP-PERIO OBLIGATORY.         " fiscal period
SELECT-OPTIONS: S_CCNTR FOR V_KOSTL OBLIGATORY,       " Cost Center
                S_COELM FOR V_KSTAR MODIF ID M1,       " Cost element
                S_PDATE FOR V_BUDAT OBLIGATORY.       " posting date.
SELECTION-SCREEN END OF BLOCK B2.
SELECTION-SCREEN END OF SCREEN 100.
SELECTION-SCREEN BEGIN OF SCREEN 101 AS WINDOW TITLE TEXT-003.
SELECTION-SCREEN BEGIN OF BLOCK B3.
PARAMETERS:     P_CCODE  TYPE T001-BUKRS OBLIGATORY,         " Company Code
                P_FYEAR  TYPE COEP-GJAHR OBLIGATORY.         " fiscal year
SELECT-OPTIONS:   S_GLACC FOR V_HKONT OBLIGATORY,       " G/L Account
                  S_PCNTR FOR V_PRCTR MODIF ID M2,      " Profit Center
                  S_PODATE FOR V_BUDAT OBLIGATORY.      " posting date.
SELECTION-SCREEN END OF BLOCK B3.
SELECTION-SCREEN END OF SCREEN 101.
thanks
LG
Edited by: LalitG on Apr 13, 2011 1:38 PM