radibutton

[Former Member]

hi all,

when i click the 1st radiobutton,

1st select-options should activate.

when i click 2nd radiobutton,

2nd selection-screen should activate.

<b><REMOVED BY MODERATOR></b>

Message was edited by:

Alvaro Tejada Galindo

[Former Member]

Hi,

... ON RADIOBUTTON GROUP radi

Effect

This event is triggered at the screen event PAI of a selection screen if all the fields of a radio button group radi of the selection screen were passed to the ABAP program. In the event block, the user input can be checked. Sending a warning or error message in the event block makes all the radion buttons of the block radi ready for input again.

Note

The individual fields of a radio button group are not passed individually and do not trigger the event AT SELECTION-SCREEN ON par.

check it.

selection-screen begin of block b1 with frame title text-001.

parameters: r1 type c radiobutton group g1,

r2 type c radiobutton group g1.

selection-screen end of block b1.

selection-screen begin of block b2 with frame title text-002.

parameters: r3 like ibipparms-path,

r4 like ibipparms-path.

selection-screen end of block b2.

if r1 ='X'.

endif.

if r2 = 'X'.

endif.

<b><REMOVED BY MODERATOR></b>

Regards,

Pritha.

Message was edited by:

Pritha Agrawal

Message was edited by:

Alvaro Tejada Galindo

[Former Member]

parameters : p_r1 radiobutton group G1,

p_r2 radiobutton group G1.

select-options : s_date1 for sy-datum modif id G2,

s_date2 for sy-datum modif id G3.

initialization.

loop at screen.

if screen-group1 = 'G2' or screen-group1 = 'G3'.

screen-invisible = 1.

screen-input = 0.

modify screen.

endif.

endloop.

at selection-screen output.

if p_r1 = 'X'.

loop at screen.

if screen-group1 = 'G2'.

screen-invisible = 0.

screen-input = 1.

modify screen.

endif.

endloop.

elseif p_r2 = 'X'.

loop at screen.

if screen-group1 = 'G3'.

screen-invisible = 0.

screen-input = 1.

modify screen.

endif.

endloop.

endif.

<b>TRY THIS CODE.....</b>

Regards

Vasu

[Former Member]

hi,

when you click the 1st radiobutton,

you enable th select option field as 1 then it will enable .

when you click 2nd radiobutton,

you give the condition 2nd selection-screen should activate.

first select option ll disable.

which should be given in PAI event...

thanks ,

<b><REMOVED BY MODERATOR></b>

Message was edited by:

Alvaro Tejada Galindo

[Former Member]

tables: pa0000, pa0001.

parameters: p_rad1 radiobutton group rad1 default 'X' user-command rusr,

p_rad2 radiobutton group rad1.

selection-screen: begin of block blk1 with frame.

select-options: s_pernr for pa0000-pernr modif id ABC.

selection-screen: end of block blk1.

selection-screen: begin of block blk2 with frame.

select-options: s_stat2 for pa0000-stat2 modif id DEF.

select-options: s_werks for pa0001-werks modif id DEF.

selection-screen: end of block blk2.

AT SELECTION-SCREEN output.

LOOP AT SCREEN.

IF SCREEN-GROUP1 = 'ABC'.

IF p_rad1 = 'X'.

SCREEN-ACTIVE = 1.

ELSE.

SCREEN-ACTIVE = 0.

ENDIF.

MODIFY SCREEN.

ENDIF.

IF SCREEN-GROUP1 = 'DEF'.

IF p_rad2 = 'X'.

SCREEN-ACTIVE = 1.

ELSE.

SCREEN-ACTIVE = 0.

ENDIF.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

*Note: the above code is to hide or unhide the select-options.

• To enable or disable the select options use

• SCREEN-INPUT = 1 and SCREEN-INPUT = 0.

Message was edited by:

Velangini Showry Maria Kumar Bandanadham

[hymavathi_oruganti]

this should be done under

for the radiobutton declaration

