Selection Screen

[Former Member]

Hi All,

I need to create selection screen with one check box in the middle of the frame i created and two buttons execute and cancle on the next line to the checkbox in the frame.

means in the single frame i need to create first one checkbox in the centre of the box and then on the next line two push button with icon of execute and cancle in the frame.

please provide the code for it.

usefull code will be rewarded.

Thanks,

[Former Member]

Hi,

Check the help for selection screen commands as:

SELECTION SCREEN BEGIN OF LINE ...... END OF LINE.

This syntax will help you to place the checkbox at a definite place required by you and also you can create the buttons on the next line...

Regards,

Kunjal

[Former Member]

Hi,

U go through this report.....

REPORT ZBA_CHKBOX_IN_OUTPUT NO STANDARD PAGE HEADING.

TYPE-POOLS: slis.

TABLES: ZPROGMENU.

DATA: FLAG VALUE 1,

SEL,

WA_PROG LIKE ZPROGMENU.

DATA: lt_progmenu like ZPROGMENU OCCURS 0 WITH HEADER LINE,

lt_progmenu1 like ZPROGMENU OCCURS 0 WITH HEADER LINE,

lt_progmenu2 TYPE TABLE OF ZPROGMENU.

DATA : lt_listheader TYPE slis_t_listheader.

DATA: ls_line TYPE slis_listheader.

DATA : gv_toutdt TYPE prps-post1,

gv_touttm TYPE prps-post1.

• FOR ALV Display

DATA: gr_table TYPE REF TO cl_salv_table.

data: gr_funct type ref to cl_salv_functions.

data: gr_columns type ref to cl_salv_columns_table.

data: gr_column type ref to CL_SALV_COLUMN_table.

*****************TOP OF PAGE*****************************

TOP-OF-PAGE.

ULINE (135).

NEW-LINE.

WRITE : SY-VLINE, (3) TEXT-000 COLOR COL_HEADING,

SY-VLINE, (3) TEXT-001 COLOR COL_HEADING,

SY-VLINE, (20) TEXT-002 COLOR COL_HEADING,

SY-VLINE, (40) TEXT-003 COLOR COL_HEADING,

SY-VLINE, (40) TEXT-004 COLOR COL_HEADING,

SY-VLINE, (10) TEXT-005 COLOR COL_HEADING,

SY-VLINE.

NEW-LINE.

ULINE (135).

NEW-LINE.

*****************START OF SELECTION***********************

START-OF-SELECTION.

select * from ZPROGMENU INTO TABLE lt_progmenu.

DELETE lt_progmenu WHERE PROG IS INITIAL.

SORT lt_progmenu BY APPL TCODE PROG.

LOOP AT lt_progmenu.

PERFORM CHANGE_COLOR.

WRITE 😕 SY-VLINE,

SEL UNDER TEXT-000 AS CHECKBOX, 7 SY-VLINE,

(3) lt_progmenu-appl UNDER TEXT-001, SY-VLINE,

(20) lt_progmenu-tcode UNDER TEXT-002, SY-VLINE,

(40) lt_progmenu-prog UNDER TEXT-003, SY-VLINE,

(40) lt_progmenu-ltext UNDER TEXT-004, SY-VLINE,

(10) lt_progmenu-hit_rate UNDER TEXT-005, SY-VLINE.

ENDLOOP.

NEW-LINE.

WRITE: SY-ULINE(135).

*******************END-OF-SELECTION**************************

END-OF-SELECTION.

SET PF-STATUS 'GUISTAT'.

SET TITLEBAR 'ACN'.

AT USER-COMMAND.

CASE SY-UCOMM .

WHEN 'DISPLAY'.

DO.

CLEAR SEL.

CLEAR WA_PROG.

READ LINE SY-INDEX FIELD VALUE

SEL INTO SEL

lt_progmenu-appl INTO WA_PROG-APPL

lt_progmenu-tcode INTO WA_PROG-tcode

lt_progmenu-PROG INTO WA_PROG-PROG

lt_progmenu-ltext INTO WA_PROG-ltext

lt_progmenu-hit_rate INTO WA_PROG-hit_rate.

IF SY-SUBRC <> 0.

EXIT.

ENDIF.

IF SEL = 'x' OR SEL = 'X'.

MOVE-CORRESPONDING WA_PROG TO lt_progmenu1.

