Application Development Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 

regarding selection screen

Former Member
0 Kudos

hai can any one tell how to read the radio buttons on selection screen in on selection-screen on radio button group

very urgent

bye

afzal

1 ACCEPTED SOLUTION

Former Member
0 Kudos

Hi,

U have to read the radio buttons using

AT SELECTION-SCREEN ON RADIOBUTTON GROUP <radiobutton grp name>.

Regards,

Padmam.

4 REPLIES 4

Former Member
0 Kudos

Hi try this code,

data: begin of itab occurs 0,

matnr like mara-matnr,

maktx like maKT-maktx,

werks like marc-werks,

end of itab.

DATA: D_MATNR LIKE MARA-MATNR.

selection-screen: begin of block b1.

select-options: s_matnr for D_matnr.

PARAMETERS: mntd_plt RADIOBUTTON GROUP RAD1 DEFAULT 'X',

nmtd_plt RADIOBUTTON GROUP RAD1 .

selection-screen: end of block b1.

*at selection-screen.

START-OF-SELECTION.

SELECT MATNR FROM MARA INTO ITAB WHERE MATNR IN S_MATNR.

EXIT.

ENDSELECT.

if mntd_plt = 'X'.

PERFORM FETCH_MNTD.

ELSEIF NMTD_PLT = 'X'.

PERFORM FETCH_NMTD.

ENDIF.

*START-OF-SELECTION.

&----


*& Form FETCH_MNTD

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM FETCH_MNTD.

SELECT A~MATNR

B~MAKTX

C~WERKS INTO TABLE ITAB

FROM MARA AS A

JOIN MAKT AS B ON AMATNR = BMATNR

JOIN MARC AS C ON BMATNR = CMATNR

WHERE C~MATNR IN S_MATNR.

LOOP AT ITAB.

WRITE:/ ITAB-MATNR, ITAB-MAKTX, ITAB-WERKS.

ENDLOOP.

*APPEND ITAB.

*IF SY-SUBRC <> O.

*WRITE:/ ITAB-MATNR, ITAB-MAKTX,ITAB-WEERKS.

*ENDIF.

ENDFORM. " FETCH_MNTD

&----


*& Form FETCH_NMTD

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM FETCH_NMTD.

SELECT A~MATNR

B~MAKTX

C~WERKS INTO TABLE ITAB

FROM MARA AS A

JOIN MAKT AS B ON AMATNR = BMATNR

JOIN MARC AS C ON BMATNR = CMATNR

WHERE A~MATNR IN S_MATNR.

*WRITE:/ ITAB-MATNR, ITAB-MAKTX,ITAB-WEERKS.

*APPEND ITAB.

IF SY-SUBRC <> 0.

LOOP AT ITAB.

WRITE:/ ITAB-MATNR, ITAB-MAKTX,ITAB-WERKS.

ENDLOOP.

ENDIF.

ENDFORM. " FETCH_NMTD

Reward points if useful..

Regards

Nilesh

Former Member
0 Kudos
parameters : r1 radiobutton group rad user-command abc,
                   r2 radiobutton group rad.

at selection-screen output.
if r1 eq 'X'.
 
endif.

Former Member
0 Kudos

Hi,

U have to read the radio buttons using

AT SELECTION-SCREEN ON RADIOBUTTON GROUP <radiobutton grp name>.

Regards,

Padmam.

Former Member
0 Kudos

Hi Afzal,

Please refer this code :

*RADIO BUTTON DEFINITION

SELECTION-SCREEN BEGIN OF BLOCK BL2 WITH FRAME TITLE TEXT-456.

PARAMETERS PO RADIOBUTTON GROUP RADI USER-COMMAND R.

PARAMETERS P1 RADIOBUTTON GROUP RADI DEFAULT 'X'.

PARAMETERS P2 RADIOBUTTON GROUP RADI.

SELECTION-SCREEN END OF BLOCK BL2.

START-OF-SELECTION

IF P0 = 'X'.

DO THIS.i.e. ur logic

ELSEIF P1 = 'X'.

DO THIS.i.e. ur logic

ELSEIF P2 = 'X'.

DO THIS.i.e. ur logic

ENDIF.

Reward points if helpful.

Regards,

Hemant