ex: parameter p ... radiobutton <b>user-command ucomm.</b>

addition of user-command is a must.

AT SELECTION SCREEN OUTPUT.

loop at screen.

if p = 'x'

........

modify screen.

else

....

modify screen.

endloop.

[Former Member]

hi,

these are two radio buttons accordingly screen changes.

PARAMETERS:d_zvtlm RADIOBUTTON GROUP g1 USER-COMMAND r DEFAULT 'X',

d_vmast RADIOBUTTON GROUP g1.

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

PARAMETER: z_srvpos LIKE zmsd_trreg-srvpos MODIF ID abc.

SELECT-OPTIONS: z_idate FOR zmsd_trreg-idate MODIF ID abc,

z_azone FOR zmsd_trreg-azone MODIF ID abc.

PARAMETER: srvpos_n LIKE zmsd_trreg-srvpos MODIF ID abc .

SELECTION-SCREEN:END OF BLOCK b1.

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

PARAMETERS:

d_srvpos LIKE zmsd_vmast-srvpos MODIF ID xyz.

PARAMETER: srvpos_d LIKE zmsd_vmast-srvpos MODIF ID xyz.

SELECTION-SCREEN:END OF BLOCK b2.

AT SELECTION-SCREEN OUTPUT.

IF d_zvtlm EQ 'X'.

LOOP AT SCREEN .

IF screen-group1 = 'XYZ'.

screen-active = '0' .

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ELSE.

LOOP AT SCREEN .

IF screen-group1 = 'ABC'.

screen-active = '0' .

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ENDIF.

[Former Member]

Hi,

Check the below code

*  &---------------------------------------------------------------------*
*  & Report  ZMMS_RADIO                                                  *
*  &                                                                     *
*  &---------------------------------------------------------------------*
*  &                                                                     *
*  &                                                                     *
*  &---------------------------------------------------------------------*

  REPORT  zmms_radio                              .



  SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-033.
  PARAMETERS :
  rb_app    RADIOBUTTON GROUP fil DEFAULT 'X' USER-COMMAND u1,
  rb_pre     RADIOBUTTON GROUP fil.
  SELECTION-SCREEN END OF BLOCK b1 .

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

  PARAMETERS : p_upload  LIKE rlgrap-filename OBLIGATORY DEFAULT
                                  'C:'  MODIF ID f1,

               p_file1 LIKE filename-pathintern OBLIGATORY
                     DEFAULT 'Z_CELESTICA_UPLOAD' MODIF ID f2,
               p_fl1_nm LIKE rlgrap-filename OBLIGATORY
                     DEFAULT 'UPLOAD.TXT' MODIF ID f2.
*               p_appl LIKE rlgrap-filename NO-DISPLAY.


  SELECTION-SCREEN END OF BLOCK b2 .

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


  PARAMETERS:

      p_dwload LIKE rlgrap-filename OBLIGATORY DEFAULT 'C:' MODIF ID f1,
      p_err1 LIKE filename-pathintern OBLIGATORY
             DEFAULT 'Z_CELESTICA_UPLOAD' MODIF ID f2,
      p_er_nm LIKE rlgrap-filename OBLIGATORY
             DEFAULT 'ERR.TXT' MODIF ID f2.
*      p_appldw LIKE rlgrap-filename NO-DISPLAY.

  SELECTION-SCREEN END OF BLOCK b3 .



  AT SELECTION-SCREEN OUTPUT.
    LOOP AT SCREEN.
      IF rb_app = 'X' AND screen-group1 = 'F1'.
        screen-output = 0.
        screen-active = 0.
        screen-input = 0.
      ELSEIF rb_pre = 'X' AND screen-group1 = 'F2'.
        screen-output = 0.
        screen-active = 0.
        screen-input = 0.
      ENDIF.


*      IF RB_TEST = 'X' AND SCREEN-GROUP1 = 'XYZ'.
*
*        SCREEN-INPUT  = 0.
*      ENDIF.
      MODIFY SCREEN.
    ENDLOOP.

