topic Re: regarding selection screen in Application Development and Automation Discussions

regarding selection screen

Former Member — Thu, 03 May 2007 11:29:52 GMT

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

Re: regarding selection screen

Former Member — Thu, 03 May 2007 11:31:51 GMT

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 A_{MATNR = B}MATNR

JOIN MARC AS C ON B_{MATNR = C}MATNR

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 A_{MATNR = B}MATNR

JOIN MARC AS C ON B_{MATNR = C}MATNR

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

Re: regarding selection screen

Former Member — Thu, 03 May 2007 11:31:57 GMT

parameters : r1 radiobutton group rad user-command abc,
                   r2 radiobutton group rad.

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

Re: regarding selection screen

Former Member — Thu, 03 May 2007 11:33:57 GMT

Hi,

U have to read the radio buttons using

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

Regards,

Padmam.

Re: regarding selection screen

Former Member — Thu, 03 May 2007 11:38:33 GMT

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