Use of Icon in alv report

Question

Hi Experts,
    How to use icon in the ALV Report ...?
Suppose My Scenario is i have a Pending PR Report if any line item in the PR is Deleated i want to display delete icon
Please guide me on this....
any Kind help would be highly appricated.

Answer 1

Hello friend,
please try following codes, it works.
types: begin of gs_outtab.
   types:   lights               type char1,
            color                type i,
            tabcol               type lvc_t_scol,
            id                   type char25, " Already exist in ICON, Flat Structure
            name                 type icon-name,
            symbol               type icon-id,
       end   of gs_outtab.
data: gt_outtab type standard table of gs_outtab.
data: gr_grid   type ref to cl_gui_alv_grid.
data: gr_container type ref to cl_gui_custom_container,
      gs_layout type lvc_s_layo,
      gt_fieldcat type lvc_t_fcat.
data: ls_vari   type disvariant.
data: g_okcode type syucomm.
data: gt_exc type table of ALV_S_QINF.
data: text type string.
selection-screen begin of block gen with frame.
parameters:
p_amount type i default 20.
selection-screen end of block gen.
selection-screen begin of block dsp with frame.
parameters:
p_full   radiobutton group dsp,
p_grid   radiobutton group dsp.
selection-screen end of block dsp.
START-OF-SELECTION.
END-OF-SELECTION.
   perform select_data.
   IF p_full = 'X'.
     perform display_fullscreen.
   ELSE.
     perform display_grid.
   ENDIF.
STEP 1: load data *******************************************
form select_data.
  select * from icon into corresponding fields of table gt_outtab
           up to p_amount rows.
endform.
STEP2: build full screen **************************************
form display_fullscreen .
  data: ls_layout type slis_layout_alv,
        lt_fcat type slis_t_fieldcat_alv,
        ls_fcat type slis_fieldcat_alv.
      ls_layout-lights_tabname   = '1'.
      ls_layout-lights_fieldname = 'LIGHTS'.
      ls_layout-coltab_fieldname =  'TABCOL'.
      clear ls_fcat.
      ls_fcat-fieldname = 'LIGHTS'.
      ls_fcat-inttype = 'C'.
      ls_fcat-seltext_l = ls_fcat-seltext_m = ls_fcat-seltext_s = 'Lights'.
      append ls_fcat to lt_fcat.
      clear ls_fcat.
      ls_fcat-fieldname = 'COLOR'.
      ls_fcat-inttype = 'I'.
      ls_fcat-seltext_l = ls_fcat-seltext_m = ls_fcat-seltext_s = 'Color'.
      append ls_fcat to lt_fcat.
      clear ls_fcat.
      ls_fcat-fieldname = 'ID'.
      ls_fcat-inttype = 'C'.
      ls_fcat-seltext_l = ls_fcat-seltext_m = ls_fcat-seltext_s = 'Icon'.
      ls_fcat-icon = abap_true.
      append ls_fcat to lt_fcat.
      clear ls_fcat.
      ls_fcat-fieldname = 'SYMBOL'.
      ls_fcat-inttype = 'C'.
      ls_fcat-seltext_l = ls_fcat-seltext_m = ls_fcat-seltext_s = 'Symbol'.
      ls_fcat-symbol = abap_true.
      append ls_fcat to lt_fcat.
      clear ls_fcat.
      ls_fcat-fieldname = 'NAME'.
      ls_fcat-tech = abap_true.
      append ls_fcat to lt_fcat.
      perform select_data.
      perform set_tooltips.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
     IS_LAYOUT                         = ls_layout
     IT_FIELDCAT                       = lt_fcat
     IT_EXCEPT_QINFO                   = gt_exc
    TABLES
      T_OUTTAB                          = gt_outtab
   EXCEPTIONS
     PROGRAM_ERROR                     = 1
     OTHERS                            = 2
   ASSERT sy-subrc = 0.
endform.
STEP3: display grid ******************************************
form display_grid.
  call screen 100.
endform.
STEP4: PBO ***************************************************
module d0100_pbo output.
  perform d0100_pbo.
endmodule.
STEP5: PAI ***************************************************
module d0100_pai input.
  perform d0100_pai.
