topic Re: Radio button in Application Development and Automation Discussions

Radio button

Former Member — Mon, 15 Sep 2008 04:59:35 GMT

Hi Friends,

I have requirement like when i click on a radio button it should navigate to another screen. That is

I have two radio buttons. when i click on first radio button ir should remain in same screen. when I click on the second radio button it should move to second button. How can this be done. It would be helpful if u come up with some logic.

Thanks in advance.

Re: Radio button

Former Member — Mon, 15 Sep 2008 05:06:59 GMT

use call screen statement

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

PARAMETERS: R_DIRECT RADIOBUTTON GROUP G1 USER-COMMAND UCOM DEFAULT 'X',

R_DISC RADIOBUTTON GROUP G1 .

SELECTION-SCREEN:END OF BLOCK RADIOBUTTON.

AT SELECTION-SCREEN OUTPUT.

IF R_DISC = 'X' .

call screen 'screen number'

endif..

Regards

Anbu b

Re: Radio button

uwe_schieferstein — Mon, 15 Sep 2008 05:07:36 GMT

Hello

You can use the following option of the RADIOBUTTON statement:

... RADIOBUTTON GROUP group [USER-COMMAND fcode]

And this is what the ABAP keyword documentation says:

The addition USER-COMMAND can be used to assign a function code fcode to the first parameter in a radio button group. The function code fcode must be specified directly, and have a maximum length of 20 characters. To evaluate the function code, an interface work area of the structure SSCRFIELDS from the ABAP Dictionary must be declared using the statement TABLES. When the user selects any radio button of the radio button group on the selection screen, the runtime environment triggers the event AT SELECTION-SCREEN and transfers the function code fcode to the component ucomm of the interface work area sscrfields. If a function code used in the GUI status of the selection screen is specified for fcode, the selection screen processing is affected accordingly.

Regards

Uwe

Re: Radio button

Former Member — Mon, 15 Sep 2008 05:08:00 GMT

hi,

try like this..

if r1 eq 'X'.

write code..

endif.

if r1 eq 'X'.

call screen 200.

endif.

Regards,

Sathish Reddy.

Re: Radio button

Former Member — Mon, 15 Sep 2008 05:09:03 GMT

hi,

try like this..

if r1 eq 'X'.

write code..

endif.

if r2 eq 'X'. <----

call screen 200.

endif.

Regards,

Sathish Reddy.

Re: Radio button

Former Member — Mon, 15 Sep 2008 05:09:48 GMT

Hi suppose you have created two radio button named 'same' and 'navigate' and a 'execute' push button in pf-status in a screen (101).

now you select both button in screen and give a single right click .

it will ask for 'define radio-group'.click check box.

now in pai of screen .

module user command input.

case ok_code.

when 'EXECUTE'.

if same = 'X'.

call screen 101.

endif.

if navigate = 'X'.

call screen 102."navigation screen

endif

endcase.

hope it will help you.

Re: Radio button

Former Member — Mon, 15 Sep 2008 05:24:02 GMT

Hi,

plz try this way :

PARAMETERS: rad1 RADIOBUTTON GROUP rad DEFAULT 'X',

rad2 RADIOBUTTON GROUP rad.

AT SELECTION-SCREEN.

IF RAD1 = 'X'.

CALL SCREEN 1000.

ELSE.

CALL SCREEN 2000.

ENDIF.

thanx.

Re: Radio button

Former Member — Mon, 15 Sep 2008 05:31:33 GMT

Hi Bhuvneshwari,

I m sending u a report i hope it may be helpfull for u.

&----

*& Report ZDTK_FI_CRDB

&----

*& AUTHOR : D TARUN KUMAR

*& FUNC CONSULTANT : ABDUL GANI

*& TRANSPORT REQ NO. : RD1K902195

*& PACKAGE : ZTARUN

*& TRANSACTION CODE : ZCRDB

&----

*& DESCRIPTION : CREDIT DEBIT NOTE FOR CUSTOMER OR VENDOR.

&----

REPORT ZDTK_FI_CRDB NO STANDARD PAGE HEADING

LINE-COUNT 65(5)

LINE-SIZE 80

MESSAGE-ID ZTAR_FI

&----

*& STRUCTURE DECLARATION

&----

TYPES : BEGIN OF TY_ADDR,

BUKRS TYPE BUKRS, "COMPANY CODE

LIFNR TYPE LIFNR, "VENDOR NO