*  F4 Functionality for Upload File to enable user to choose file
  AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_upload.

    CALL FUNCTION 'F4_FILENAME'
     EXPORTING
       program_name        = syst-cprog
       dynpro_number       = syst-dynnr
*      FIELD_NAME          = ' '
*    IMPORTING
*      FILE_NAME           =
              .

*  F4 Functionality for Download File to enable user to choose file

  AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_dwload.

    CALL FUNCTION 'F4_FILENAME'
     EXPORTING
       program_name        = syst-cprog
       dynpro_number       = syst-dynnr
*     FIELD_NAME          = ' '
*   IMPORTING
*     FILE_NAME           =
              .

<b><REMOVED BY MODERATOR></b>

Thanks,

Manjunath MS

Message was edited by:

Alvaro Tejada Galindo

[Former Member]

Hi,

Use this code this might solve your problem

tables: ekko.

PARAMETERS: SP_OPT1 RADIOBUTTON GROUP G1 USER-COMMAND

RAC DEFAULT 'X',

SP_OPT2 RADIOBUTTON GROUP G1.

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

SELECT-OPTIONS: SO_KDATE FOR EKKO-KDATE.

SELECTION-SCREEN: END OF BLOCK B2.

SELECTION-SCREEN: BEGIN OF BLOCK B3 WITH FRAME TITLE TEXT-003.

PARAMETERS: SP_VAL TYPE P DECIMALS 2. "Remaining Percentage

SELECTION-SCREEN: END OF BLOCK B3.

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

IF SP_OPT1 = 'X' AND SCREEN-NAME = 'SP_VAL'.

SCREEN-INPUT = '0'.

ELSEIF SP_OPT2 = 'X'

AND ( SCREEN-NAME = 'SO_KDATE-LOW'

OR SCREEN-NAME = 'SO_KDATE-HIGH' ).

SCREEN-INPUT = '0'.

ENDIF.

MODIFY SCREEN .

ENDLOOP.

Regards,

Sri

[Former Member]

hai ravi,

go through this.

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

PARAMETERS: rd1 RADIOBUTTON GROUP g1 default 'X' USER-COMMAND rd,

rd2 RADIOBUTTON GROUP g1,

rd3 RADIOBUTTON GROUP g1.

SELECTION-SCREEN: END OF BLOCK b1.

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

PARAMETERS: p_werks(10) MODIF ID m1,

p_lgort(10) MODIF ID m2,

p_lgnum(10) MODIF ID m3,

p_lgtyp(10) MODIF ID m4,

p_lgpla(10) MODIF ID m5,

p_matnr(10) MODIF ID m6,

p_dispo(10) MODIF ID m7,

p_kunnr(10) MODIF ID m8.

SELECTION-SCREEN: END OF BLOCK b2.

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

IF rd1 = 'X'.

IF ( screen-group1 = 'M8' ).

screen-invisible = 1.

screen-active = 0.

MODIFY SCREEN.

ENDIF.

ENDIF.

IF rd2 = 'X'.

IF ( screen-group1 = 'M2' ) OR ( screen-group1 = 'M3' ) OR

( screen-group1 = 'M4' ) OR ( screen-group1 = 'M5' ).

screen-invisible = 1.

screen-active = 0.

MODIFY SCREEN.

ENDIF.

ENDIF.

IF rd3 = 'X'.

IF ( screen-group1 = 'M2' ) OR ( screen-group1 = 'M3' ) OR

( screen-group1 = 'M4' ) OR ( screen-group1 = 'M5' ) OR

( screen-group1 = 'M8' ).

screen-invisible = 1.

screen-active = 0.

MODIFY SCREEN.

ENDIF.

ENDIF.

ENDLOOP.

<b>please reward points if helpfull</b>

with regards,

radhika kolluru.

[Former Member]

Thank Q the problem was solved

[Former Member]

Problem was solved

[Former Member]

hi ravi,

Thanks for u'r points.

withr regards,

radhika kolluru.