SELECTION SCREEN PROBLEM

[vallamuthu_madheswaran2]

Hi Friends,

In my selection-screen i am using four radibuttons(RTGS, NEFT, BC, CC) and using two parameter(P_BRANCH, P_LOC).

if i select BC or CC then the branch is enable otherwise it is disabled.

my problem is, when I select the radio button and then i press enter button then it is working fine.

now i want, when i select the radion button, the parameter is automatically enabled or disabled. the coding is given below.

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

SELECTION-SCREEN BEGIN OF LINE .

SELECTION-SCREEN: COMMENT (10) TEXT-006 FOR FIELD RTGS.

PARAMETERS RTGS RADIOBUTTON GROUP TT DEFAULT 'X'.

SELECTION-SCREEN end OF LINE .

SELECTION-SCREEN BEGIN OF LINE .

SELECTION-SCREEN: COMMENT (10) TEXT-007 FOR FIELD NEFT.

PARAMETERS: NEFT RADIOBUTTON GROUP TT.

SELECTION-SCREEN end OF LINE .

SELECTION-SCREEN BEGIN OF LINE .

SELECTION-SCREEN: COMMENT (10) TEXT-005 FOR FIELD BC.

PARAMETERS: BC RADIOBUTTON GROUP TT .

SELECTION-SCREEN: COMMENT 15(11) TEXT-009 FOR FIELD P_LOC.

PARAMETERS: P_LOC like ZFI_ABN_LOC MODIF ID M2.

SELECTION-SCREEN end OF LINE .

SELECTION-SCREEN BEGIN OF LINE .

SELECTION-SCREEN: COMMENT (10) TEXT-004 FOR FIELD CC.

PARAMETERS: CC RADIOBUTTON GROUP TT .

SELECTION-SCREEN: COMMENT 15(11) TEXT-008 FOR FIELD P_BRANCH.

PARAMETERS: P_BRANCH like T001-LAND1 MODIF ID M1.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK A03.

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

IF ( NEFT EQ 'X' OR RTGS EQ 'X') AND SCREEN-GROUP1 = 'M1'.

CLEAR P_BRANCH. .

SCREEN-INPUT = 0 .

MODIFY SCREEN.

endif.

ENDLOOP.

LOOP AT SCREEN.

IF BC NE 'X' AND SCREEN-GROUP1 = 'M2'.

clear P_LOC.

SCREEN-INPUT = 0.

MODIFY SCREEN.

endif.

ENDLOOP.

AT SELECTION-SCREEN.

LOOP AT SCREEN.

IF ( NEFT EQ 'X' OR RTGS EQ 'X') AND SCREEN-GROUP1 = 'M1'.

CLEAR P_BRANCH.

SCREEN-INPUT = 0.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

LOOP AT SCREEN.

IF BC NE 'X' AND SCREEN-GROUP1 = 'M2'.

CLEAR P_LOC.

SCREEN-INPUT = 0.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

[Former Member]

Hi,

use the code in "AT SELECTION-SCREEN OUTPUT" event.

Regards,

Suresh

[vallamuthu_madheswaran2]

Hi suresh,

i am using at selection screen output only.

thanks & regards,

vallamuthu

[Former Member]

Hi

Just copy Paste this code and Execute it ..It is exactly to your requirement..

Report y_test.


SELECTION-SCREEN BEGIN OF BLOCK A03 WITH FRAME TITLE TEXT-003.
SELECTION-SCREEN BEGIN OF LINE .
SELECTION-SCREEN: COMMENT (10) TEXT-006 FOR FIELD RTGS.
PARAMETERS RTGS RADIOBUTTON GROUP TT user-command USR DEFAULT 'X'. "---------------> User command
SELECTION-SCREEN end OF LINE .

SELECTION-SCREEN BEGIN OF LINE .
SELECTION-SCREEN: COMMENT (10) TEXT-007 FOR FIELD NEFT.
PARAMETERS: NEFT RADIOBUTTON GROUP TT.
SELECTION-SCREEN end OF LINE .

SELECTION-SCREEN BEGIN OF LINE .
SELECTION-SCREEN: COMMENT (10) TEXT-005 FOR FIELD BC.
PARAMETERS: BC RADIOBUTTON GROUP TT .
SELECTION-SCREEN: COMMENT 15(11) TEXT-009 FOR FIELD P_LOC.
PARAMETERS: P_LOC(10)."  MODIF ID M2.
SELECTION-SCREEN end OF LINE .