APPEND lt_progmenu1.

ENDIF.

ENDDO.

ENDCASE.

IF NOT lt_progmenu1 IS INITIAL.

lt_progmenu2[] = lt_progmenu1[].

TRY.

CALL METHOD cl_salv_table=>factory

IMPORTING

r_salv_table = gr_table

CHANGING

t_table = lt_progmenu2.

CATCH cx_salv_msg .

ENDTRY.

gr_table->display( ).

ENDIF.

CLEAR: SEL,lt_progmenu,lt_progmenu1,lt_progmenu2.

REFRESH: lt_progmenu,lt_progmenu1,lt_progmenu2.

[Former Member]

use this code

SELECTION-SCREEN : BEGIN OF BLOCK B1 WITH FRAME .

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN : POSITION 50 .

PARAMETERS : P1 AS CHECKBOX.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN PUSHBUTTON fmt name USER-COMMAND ucom.

SELECTION-SCREEN : SKIP.

SELECTION-SCREEN : END OF BLOCK B1 .

[Former Member]

Hi,

Use this code.....

SELECTION-SCREEN : BEGIN OF BLOCK A1 WITH FRAME .

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN : POSITION 30 .

PARAMETERS : p_checkbox AS CHECKBOX.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN PUSHBUTTON 2(10) button1 USER-COMMAND ucomm1.

SELECTION-SCREEN PUSHBUTTON 25(10) button2 USER-COMMAND ucomm2.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN : END OF BLOCK A1 .

Hope it will helps

[Former Member]

Hi,

try this short example and insert your own logic.

*

TABLES: SSCRFIELDS. "Felder auf Selektionsbildern

*

TYPE-POOLS: ICON.

*

*> define selection screen

************************************************************************

*

SELECTION-SCREEN: BEGIN OF BLOCK A01 WITH FRAME TITLE A01.

*

SELECTION-SCREEN: SKIP 4.

SELECTION-SCREEN: BEGIN OF LINE.

SELECTION-SCREEN: COMMENT 15(30) T_CHBOX.

PARAMETERS: P_CHBOX AS CHECKBOX.

SELECTION-SCREEN: END OF LINE.

SELECTION-SCREEN: SKIP 4.

*

SELECTION-SCREEN: END OF BLOCK A01.

*

SELECTION-SCREEN: BEGIN OF BLOCK A02 WITH FRAME TITLE A02.

*

SELECTION-SCREEN: SKIP.

SELECTION-SCREEN: BEGIN OF LINE.

SELECTION-SCREEN: PUSHBUTTON 30(30) START USER-COMMAND START

VISIBLE LENGTH 15.

SELECTION-SCREEN: END OF LINE.

*

SELECTION-SCREEN: SKIP.

SELECTION-SCREEN: BEGIN OF LINE.

SELECTION-SCREEN: PUSHBUTTON 30(30) CANCEL USER-COMMAND CANCEL

VISIBLE LENGTH 15.

SELECTION-SCREEN: END OF LINE.

*

SELECTION-SCREEN: END OF BLOCK A02.

*

************************************************************************

*

AT SELECTION-SCREEN.

*

CASE SSCRFIELDS-UCOMM.

WHEN 'START'.

MESSAGE I010 WITH 'Funktionstaste START gedruckt'.

WHEN 'CANCEL'.

MESSAGE I010 WITH 'Funktionstaste CANCEL gedruckt'.

ENDCASE.

*

************************************************************************

*

INITIALIZATION.

• Button in Dynpro

CALL FUNCTION 'ICON_CREATE'

EXPORTING

NAME = ICON_EXECUTE_OBJECT

TEXT = 'Start'

INFO = 'Report ausführen'

IMPORTING

RESULT = START

EXCEPTIONS

OTHERS = 0.

*

CALL FUNCTION 'ICON_CREATE'

EXPORTING

NAME = ICON_CANCEL

TEXT = 'Cancel'

INFO = 'Report abbrechen'

IMPORTING

RESULT = CANCEL

EXCEPTIONS

OTHERS = 0.

*

A01 = 'Checkbox'.

A02 = 'Buttons'.

T_CHBOX = 'Checkbox'.

*

************************************************************************

*

START-OF-SELECTION.

*

WRITE: / 'OK'.

*

END-OF-SELECTION.

*

************************************************************************

*

Regards, Dieter