Google Search - Blog...........

ABAP - SALV List With Check Box

* This is a simple report for displaying check box with class cl_salv_table

REPORT ztest.

INCLUDE .
INCLUDE .
INCLUDE .

TYPES: BEGIN OF ty_mara,
checkbox TYPE sap_bool,
matnr TYPE mara-matnr,
meins TYPE mara-meins,
mtart TYPE mara-mtart,
t_celltype TYPE salv_t_int4_column,
END OF ty_mara.

DATA : lt_celltype TYPE salv_t_int4_column,
ls_celltype TYPE salv_s_int4_column.

DATA: lr_columns TYPE REF TO cl_salv_columns_table,
lr_column TYPE REF TO cl_salv_column_table.

CONSTANTS: gc_true TYPE sap_bool VALUE 'X'.

DATA : gr_layout TYPE REF TO cl_salv_layout,
gr_layout_key TYPE salv_s_layout_key,
ls_layout TYPE salv_s_layout,
lt_layout_info TYPE salv_t_layout_info.

DATA: it_mara TYPE TABLE OF ty_mara,
wa_mara TYPE ty_mara,
it_table TYPE REF TO cl_salv_table.

*----------------------------------------------------------------------*
* start of selection
*----------------------------------------------------------------------*
START-OF-SELECTION.

SELECT matnr
meins
mtart
FROM mara
INTO CORRESPONDING FIELDS OF TABLE it_mara
UP TO 10 ROWS.

END-OF-SELECTION.

LOOP AT it_mara INTO wa_mara.
wa_mara-checkbox = 'X'.

MODIFY it_mara FROM wa_mara.
ENDLOOP.

TRY.
cl_salv_table=>factory(
EXPORTING list_display = 'X'
IMPORTING
r_salv_table = it_table
CHANGING
t_table = it_mara ).
CATCH cx_salv_msg.
ENDTRY.

DATA: lr_functions TYPE REF TO cl_salv_functions.

lr_functions = it_table->get_functions( ).

lr_functions->set_all( gc_true ).

lr_columns = it_table->get_columns( ).
lr_columns->set_optimize( gc_true ).

TRY.
lr_column ?= lr_columns->get_column( 'CHECKBOX' ).
lr_column->set_cell_type( if_salv_c_cell_type=>checkbox ).
lr_column->set_long_text( 'Check Box' ).

CATCH cx_salv_not_found.
ENDTRY.


it_table->display( ).




No comments:

Post a Comment