前言

????????在ABAP ALV中，使用fieldcat來定義列表中每個字段的顯示屬性，包括圖標（Icon）的顯示。圖標可以在ALV列表中為特定列的行或標題添加圖形元素，以增強視覺提示或傳達附加信息。

ICON查詢

????????圖標的名稱用事務碼”ICON“進入后,第二列就是圖標代碼，可根據需要進行選擇。

? ? 實戰

????????展示效果

? ? ? ? ? ? 完整代碼

DATA:BEGIN OF gs_spfli  .INCLUDE TYPE spfli.
DATA   icon_folder(4) TYPE  c.
DATA
END OF gs_spfli.DATA: gt_fieldcat TYPE TABLE OF lvc_s_fcat WITH HEADER LINE,gs_layout TYPE  lvc_s_layo.DATA: gt_data LIKE TABLE OF gs_spfli WITH HEADER LINE.DATA: gs_style TYPE lvc_s_styl,gt_style TYPE lvc_t_styl.START-OF-SELECTION.PERFORM f_getdata.PERFORM f_catalog.PERFORM f_alvshow.FORM f_getdata .SELECT * INTO CORRESPONDING FIELDS OF TABLE gt_data FROM spfli.LOOP AT gt_data.IF gt_data-carrid = 'AA'.IF gt_data-carrid = 'AA'.gt_data-icon_folder = ICON_CHECKED.ELSE.gt_data-icon_folder = ICON_INCOMPLETE.ENDIF.MODIFY gt_data.ENDLOOP.
ENDFORM.                    " F_GETDATAFORM f_catalog .CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'EXPORTING
*     I_BUFFER_ACTIVE        =i_structure_name       = 'SPFLI'
*     I_CLIENT_NEVER_DISPLAY = 'X'
*     I_BYPASSING_BUFFER     =
*     I_INTERNAL_TABNAME     =CHANGINGct_fieldcat            = gt_fieldcat[]EXCEPTIONSinconsistent_interface = 1program_error          = 2OTHERS                 = 3.IF sy-subrc <> 0.MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgnoWITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.ENDIF.CLEAR gt_fieldcat.gt_fieldcat-fieldname  = 'ICON_FOLDER'.gt_fieldcat-scrtext_l  = 'ICON' .gt_fieldcat-icon       = 'X' .      "啟用圖標APPEND gt_fieldcat.*對layout設置可編輯信息內表gs_layout-zebra = 'X'.gs_layout-cwidth_opt = 'X'.
ENDFORM.                    " F_CATALOGFORM f_alvshow .CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'EXPORTINGi_callback_program = sy-repidis_layout_lvc      = gs_layoutit_fieldcat_lvc    = gt_fieldcat[]TABLESt_outtab           = gt_data[].
ENDFORM.                    " F_ALVSHOW

?????????