endmodule.
STEP6: PBO form ***********************************************
form d0100_pbo .
  set pf-status 'D0100'.
  if gr_container is not bound.
    create object gr_container
      exporting
        container_name = 'CONTAINER'.
    create object gr_grid
        exporting i_parent = gr_container.
  data: ls_layout type lvc_s_layo,
        lt_fcat type lvc_t_fcat,
        ls_fcat type lvc_s_fcat.
      ls_layout-excp_fname = 'LIGHTS'.
      ls_layout-ctab_fname =  'TABCOL'.
      clear ls_fcat.
      ls_fcat-fieldname = 'LIGHTS'.
      ls_fcat-inttype = 'C'.
      ls_fcat-scrtext_l = ls_fcat-scrtext_m = ls_fcat-scrtext_s = 'Lights'.
      append ls_fcat to lt_fcat.
      clear ls_fcat.
      ls_fcat-fieldname = 'COLOR'.
      ls_fcat-inttype = 'I'.
      ls_fcat-scrtext_l = ls_fcat-scrtext_m = ls_fcat-scrtext_s = 'Color'.
      append ls_fcat to lt_fcat.
      clear ls_fcat.
      ls_fcat-fieldname = 'ID'.
      ls_fcat-inttype = 'C'.
      ls_fcat-scrtext_l = ls_fcat-scrtext_m = ls_fcat-scrtext_s = 'Icon'.
      ls_fcat-icon = abap_true.
      append ls_fcat to lt_fcat.
      clear ls_fcat.
      ls_fcat-fieldname = 'SYMBOL'.
      ls_fcat-inttype = 'C'.
      ls_fcat-scrtext_l = ls_fcat-scrtext_m = ls_fcat-scrtext_s = 'Symbol'.
      ls_fcat-symbol = abap_true.
      append ls_fcat to lt_fcat.
      clear ls_fcat.
      ls_fcat-fieldname = 'NAME'.
      ls_fcat-tech = abap_true.
      append ls_fcat to lt_fcat.
  perform select_data.
  perform set_tooltips.
  data: lt_tooltips type lvc_t_qinf,
        lt_toolb type ui_functions,
        ls_toolb type UI_FUNC.
  ls_toolb = CL_GUI_ALV_GRID=>mc_fc_call_crbatch.
  append ls_toolb to lt_toolb.
  lt_tooltips = gt_exc.
  call method gr_grid->set_table_for_first_display
        exporting is_layout   = ls_layout
             it_except_qinfo  = lt_tooltips
             it_toolbar_excluding = lt_toolb
        changing
              it_fieldcatalog = lt_fcat
              it_outtab       = gt_outtab.
  endif.
endform.
STEP7: PAI form ******************************************************
form d0100_pai .
  case g_okcode.
    when 'BACK' or 'EXIT' or 'CANC'.
      set screen 0.
      leave screen.
  endcase.
endform.
STEP8: Set Tooltip *************************************************
FORM set_tooltips .
  field-symbols: <outtab> type gs_outtab.
  data: tooltips type ref to cl_salv_tooltips,
        settings type ref to cl_salv_functional_settings,
        ls_styl type lvc_s_styl,
        value type char128,
        text type char40,
        ls_symbol type icon,
        lt_symbol type standard table of icon,
        ls_exc type ALV_S_QINF,
        tabix type sy-tabix,
        col type lvc_s_scol.
  loop at gt_outtab assigning <outtab>.
    tabix = sy-tabix.
    read table lt_symbol index sy-tabix into ls_symbol.
    <outtab>-symbol = ls_symbol-id.
    value = <outtab>-id(3).
    text = <outtab>-name.
    concatenate value '\Q' text '@' into value.
    <outtab>-id = value.
    value = ls_symbol-id.
    text  = ls_symbol-name.
    ls_exc-type = cl_salv_tooltip=>c_type_symbol.
    ls_exc-value = value.
    ls_exc-text = text.
    append ls_exc to gt_exc.
    <outtab>-color = tabix mod 7 + 1.
    <outtab>-lights = tabix mod 3 + 1.
    col-fname = 'COLOR'.
    col-color-col = tabix mod 7 + 1.
    if tabix ge 7.
      col-color-inv = 1.
    endif.
    if tabix ge 14.
      col-color-int = 1.
    endif.
    append col to <outtab>-tabcol.
  endloop.
ENDFORM.