KUNNR TYPE KUNNR, "CUSTOMJER NO

NAME1 TYPE NAME1, "NAME1

NAME2 TYPE NAME2, "NAME2

ORT01 TYPE ORT01, "CITY

ORT02 TYPE ORT02,

PSTLZ TYPE PSTLZ, "POSTAL CODE

STRAS TYPE STRAS, "STREET

ADRNR TYPE ADRNR, "ADDRESS NO

TELF1 TYPE TELF1, "TELEFHONE NO

TELF2 TYPE TELF2, "TELEFHONE NO 2

TELFX TYPE TELFX, "FAX

END OF TY_ADDR,

BEGIN OF TY_LFA1,
KUNNR TYPE KUNNR, "CUSTOMJER NO
NAME1 TYPE NAME1, "NAME1
NAME2 TYPE NAME2, "NAME2
ORT01 TYPE ORT01, "CITY
ORT02 TYPE ORT02,
PSTLZ TYPE PSTLZ, "POSTAL CODE
STRAS TYPE STRAS, "STREET
ADRNR TYPE ADRNR, "ADDRESS NO
TELF1 TYPE TELF1, "TELEFHONE NO
TELF2 TYPE TELF2, "TELEFHONE NO 2
TELFX TYPE TELFX, "FAX
END OF TY_LFA1,

BEGIN OF TY_DOCM,

GJAHR TYPE GJAHR,

BELNR TYPE BELNR_D,

BUDAT TYPE BUDAT,

BLDAT TYPE BLDAT,

BLART TYPE BLART,

BSCHL TYPE BSCHL,

SHKZG TYPE SHKZG,

XBLNR TYPE XBLNR,

DMBTR TYPE DMBTR,

SGTXT TYPE SGTXT,

REBZG TYPE REBZG,

REBZJ TYPE REBZJ,

KUNNR TYPE KUNNR,

LIFNR TYPE LIFNR,

END OF TY_DOCM.

&----

*& TABLE DECLARATION

&----

DATA : T_ADDR TYPE STANDARD TABLE OF TY_ADDR,

&----

*& WORK AREA DECLARATION

&----

W_ADDR TYPE TY_ADDR,

W_DOCM TYPE TY_DOCM,

W_LFA1 TYPE TY_LFA1,

&----

*& GLOBLE VARIABLE DECLARATION

&----

G_KUNNR TYPE KUNNR,

G_LIFNR TYPE LIFNR,

DCAMT TYPE DMBTR.

&----

*& INITIALIZATION

&----

INITIALIZATION.

CLEAR :

*REFRESH :

&----

*& SELECTION SCREEN DECLARATION

&----

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

SELECTION-SCREEN SKIP 1.

PARAMETERS : S_BUKRS TYPE BSID-BUKRS OBLIGATORY DEFAULT '1000'.

PARAMETERS : S_BELNR TYPE BELNR_D OBLIGATORY DEFAULT '1600000070'.

PARAMETERS : S_GJAHR TYPE GJAHR OBLIGATORY DEFAULT '2008'.

PARAMETERS : ASON TYPE BUDAT OBLIGATORY DEFAULT SY-DATUM.

PARAMETERS : S_KUNNR TYPE KUNNR MODIF ID GP1.

PARAMETERS : S_LIFNR TYPE LIFNR MODIF ID GP2.

SELECTION-SCREEN SKIP 1.

SELECTION-SCREEN : END OF BLOCK B1.

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

SELECTION-SCREEN SKIP 1.

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS R1 RADIOBUTTON GROUP RAO DEFAULT 'X' USER-COMMAND hit.

SELECTION-SCREEN COMMENT (50) TEXT-003 FOR FIELD R1.

PARAMETERS R2 RADIOBUTTON GROUP RAO.

SELECTION-SCREEN COMMENT (50) TEXT-004 FOR FIELD R2.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN SKIP 1.

SELECTION-SCREEN END OF BLOCK B2.

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

*SELECTION-SCREEN SKIP 1.

*SELECTION-SCREEN BEGIN OF LINE.

*PARAMETERS R3 RADIOBUTTON GROUP RAJ DEFAULT 'X' USER-COMMAND hit.

*SELECTION-SCREEN COMMENT (50) TEXT-006 FOR FIELD R1.

*PARAMETERS R4 RADIOBUTTON GROUP RAJ.

*SELECTION-SCREEN COMMENT (50) TEXT-007 FOR FIELD R2.

