ICON display in ALV output

Question

Hi,
  I need to create a column that will have an icon ICON_DOCUMENT displayed in the column. Now, when i clik on this icon it should check for the existance of any links existing for a material , if so, then display those links . Basically this icon should dispaly the link to material drawings . How do i include the icon in the output column in ALV?
Thanks,
Sindhu.

Answer 1

hi,
Sample code is ::
report  zalvexer2  message-id zz                       .
*& TABLES DECLARATION                                                  *
tables: vbak.
*& TYPE POOLS DECLARATION                                              *
type-pools: slis.
*& INTERNAL TABLE DECLARATION                                          *
data: begin of itab occurs 0,
       icon type icon-id,
       vbeln like vbak-vbeln,
       audat like vbak-audat,
       vbtyp like vbak-vbtyp,
       auart like vbak-auart,
       augru like vbak-augru,
       netwr like vbak-netwr,
       waerk like vbak-waerk,
    end of itab.
*INTERNAL TABLE FOR FIELD CATALOG
data: wa_fieldcat type slis_fieldcat_alv,
    it_fieldcat type slis_t_fieldcat_alv.
IT_FIELDCAT TYPE STANDARD TABLE OF SLIS_FIELDCAT_ALV
           WITH HEADER LINE,
*INTERNAL TABLE FOR EVENTS
data:    it_event type slis_t_event,
      wa_event type slis_alv_event,
*INTERNAL TABLE FOR SORTING
      it_sort type slis_t_sortinfo_alv,
      wa_sort type slis_sortinfo_alv,
*INTERNAL TABLE FOR LAYOUT
      wa_layout type slis_layout_alv.
*& VARIABLE DECLARATION                                                *
data : v_repid type sy-repid,
       v_pagno(4) type n,
       v_date(8)  type c.
*& CONSTANTS                                                           *
constants: c_x type c value 'X'.
*& SELECTION SCREEN                                                    *
selection-screen: begin of block b1 with frame title text-001.
select-options: s_vbeln for vbak-vbeln,
                s_vbtyp for vbak-vbtyp default 'C'.
selection-screen: end of block b1.
selection-screen: begin of block b2 with frame title text-002.
selection-screen : begin of line.
selection-screen  comment 1(20) text-003.
parameters: p_list radiobutton group rad1 default 'X'.
selection-screen : end of line.
selection-screen : begin of line.
selection-screen comment 1(20) text-004.
parameters: p_grid radiobutton group rad1.
selection-screen : end of line.
selection-screen: end of block b2.
at selection-screen.
  perform validate_screen.
*& START OF SELECTION                                               *
start-of-selection.
  clear: itab, itab[].
V_REPID = SY-REPID.
  perform get_data.
  perform display_data.
*& END OF SELECTION                                                    *
end-of-selection.
*--DO ALV Process
  v_repid = sy-repid.
*--Sort the Output Fields
  perform sort_fields.
*--Build Field catalog for the Output fields
PERFORM BUILD_FIELDCAT.
*--Set the Layout for ALV
  perform set_layout.
*&      Form  GET_DATA
      text
TO GET THE DATA FROM TABLES INTO ITAB
form get_data .
  select vbeln
         audat
         vbtyp
         auart
         augru
         netwr
         waerk
         into corresponding fields of table itab
         from vbak
         where vbeln in s_vbeln and
         audat > '04.04.2005'
         and netwr > 0.
  <b>loop at itab.
    if itab-netwr < 10000.
      itab-icon = '@08@'.
    elseif itab-netwr > 10000 and itab-netwr < 100000.
      itab-icon = '@09@'.
    elseif itab-netwr > 100000.
      itab-icon = '@0A@'.
    endif.
    modify itab index sy-tabix.
  endloop.</b>
endform.                    " GET_DATA
*&      Form  sort_fields
form sort_fields .
  clear wa_sort.
  wa_sort-fieldname = 'VBTYP'.
  wa_sort-spos = '1'.
  wa_sort-up = 'X'.
  append wa_sort to it_sort.
  clear wa_sort.
  wa_sort-fieldname = 'NETWR'.
  wa_sort-spos = '2'.
  wa_sort-up = 'X'.
  wa_sort-subtot = 'X'.
  append wa_sort to it_sort.
endform.                    " sort_fields
*&      Form  set_layout
form set_layout .
  if p_list = c_x .
    wa_layout-window_titlebar = 'LIST DISPLAY'(016).
    wa_layout-zebra = 'X'.
*-- ALV LIST DISPLAY
    perform list_display tables itab.
*-- ALV GRID DISPLAY
  elseif p_grid = c_x.
    wa_layout-window_titlebar = 'GRID DISPLAY'(017).
    wa_layout-zebra = 'X'.
    perform grid_display tables itab.
  endif.
endform.                    " set_layout
*&      Form  list_display
form list_display  tables   p_itab .
  call function 'REUSE_ALV_LIST_DISPLAY'
    exporting
      i_callback_program = v_repid
      is_layout          = wa_layout
      it_fieldcat        = it_fieldcat[]
      it_sort            = it_sort[]
      i_save             = 'U'
    tables
      t_outtab           = itab
    exceptions
      program_error      = 1
      others             = 2.
  if sy-subrc <> 0.
    message id sy-msgid type sy-msgty number sy-msgno
            with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  endif.
endform.                    " list_display
*&      Form  GRID_DISPLAY
form grid_display  tables   p_itab .
  call function 'REUSE_ALV_GRID_DISPLAY'
    exporting
      i_callback_program = v_repid
      is_layout          = wa_layout
      it_fieldcat        = it_fieldcat[]
      it_sort            = it_sort[]
      it_events          = it_event
    tables
      t_outtab           = itab
    exceptions
      program_error      = 1
      others             = 2.
  if sy-subrc <> 0.
    message id sy-msgid type sy-msgty number sy-msgno
            with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  endif.
endform.                    " GRID_DISPLAY
*&      Form  VALIDATE_SCREEN
      text
-->  p1        text
<--  p2        text
form validate_screen .
  data: lv_vbeln like vbak-vbeln.
  if not s_vbeln is initial.
    select vbeln
    into lv_vbeln
    up to 1 rows
    from vbak
    where vbeln in s_vbeln.
    endselect.
    if sy-subrc <> 0.
      message e000 with 'INVALID SALES DOC'.
    endif.
  endif.
endform.                    " VALIDATE_SCREEN
*&      Form  display_data
      text
-->  p1        text
<--  p2        text
form display_data .
  define m_fieldcat.
    add 1 to wa_fieldcat-col_pos.
    wa_fieldcat-fieldname   = &1.
    wa_fieldcat-ref_tabname = 'VBAK'.
    wa_fieldcat-do_sum      = &2.
    wa_fieldcat-cfieldname  = &3.
    append wa_fieldcat to it_fieldcat.
  end-of-definition.
data:
    ls_fieldcat type slis_fieldcat_alv,
    lt_fieldcat type slis_t_fieldcat_alv.
  m_fieldcat 'ICON' ''  ''.
  m_fieldcat 'VBELN' ''  ''.
  m_fieldcat 'AUDAT' ''  ''.
  m_fieldcat 'VBTYP' ''  ''.
  m_fieldcat 'AUART' ''  ''.
  m_fieldcat 'AUGRU' ''  ''.
  m_fieldcat 'NETWR' 'C' 'WAERK'.
  m_fieldcat 'WAERK' ''  ''.
endform.                    " display_data[/code]
Message was edited by: Ashok Parupalli
Message was edited by: Ashok Parupalli