topic SELECTION SCREEN in Application Development and Automation Discussions

SELECTION SCREEN

srinivasa_reddy5 — Sun, 10 Dec 2006 07:16:37 GMT

HI,

HOW WE CAN ADD PUSH BUTTON IN SELECTION SCREEN...... DO WE NEED TO USE ANY FUNCTION CODE.....

Re: SELECTION SCREEN

Former Member — Sun, 10 Dec 2006 07:25:16 GMT

Hi Reddy,

Check this HOW DO I series at the Link below..

http://www.planetsap.com/howdo_a.htm#PBUTTON

Hopefully it helps

Br,

Sri

Award points for helpful answers

Re: SELECTION SCREEN

anversha_s — Sun, 10 Dec 2006 07:26:46 GMT

hi,

chk a sample code.

SELECTION-SCREEN PUSHBUTTON /15(20) button1 USER-COMMAND EXEC1.
SELECTION-SCREEN PUSHBUTTON /15(20) button2 USER-COMMAND EXEC2.



."You can initialize the texts for the push-buttons at INITIALIZATION.


  CONCATENATE icon_green_light
              'Button 1'(029) INTO button1.


You can select the icon if needed,


AT SELECTION SCREEN.
  CASE sscrfields.
    WHEN 'EXEC1'.
       perform subroutine1.
    WHEN 'EXCE2'.
       perform subroutine2.
  ENDCASE.

Rgds

Anver

Re: SELECTION SCREEN

athavanraja — Sun, 10 Dec 2006 08:22:37 GMT

if you want it in the application toolbar you can do the following.

tables: sscrfields .
include <icon> .
include avwrtcxm .
data: itext like smp_dyntxt  .

selection-screen function key 1 .
parameters: user(50) lower case .

initialization .

itext-text = 'Logoff' .
itext-icon_id = '@15@' .
itext-icon_text = 'Icon Text' .
itext-quickinfo = 'Quick Info' .

move: itext to sscrfields-functxt_01 .

at selection-screen .
  if sscrfields-ucomm eq 'FC01' .
* do something when the button is clicked
endif .

Regards

Raja

Re: SELECTION SCREEN

Former Member — Sun, 10 Dec 2006 10:15:49 GMT

run this program.

TABLES SSCRFIELDS.

DATA FLAG.

SELECTION-SCREEN:

BEGIN OF SCREEN 500 AS WINDOW TITLE TIT,

BEGIN OF LINE,

PUSHBUTTON 2(10) BUT1 USER-COMMAND CLI1,

PUSHBUTTON 12(10) BUT2 USER-COMMAND CLI2,

END OF LINE,

BEGIN OF LINE,

PUSHBUTTON 2(10) BUT3 USER-COMMAND CLI3,

PUSHBUTTON 12(10) BUT4 USER-COMMAND CLI4,

END OF LINE,

END OF SCREEN 500.

AT SELECTION-SCREEN.

CASE SSCRFIELDS.

WHEN 'CLI1'.

FLAG = '1'.

WHEN 'CLI2'.

FLAG = '2'.

WHEN 'CLI3'.

FLAG = '3'.

WHEN 'CLI4'.

FLAG = '4'.

ENDCASE.

START-OF-SELECTION.

TIT = 'Four Buttons'.

BUT1 = 'Button 1'.

BUT3 = 'Button 3'.

BUT2 = 'Button 2'.

BUT4 = 'Button 4'.

CALL SELECTION-SCREEN 500 STARTING AT 10 10.

CASE FLAG.

WHEN '1'.

WRITE / 'Button 1 was clicked'.

WHEN '2'.

WRITE / 'Button 2 was clicked'.

WHEN '3'.

WRITE / 'Button 3 was clicked'.

WHEN '4'.

WRITE / 'Button 4 was clicked'.

WHEN OTHERS.

WRITE / 'No Button was clicked'.

ENDCASE.

<b>Example 2</b>

SELECTION-SCREEN BEGIN OF SCREEN 500.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN PUSHBUTTON 2(10) BUT1 USER-COMMAND CLI1.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF SCREEN 500.

INITIALIZATION.

BUT1 = 'CLICK'.

CALL SELECTION-SCREEN 500.

AT SELECTION-SCREEN.

CASE SY-UCOMM.

WHEN 'CLI1'.

write : 'Button clicked'.

ENDCASE.