*SELECTION-SCREEN END OF LINE.

*SELECTION-SCREEN SKIP 1.

*SELECTION-SCREEN : END OF BLOCK B3.

&----

*& AT SELECTION SCREEN

&----

AT SELECTION-SCREEN.

PERFORM VALIDATE_SELECTION.

&----

*& AT SELECTION SCREEN OUTPUT

&----

AT SELECTION-SCREEN OUTPUT.

PERFORM SCREEN_OUTPUT.

&----

*& START OF SELECTION

&----

START-OF-SELECTION.

IF R1 = 'X'.

PERFORM GET_DOCUMENT_L.

ELSEIF R2 = 'X'.

PERFORM GET_DOCUMENT_K.

ENDIF.

&----

*& END OF SELECTION

&----

END-OF-SELECTION.

PERFORM DISPLAY.

&----

*& TOP OF PAGE

&----

*TOP-OF-PAGE.

PERFORM PAGE_HEADER.

&----

*& Form VALIDATE_SELECTION

&----

text

----

form VALIDATE_SELECTION .

DATA : L_BUKRS TYPE BSID-BUKRS.

SELECT SINGLE BUKRS FROM KNB1

INTO L_BUKRS

WHERE BUKRS = S_BUKRS.

*IF SY-SUBRC <> 0.

*MESSAGE E001.

*LEAVE LIST-PROCESSING.

*ENDIF.

DATA : L_KUNNR TYPE BSID-KUNNR.

SELECT SINGLE KUNNR FROM BSID

INTO L_KUNNR

WHERE KUNNR = S_KUNNR.

*IF SY-SUBRC <> 0.

*MESSAGE E002.

*LEAVE LIST-PROCESSING.

*ENDIF.

endform. " VALIDATE_SELECTION

&----

*& Form SCREEN_OUTPUT

&----

text

----

form SCREEN_OUTPUT .

IF R1 = 'X'.

LOOP AT SCREEN.

if screen-group1 = 'GP1'.

SCREEN-active = '0'.

*SCREEN-INTENSIFIED = '0'.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ELSE.

LOOP AT SCREEN.

IF SCREEN-group1 = 'GP2'.

SCREEN-active = '0'.

*SCREEN-INTENSIFIED = '1'.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ENDIF.

endform. " SCREEN_OUTPUT

&----

*& Form GET_DOCUMENT_L

&----

text

----

FORM GET_DOCUMENT_L .

DATA : MESSG(60).

SELECT SINGLE BUKRS

LIFNR

GJAHR

BELNR

BUDAT

BLDAT

BLART

BSCHL

SHKZG

DMBTR

SGTXT

REBZG

REBZJ FROM BSIK

INTO CORRESPONDING FIELDS OF W_DOCM

WHERE BUKRS = S_BUKRS AND

GJAHR = S_GJAHR AND

BELNR = S_BELNR.

SELECT SINGLE DMBTR FROM BSIK INTO DCAMT

WHERE BELNR = W_DOCM-REBZG AND

GJAHR = W_DOCM-REBZJ.

IF NOT W_DOCM IS INITIAL.

PERFORM GET_LFA1.

ELSE.

SELECT SINGLE BUKRS

LIFNR

GJAHR

BELNR

BUDAT

BLDAT

BLART

BSCHL

SHKZG

DMBTR

SGTXT

REBZG

REBZJ FROM BSAK

INTO CORRESPONDING FIELDS OF W_DOCM

WHERE BUKRS = S_BUKRS AND

GJAHR = S_GJAHR AND

BELNR = S_BELNR.

SELECT SINGLE DMBTR FROM BSAK INTO DCAMT

WHERE BELNR = W_DOCM-REBZG AND

GJAHR = W_DOCM-REBZJ.

IF NOT W_DOCM IS INITIAL.

PERFORM GET_LFA1.

ELSE.

CONCATENATE 'THERE IS NO DOCUMENT NO' S_BELNR S_GJAHR 'FOR VENDOR' INTO MESSG

SEPARATED BY SPACE.

MESSAGE I011 WITH MESSG.

LEAVE LIST-PROCESSING.

ENDIF.

ENDFORM. " GET_DOCUMENT_L

&----

*& Form GET_LFA1

&----

text

----

FORM GET_LFA1 .

SELECT SINGLE LIFNR

NAME1

NAME2

ORT01

ORT02

PSTLZ

STRAS

ADRNR

