REPORT  z17_22                                 .

 

include <icon>.

typesbegin of g_type_itab.
        include type sflight.
        types:   icon  type icon_d,
      end of g_type_itab.

data gt_itab    type table of g_type_itab.
data gs_itab    type g_type_itab.
data gr_table   type ref to cl_salv_table.

select * from sflight into table gt_itab
up to 25 rows.

loop at gt_itab into gs_itab.
    if gs_itab-seatsocc >= 90.
      gs_itab-icon = icon_locked.
    elseif gs_itab-seatsocc >= 50.
      gs_itab-icon = icon_message_warning.
else.
      gs_itab-icon = icon_unlocked.
    endif.

    modify gt_itab from gs_itab.
endloop.

cl_salv_table=>factory(
  importing
    r_salv_table = gr_table
  changing
    t_table      = gt_itab ).

data: lr_columns type ref to cl_salv_columns_table,
      lr_column  type ref to cl_salv_column_table.

lr_columns = gr_table->get_columns( ).
lr_column ?= lr_columns->get_column( 'ICON' ).
lr_column->set_icon( if_salv_c_bool_sap=>true ).
lr_column->set_long_text( 'ICON' ).

gr_table->display( ).

사이트운영 : http://sapjoy.co.kr  

저         서 : Easy ABAP, Plus ABAP

경         험 : SAP ABAP Tuning, SAP SCM(SD/PP/QM/PM/WM/APO)

자         격 : SAP SD / PP  / SAP ABAP Certification 등

메         일 : sapjoy@naver.com