selection screen enable by radio button

[Former Member]

Hi All,

In a selection-screen i have one selection option and radio button,

select-option is in disable mode by default.if i chek that radio button The disabled select-option should allow me to enter data(s_audat for vbak-audat) .

Please help on this..

Thanks,

srii...

[Former Member]

Hi,

Use this..

PARAMETERS: p1 RADIOBUTTON GROUP rd1 DEFAULT 'X' USER-COMMAND rd,
            p2 RADIOBUTTON GROUP rd1.

SELECT-OPTIONS: s_audat FOR sy-datum MODIF ID dat.

AT SELECTION-SCREEN output.
  LOOP AT SCREEN.
    IF screen-group1 = 'DAT'.
      IF p1 = 'X'.
        screen-input = 0.
      ELSEIF p2 = 'X'.
        screen-input = 1.
      ENDIF.
      MODIFY SCREEN.
    ENDIF.
  ENDLOOP.

[Former Member]

select-option is in disable mode by default

Like you made this Disable,apply same logic(Flip 0 to 1) for enable this by checking readio button with value "X".

[Former Member]

Hi

Try the following code. It may give you some help.

DATA:
  so_cmp type bukrs.

selection-screen begin of block b1.
  PARAMETERS: enable RADIOBUTTON GROUP g1 USER-COMMAND u2.
  SELECT-OPTIONS: compcode for so_cmp.
  PARAMETERS: disable RADIOBUTTON GROUP g1 DEFAULT 'X'.
selection-screen end of block b1.

INITIALIZATION.
  LOOP AT SCREEN.
    IF screen-name = 'COMPCODE-LOW'.
      screen-input = 0.
      MODIFY SCREEN.
    ENDIF.
    IF screen-name = 'COMPCODE-HIGH'.
      screen-input = 0.
      MODIFY SCREEN.
    ENDIF.
  ENDLOOP.

AT SELECTION-SCREEN OUTPUT.
  LOOP AT SCREEN.
    IF enable = 'X'.
      IF screen-name = 'COMPCODE-LOW'.
      screen-input = 1.
      MODIFY SCREEN.
      ENDIF.
      IF screen-name = 'COMPCODE-HIGH'.
      screen-input = 1.
      MODIFY SCREEN.
      ENDIF.
    ENDIF.

    IF disable = 'X'.
      IF screen-name = 'COMPCODE-LOW'.
        screen-input = 0.
        MODIFY SCREEN.
      ENDIF.
      IF screen-name = 'COMPCODE-HIGH'.
        screen-input = 0.
        MODIFY SCREEN.
      ENDIF.
    ENDIF.

  ENDLOOP.

[Former Member]

Hi,

Use this..

PARAMETERS: p1 RADIOBUTTON GROUP rd1 DEFAULT 'X' USER-COMMAND rd,
            p2 RADIOBUTTON GROUP rd1.

SELECT-OPTIONS: s_audat FOR sy-datum MODIF ID dat.

AT SELECTION-SCREEN output.
  LOOP AT SCREEN.
    IF screen-group1 = 'DAT'.
      IF p1 = 'X'.
        screen-input = 0.
      ELSEIF p2 = 'X'.
        screen-input = 1.
      ENDIF.
      MODIFY SCREEN.
    ENDIF.
  ENDLOOP.

[former_member206439]

TABLES EKKO.

********END OF DATA DECLARATIONS*********

********SELECTION SCREEN DESIGN ***********

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

select-option is in disable mode by default and add MODIF ID S1.

SELECTION-SCREEN END OF BLOCK B1.

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

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS : R1 RADIOBUTTON GROUP G1 DEFAULT 'X' user-command uc1.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS : R2 RADIOBUTTON GROUP G1.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK B2.

******END OF SELECTION SCREEN DESIGN****************

***********SCREEN MODIFICATIONS*******************

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

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

SCREEN-INPUT = 1.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

[Former Member]

Hi

Try the below code.

TABLES : kna1.

PARAMETERS : p_1 RADIOBUTTON GROUP rd1 user-command comm ,
             p_2 RADIOBUTTON GROUP rd1  .

SELECT-OPTIONS: s_name FOR kna1-name1 MODIF ID mk1.

at selection-screen output.
if p_2 = 'X'.
loop at screen.
if screen-group1 = 'MK1'.
screen-input = '0'.
modify screen.
endloop.
endif.
endif.

Edited by: Kumar M on Nov 19, 2008 5:41 AM

Edited by: Kumar M on Nov 19, 2008 5:43 AM