topic at selection screen. in Application Development and Automation Discussions

at selection screen.

former_member156446 — Fri, 30 Jan 2009 18:14:31 GMT

I have radio buttons on my selection screen.... based on the selection the comment should change...

SELECTION-SCREEN BEGIN OF LINE.

PARAMETER: p_grid TYPE c RADIOBUTTON GROUP g1,

p_list TYPE c RADIOBUTTON GROUP g1.

SELECTION-SCREEN COMMENT 58(10) comment.

SELECTION-SCREEN END OF LINE.

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

IF p_grid = 'X'.

comment = 'GRID'.

ELSE.

comment = 'LIST'.

ENDIF.

MODIFY SCREEN.

ENDLOOP.

Re: at selection screen.

Former Member — Fri, 30 Jan 2009 18:19:00 GMT

Try this

SELECTION-SCREEN BEGIN OF LINE.
PARAMETER: p_grid TYPE c RADIOBUTTON GROUP g1 DEFAULT 'X' USER-COMMAND AAA,
           p_list TYPE c RADIOBUTTON GROUP g1.
SELECTION-SCREEN COMMENT 58(10) comment.
SELECTION-SCREEN END OF LINE.

AT SELECTION-SCREEN OUTPUT.
  IF p_grid = 'X'.
    comment = 'GRID'.
  ELSE.
    comment = 'LIST'.
  ENDIF.

Max

Re: at selection screen.

former_member156446 — Fri, 30 Jan 2009 18:23:40 GMT

Thanks.. solved

SELECTION-SCREEN BEGIN OF LINE.
PARAMETER: p_grid TYPE c RADIOBUTTON GROUP g1 DEFAULT 'X' USER-COMMAND a,
           p_list TYPE c RADIOBUTTON GROUP g1.
SELECTION-SCREEN COMMENT 28(10) comment MODIF ID a.
SELECTION-SCREEN COMMENT 17(10) comment1 MODIF ID b.
SELECTION-SCREEN END OF LINE.

AT SELECTION-SCREEN OUTPUT.
  LOOP AT SCREEN.
    IF screen-group1 = 'A' AND p_grid = ' '.
      comment = 'GRID'.
    ELSEIF screen-group1 = 'B'.
      comment = 'LIST'.
    ENDIF.
    MODIFY SCREEN.
  ENDLOOP.

Re: at selection screen.

Former Member — Fri, 30 Jan 2009 18:32:01 GMT

Hi,

Try this way...

REPORT zka51151_test.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETER:
p_grid TYPE c RADIOBUTTON GROUP g1 default 'X' USER-COMMAND qwe,
p_list TYPE c RADIOBUTTON GROUP g1.
SELECTION-SCREEN COMMENT 58(10) comment.
SELECTION-SCREEN END OF LINE.

AT SELECTION-SCREEN OUTPUT.
  LOOP AT SCREEN.
    IF p_grid = 'X'.
      comment = 'GRID'.
    ELSE.
      comment = 'LIST'.
    ENDIF.
    MODIFY SCREEN.
  ENDLOOP.

INITIALIZATION.
  IF p_grid = 'X'.
    comment = 'GRID'.
  ELSE.
    comment = 'LIST'.
  ENDIF.