topic Re: radio button code in Application Development and Automation Discussions

radio button code

Former Member — Fri, 27 Jul 2007 12:06:32 GMT

Hi All,

can anybody give me a sample code to use radio buttons in a classical report..

Thanks.

Sangeet.

Re: radio button code

Former Member — Fri, 27 Jul 2007 12:09:09 GMT

REPORT YCLASSREP NO STANDARD PAGE HEADING LINE-COUNT 20(4).

TABLES : KNA1, VBAK,VBAP,SSCRFIELDS.

DATA : BEGIN OF ITAB OCCURS 0,

KUNNR LIKE KNA1-KUNNR,

NAME1 LIKE KNA1-KUNNR,

END OF ITAB.

DATA : BEGIN OF JTAB OCCURS 0,

VBELN LIKE VBAK-VBELN,

ERDAT LIKE VBAK-ERDAT,

END OF JTAB.

DATA : BEGIN OF KTAB OCCURS 0,

POSNR LIKE VBAP-POSNR,

MATNR LIKE VBAP-MATNR,

END OF KTAB.

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

PARAMETERS : CUSTOMER RADIOBUTTON GROUP VAM,

SALES RADIOBUTTON GROUP VAM,

MATERIAL RADIOBUTTON GROUP VAM.

SELECTION-SCREEN END OF BLOCK B1.

SELECTION-SCREEN FUNCTION KEY 1.

SELECTION-SCREEN FUNCTION KEY 2.

INITIALIZATION.

SSCRFIELDS-FUNCTXT_01 = 'REPORT'.

SSCRFIELDS-FUNCTXT_02 = 'EXIT'.

AT SELECTION-SCREEN.

IF SSCRFIELDS-UCOMM = 'FC01'.

SSCRFIELDS-UCOMM = 'ONLI'.

ELSEIF

SSCRFIELDS-UCOMM = 'FC02'.

LEAVE PROGRAM.

ENDIF.

START-OF-SELECTION.

IF CUSTOMER = 'X'.

SELECT KUNNR NAME1 FROM KNA1 INTO TABLE ITAB.

LOOP AT ITAB.

WRITE 😕 ITAB-KUNNR, ITAB-NAME1.

ENDLOOP.

ELSEIF SALES = 'X'.

SELECT VBELN ERDAT FROM VBAK INTO TABLE JTAB.

LOOP AT JTAB.

WRITE 😕 JTAB-VBELN,JTAB-ERDAT.

ENDLOOP.

ELSE.

SELECT POSNR MATNR FROM VBAP INTO TABLE KTAB.

LOOP AT KTAB.

WRITE 😕 KTAB-POSNR, KTAB-MATNR.

ENDLOOP.

ENDIF.

Re: radio button code

Former Member — Fri, 27 Jul 2007 12:09:36 GMT

radio buttons are defined as parameters

Parameters p_id1 radiobutton group <group name>.

Parameters p_id2 radiobutton group <group name>.

use

AT SELECTION-SCREEN ON RADIOBUTTON GROUP radi

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.

regards

dinesh

Re: radio button code

Former Member — Fri, 27 Jul 2007 12:10:10 GMT

Hi,

try this:

PARAMETERS: P_1 RADIOBUTTON GROUP PRI2 DEFAULT 'X'.

PARAMETERS: P_2 RADIOBUTTON GROUP PRI2.

PARAMETERS: P_3 RADIOBUTTON GROUP PRI2.

START-OF-SELECTION.

if p_1 = 'X'. write: / 'P_1'. endif.

if p_2 = 'X'. write: / 'P_2'. endif.

if p_3 = 'X'. write: / 'P_3'. endif.

Regards, Dieter

Re: radio button code

Former Member — Fri, 27 Jul 2007 12:11:48 GMT

HI,

Refer the link,

http://help.sap.com/saphelp_nw04/helpdata/en/79/34a23dd9b511d1950e0000e8353423/content.htm

Re: radio button code

Former Member — Fri, 27 Jul 2007 12:50:35 GMT

Hi,

Pls chk the code.

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME.

PARAMETERS: R1 RADIOBUTTON GROUP RAD1 DEFAULT 'X',

R2 RADIOBUTTON GROUP RAD1,

R3 RADIOBUTTON GROUP RAD1.

SELECTION-SCREEN END OF BLOCK B1.

SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME.

PARAMETERS: R4 RADIOBUTTON GROUP RAD2 DEFAULT 'X',

R5 RADIOBUTTON GROUP RAD2,

R6 RADIOBUTTON GROUP RAD2.

SELECTION-SCREEN END OF BLOCK B2.

AT SELECTION-SCREEN ON RADIOBUTTON GROUP RAD1.

IF R1 = 'X'.

MESSAGE W040(HB).

ENDIF.

AT SELECTION-SCREEN ON RADIOBUTTON GROUP RAD2.

IF R4 = 'X'.

MESSAGE W040(HB).

ENDIF.

It might be helpful.

rgds

harris