TELF1

TELF2

TELFX FROM LFA1 INTO CORRESPONDING FIELDS OF W_ADDR

WHERE LIFNR = W_DOCM-LIFNR.

ENDFORM. " GET_LFA1

&----

*& Form GET_DOCUMENT_K

&----

text

----

FORM GET_DOCUMENT_K .

DATA : MESSG(60).

SELECT SINGLE BUKRS

KUNNR

LIFNR

GJAHR

BELNR

BUDAT

BLDAT

BLART

BSCHL

SHKZG

DMBTR

SGTXT

REBZG

REBZJ FROM BSID

INTO CORRESPONDING FIELDS OF W_DOCM

WHERE BUKRS = S_BUKRS AND

GJAHR = S_GJAHR AND

BELNR = S_BELNR.

SELECT SINGLE DMBTR FROM BSID INTO DCAMT

WHERE BELNR = W_DOCM-REBZG AND

GJAHR = W_DOCM-REBZJ.

IF NOT W_DOCM IS INITIAL.

PERFORM GET_KNA1.

ELSE.

SELECT SINGLE BUKRS

KUNNR

LIFNR

GJAHR

BELNR

BUDAT

BLDAT

BLART

BSCHL

SHKZG

DMBTR

SGTXT

REBZG

REBZJ FROM BSAD

INTO CORRESPONDING FIELDS OF W_DOCM

WHERE BUKRS = S_BUKRS AND

GJAHR = S_GJAHR AND

BELNR = S_BELNR.

SELECT SINGLE DMBTR FROM BSAD INTO DCAMT

WHERE BELNR = W_DOCM-REBZG AND

GJAHR = W_DOCM-REBZJ.

IF NOT W_DOCM IS INITIAL.

PERFORM GET_KNA1.

ELSE.

CONCATENATE 'THERE IS NO DOCUMENT NO' S_BELNR S_GJAHR 'FOR CUSTOMER' INTO MESSG

SEPARATED BY SPACE.

MESSAGE I011 WITH MESSG.

LEAVE LIST-PROCESSING.

ENDIF.

ENDFORM. " GET_DOCUMENT_K

&----

*& Form GET_KNA1

&----

text

----

FORM GET_KNA1 .

SELECT SINGLE KUNNR

NAME1

NAME2

ORT01

ORT02

PSTLZ

STRAS

ADRNR

TELF1

TELF2

TELFX FROM KNA1 INTO CORRESPONDING FIELDS OF W_ADDR

WHERE KUNNR = W_DOCM-KUNNR.

ENDFORM. " GET_KNA1

&----

*& Form DISPLAY

&----

text

----

FORM DISPLAY .

LONG TEXT *************************

*DATA : BEGIN OF inline OCCURS 0,

*END OF inline.

*TYPES: BEGIN OF TY_LONGT,

tdformat TYPE tdformat,
tdline TYPE tdline,
END OF TY_LONGT.

*DATA : TLONGT TYPE STANDARD TABLE OF TY_LONGT,

WLONGT TYPE TY_LONGT.

DATA: BEGIN OF DTEXT OCCURS 50.

*DATA: MATNR LIKE PBIM-MATNR.

INCLUDE STRUCTURE TLINE.

DATA: END OF DTEXT.

DATA: BEGIN OF HTEXT.

INCLUDE STRUCTURE THEAD.

DATA: END OF HTEXT.

DATA: BEGIN OF LTEXT OCCURS 50.

INCLUDE STRUCTURE TLINE.

DATA: END OF LTEXT.

DATA: TNAME LIKE THEAD-TDNAME.

CONCATENATE S_BUKRS W_DOCM-BELNR S_GJAHR '002' INTO TNAME.

*SEPARATED BY SPACE.

DATA : W_STXL TYPE STXL.

SELECT SINGLE * FROM STXL INTO W_STXL

WHERE TDNAME = TNAME.

IF NOT W_STXL IS INITIAL.

*SELECT * FROM PBIM WHERE WERKS IN S_WERKS.

*MOVE PBIM-BDZEI TO TNAME.

CALL FUNCTION 'READ_TEXT'

EXPORTING

CLIENT = SY-MANDT

ID = W_STXL-TDID

LANGUAGE = W_STXL-TDSPRAS

NAME = TNAME

OBJECT = W_STXL-TDOBJECT

ARCHIVE_HANDLE = 0
LOCAL_CAT = ' '

IMPORTING