SELECTION-SCREEN BEGIN OF LINE .
SELECTION-SCREEN: COMMENT (10) TEXT-004 FOR FIELD CC.
PARAMETERS: CC RADIOBUTTON GROUP TT .
SELECTION-SCREEN: COMMENT 15(11) TEXT-008 FOR FIELD P_BRANCH.
PARAMETERS: P_BRANCH like T001-LAND1." MODIF ID M1.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK A03.

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.
if screen-name eq 'P_BRANCH'.
IF BC NE 'X' and CC NE 'X'.
  SCREEN-INPUT = 0.
  MODIFY SCREEN.
endif.
endif.
ENDLOOP.

<b>The problem in you code is you need to put user command for the Radio button declaration

</b>

If any problems reply to this...

Regards Rk

Message was edited by:

Rk Pasupuleti

[Former Member]

hi

you have to use RADIOBUTTON USER COMMAND statement to perform it

http://help.sap.com/saphelp_nw2004s/helpdata/en/3d/c3b23782a9cc68e10000009b38f8cf/content.htm

thx

pavan

**pls reward if useful

[Former Member]

Hi,

Change the Screen-Input to 1 when you select the radio buttons other than BC and CC.

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

IF ( NEFT EQ 'X' OR RTGS EQ 'X') AND SCREEN-GROUP1 = 'M1'.

CLEAR P_BRANCH. .

SCREEN-INPUT = 1 .

MODIFY SCREEN.

endif.

ENDLOOP.

Regards,

Sharmila

Message was edited by:

Sharmila Subramanian

[Former Member]

change ur code liek this 

REPORT Z_ALV_LIST_BLOCK.

SELECTION-SCREEN BEGIN OF BLOCK A03 WITH FRAME TITLE TEXT-003.
SELECTION-SCREEN BEGIN OF LINE .
SELECTION-SCREEN: COMMENT (10) TEXT-006 FOR FIELD RTGS.
PARAMETERS RTGS RADIOBUTTON GROUP TT DEFAULT 'X'  user-command abc.
SELECTION-SCREEN END OF LINE .

SELECTION-SCREEN BEGIN OF LINE .
SELECTION-SCREEN: COMMENT (10) TEXT-007 FOR FIELD NEFT.
PARAMETERS: NEFT RADIOBUTTON GROUP TT.
SELECTION-SCREEN END OF LINE .

SELECTION-SCREEN BEGIN OF LINE .
SELECTION-SCREEN: COMMENT (10) TEXT-005 FOR FIELD BC.
PARAMETERS: BC RADIOBUTTON GROUP TT  .
SELECTION-SCREEN: COMMENT 15(11) TEXT-009 FOR FIELD P_LOC.
PARAMETERS: P_LOC LIKE ZFI_ABN_LOC MODIF ID M2.
SELECTION-SCREEN END OF LINE .

SELECTION-SCREEN BEGIN OF LINE .
SELECTION-SCREEN: COMMENT (10) TEXT-004 FOR FIELD CC.
PARAMETERS: CC RADIOBUTTON GROUP TT .
SELECTION-SCREEN: COMMENT 15(11) TEXT-008 FOR FIELD P_BRANCH.
PARAMETERS: P_BRANCH LIKE T001-LAND1 MODIF ID M1.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK A03.

AT SELECTION-SCREEN OUTPUT.

  LOOP AT SCREEN.
    IF ( NEFT EQ 'X' OR RTGS EQ 'X') AND SCREEN-GROUP1 = 'M1'.
      CLEAR P_BRANCH. .
      SCREEN-INPUT = 0 .
      MODIFY SCREEN.
    ENDIF.
  ENDLOOP.

  LOOP AT SCREEN.
    IF BC NE 'X' AND SCREEN-GROUP1 = 'M2'.
      CLEAR P_LOC.
      SCREEN-INPUT = 0.
      MODIFY SCREEN.
    ENDIF.
  ENDLOOP.

AT SELECTION-SCREEN.

  LOOP AT SCREEN.
    IF ( NEFT EQ 'X' OR RTGS EQ 'X') AND SCREEN-GROUP1 = 'M1'.
      CLEAR P_BRANCH.
      SCREEN-INPUT = 0.
      MODIFY SCREEN.
    ENDIF.
  ENDLOOP.

  LOOP AT SCREEN.
    IF BC NE 'X' AND SCREEN-GROUP1 = 'M2'.
      CLEAR P_LOC.
      SCREEN-INPUT = 0.
      MODIFY SCREEN.
    ENDIF.
  ENDLOOP.