HEADER = HTEXT

TABLES

LINES = LTEXT

EXCEPTIONS
ID = 1
LANGUAGE = 2
NAME = 3
NOT_FOUND = 4
OBJECT = 5
REFERENCE_CHECK = 6
WRONG_ACCESS_TO_ARCHIVE = 7
OTHERS = 8

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

LOOP AT LTEXT.

IF LTEXT-TDLINE NE ''.

MOVE LTEXT-TDLINE TO DTEXT-TDLINE.

APPEND DTEXT.

ENDIF.

ENDLOOP.

ENDIF.

LONG TEXT *************************

CUSTOMER / VENDOR NO *************************

DATA : CUVE(10).

IF R1 = 'X'.

CUVE = W_ADDR-LIFNR.

ELSEIF R2 = 'X'.

CUVE = W_ADDR-KUNNR.

ENDIF.

CUSTOMER / VENDOR NO *************************

CR / DR DATA *************************

IF DCAMT IS INITIAL.

SELECT SINGLE DMBTR FROM BSIS INTO DCAMT

WHERE BELNR = W_DOCM-REBZG AND

GJAHR = W_DOCM-REBZJ .

( KOART = 'D' OR KOART = 'K' ).

ENDIF.

CR / DR DATA *************************

DATA: CNAME TYPE BUTXT.

SELECT SINGLE BUTXT FROM T001 INTO CNAME

WHERE BUKRS = S_BUKRS.

DATA : NAME(60),

STREET(60),

TELFX(60).

CONCATENATE W_ADDR-NAME1 W_ADDR-NAME2 INTO NAME

SEPARATED BY SPACE.

CONCATENATE W_ADDR-ORT01 W_ADDR-ORT02 'POSTAL CODE :' W_ADDR-PSTLZ INTO STREET

SEPARATED BY SPACE.

CONCATENATE 'Tel No.:' W_ADDR-TELF1 W_ADDR-TELF2 'FAX :' W_ADDR-TELFX INTO TELFX

SEPARATED BY SPACE.

DATA : CRDB(20),

CRDBA(16),

BALC TYPE DMBTR.

IF W_DOCM-SHKZG = 'S'.

CRDB = 'Debit Note No. :'.

CRDBA = 'DEBIT'.

BALC = DCAMT + W_DOCM-DMBTR.

ELSEIF W_DOCM-SHKZG = 'H'.

CRDB = 'Credit Note No. :'.

CRDBA = 'CREDIT'.

BALC = DCAMT - W_DOCM-DMBTR.

ENDIF.

SKIP 5.

*FORMAT INVERSE.

ULINE 03(77).

WRITE : 03 SY-VLINE, 80 '|',

/03 SY-VLINE, NAME, 54 'Party No.:' COLOR 7, CUVE COLOR 7, 80 '|',

/03 SY-VLINE, W_ADDR-STRAS, 80 '|',

/03 SY-VLINE, STREET, 80 '|',

/03 SY-VLINE, TELFX, 80 '|',

/03 SY-VLINE, 80 '|',

/03 SY-VLINE, 05 CNAME COLOR 2, 80 '|',

/03 SY-VLINE, 36 CRDB RIGHT-JUSTIFIED, 59 W_DOCM-BELNR, 71 W_DOCM-GJAHR, 80 '|',

/03 SY-VLINE, 58 'DATE :', W_DOCM-BUDAT, 80 '|',

/03 SY-VLINE, 80 '|'. ULINE 03(77).

WRITE : /03 SY-VLINE, 80 '|'.

IF NOT DTEXT IS INITIAL.

LOOP AT DTEXT.

WRITE : /03 SY-VLINE, 05 DTEXT-TDLINE COLOR 1, 80 '|'.

ENDLOOP.

ELSEIF W_DOCM-SGTXT NE ''.

WRITE : /03 SY-VLINE, 05 W_DOCM-SGTXT COLOR 1, 80 '|'.

ELSE.

WRITE : /03 SY-VLINE, 80 '|'.

ENDIF.

WRITE : /03 SY-VLINE, 80 '|',

*WRITE : /03 SY-VLINE, TNAME, 80 '|',

/03 SY-VLINE, 80 '|',

/03 SY-VLINE, 80 '|',

/03 SY-VLINE, 08 'WORKING OF INTEREST CALCULATION AS ON ' COLOR 4,

47 ASON COLOR 4, ' [ 360 DAYS BASIS ]' COLOR 4, 80 '|',

/03 SY-VLINE, 80 '|'. ULINE 03(77).

WRITE : /03 SY-VLINE, 11 'DATE', 23 'INVOICE', 41 CRDBA, 55 'BALANCE', 64 'DAYS', 70 'INTEREST', 80 '|',

/03 SY-VLINE, 23 ' AMOUNT', 41 'AMOUNT', 55' AMOUNT', 70 ' @ 8.00% ', 80 '|',

/03 SY-VLINE, 80 '|'. ULINE 03(77).

WRITE : /03 SY-VLINE, 80 '|',

/03 SY-VLINE, 06 W_DOCM-BUDAT, 15 DCAMT, 32 W_DOCM-DMBTR, 47 BALC, 80 '|',

/03 SY-VLINE, 80 '|',

/03 SY-VLINE, 80 '|'. ULINE 03(77).

WRITE : /03 SY-VLINE, 80 '|',

/03 SY-VLINE, 80 '|',

/03 SY-VLINE, 10 'PREPARED BY', 35 'ACCOUNTANT', 60 'MANAGER', 80 '|',

/03 SY-VLINE, 80 '|',

/03 SY-VLINE, 80 '|'. ULINE 03(77).

ENDFORM. " DISPLAY

Re: Radio button

Former Member — Mon, 15 Sep 2008 05:54:40 GMT

I need that navigation in radio button to be done in module pool program and not in report program.

So please help out with this

Thanks in advance

Re: Radio button

Former Member — Mon, 15 Sep 2008 05:59:30 GMT

this is code for module pool.

you create a screen 101 in se80.

Hi suppose you have created two radio button named 'same' and 'navigate' and a 'execute' push button in pf-status in a screen (101).

now you select both button in screen and give a single right click .

it will ask for 'define radio-group'.click check box.

now in pai of screen .

module user command input.

case ok_code.

when 'EXECUTE'.

if same = 'X'.

call screen 101.

endif.

if navigate = 'X'.

call screen 102."navigation screen

endif

endcase.

hope it will help you.

Re: Radio button

Former Member — Mon, 15 Sep 2008 06:08:48 GMT

Hi Swathi

Thanks for ur logic . But the problem here is I dont have any button like the execute button. I have only two radio buttons and it should directly move to the other screen without clicking on any button.

Please help me with some logic to do so.

Re: Radio button

uwe_schieferstein — Mon, 15 Sep 2008 06:13:26 GMT

Hello

Given the ABAP keyword description a possible solution could look like this:


TABLES: SSCRFIELDS.



PARAMETERS:
  p_button1   RADIOBUTTON GROUP radi USER-COMMAND push,
  p_button2   RADIOBUTTON GROUP radi.


AT SELECTION-SCREEN.

  IF ( sscrfields-ucomm = 'PUSH' ).
    IF ( p_button2 = 'X' ).
      CALL SCREEN ...
      "CALL SELECTION-SCREEN ...
    ENDIF.
  ENDIF.
  CLEAR: sscrfields.

When the user chooses the second radiobutton ok-code 'PUSH' is executed and evaluated AT SELECTION-SCREEN.

Here you can call any required screen you like.

Regards

Uwe

Re: Radio button

Former Member — Mon, 15 Sep 2008 06:17:36 GMT

Hi if you dont want to use EXECUTE button .then write

CASE OK_CODE.

WHEN ' '.

and continue .

here you need to press ENTER button.

Re: Radio button

Former Member — Mon, 15 Sep 2008 06:41:14 GMT

Hi Friends,

I have requirement like when i click on a radio button it should navigate to another screen. That is

I have two radio buttons. when i click on first radio button ir should remain in same screen. when I click on the second radio button it should move to second button. How can this be done.

I am doing this in module pool program.

I need to know even without clicking the enter is it possible to navigate to next screen when i click on the radio button.

It would be helpful if u come up with some logic.

Thanks in advance.

Re: Radio button

Former Member — Mon, 15 Sep 2008 08:19:05 GMT

Hi ,

In PAi part u can write the following code.

if r1 = 'x'.

call screen 'same screen number'.

else if r2 = 'x'.

call screen 'the screen number which u want to display'.

endif.

I think this should work without any push /execute buttons.

please, check and let me know if you want further inputs.

Re: Radio button

Former Member — Tue, 16 Sep 2008 09:58:25 GMT

Thanks guys for ur valuable reply