INSERTING LOGO IN ALV GRID

Question

hi experts,
how can i insert logo in alv grid..can u send me some examples of alv that includes all the functionalities like user-command,commentary write n also logo insertion etc..
regards,
raman

Answer 1

hi ,
    chk out this .....and  try this ..
for getting the events ....
FORM ZVRPSALV_EVENT_CAT  CHANGING RT_EVENT TYPE slis_t_event .
    DATA : s_event TYPE slis_alv_event.
  CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      i_list_type     = 0
    IMPORTING
      et_events       = RT_EVENT
   EXCEPTIONS
     list_type_wrong = 1
     OTHERS          = 2.
CASE sy-subrc.
   WHEN 1.
     MESSAGE s000 WITH 'List type does not exist'(058).
     LEAVE LIST-PROCESSING.
   WHEN 2.
     MESSAGE s000 WITH 'Error with List Type'(059).
     LEAVE LIST-PROCESSING.
ENDCASE.
  READ TABLE RT_EVENT WITH KEY NAME = slis_ev_top_of_page INTO s_event .
  IF sy-subrc = 0.
    MOVE 'TOP_OF_PAGE'(056) TO s_event-form.
    APPEND s_event TO rt_event.
    CLEAR s_event.
  ENDIF.
ENDFORM.                    " EVENT_CAT
*&      Form  ZVRPSALV_GRIDDISPLAY1
      text
-->  p1        text
<--  p2        text
FORM ZVRPSALV_GRIDDISPLAY1 .
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
  I_INTERFACE_CHECK                 = ' '
  I_BYPASSING_BUFFER                = ' '
  I_BUFFER_ACTIVE                   = ' '
   I_CALLBACK_PROGRAM                = REPID
  I_CALLBACK_PF_STATUS_SET          = ' '
   I_CALLBACK_USER_COMMAND           = 'DISPLAY_DOCUMENT '
   I_CALLBACK_TOP_OF_PAGE            = ' TOP-OF-PAGE '
  I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
  I_CALLBACK_HTML_END_OF_LIST       = ' '
  I_STRUCTURE_NAME                  =
  I_BACKGROUND_ID                   = ' '
   I_GRID_TITLE                      = 'BASIC LIST'
  I_GRID_SETTINGS                   =
  IS_LAYOUT                         =
   IT_FIELDCAT                       = T_FCAT
  IT_EXCLUDING                      =
  IT_SPECIAL_GROUPS                 =
  IT_SORT                           =
  IT_FILTER                         =
  IS_SEL_HIDE                       =
  I_DEFAULT                         = 'X'
  I_SAVE                            = ' '
  IS_VARIANT                        =
  IT_EVENTS                         = RT_EVENT
  IT_EVENT_EXIT                     =
  IS_PRINT                          =
  IS_REPREP_ID                      =
  I_SCREEN_START_COLUMN             = 0
  I_SCREEN_START_LINE               = 0
  I_SCREEN_END_COLUMN               = 0
  I_SCREEN_END_LINE                 = 0
  I_HTML_HEIGHT_TOP                 = 0
  I_HTML_HEIGHT_END                 = 0
  IT_ALV_GRAPHICS                   =
  IT_HYPERLINK                      =
  IT_ADD_FIELDCAT                   =
  IT_EXCEPT_QINFO                   =
  IR_SALV_FULLSCREEN_ADAPTER        =
IMPORTING
  E_EXIT_CAUSED_BY_CALLER           =
  ES_EXIT_CAUSED_BY_USER            =
  TABLES
    T_OUTTAB                          = T_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.                    " ZVRPSALV_GRIDDISPLAY1
SUBROTINE FOR DISPLAYING THE SECONDRY ALV GRID.
FORM DISPLAY_DOCUMENT USING R_UCOMM  LIKE SY-UCOMM
                            RS_SELFIELD TYPE SLIS_SELFIELD.
IF RS_SELFIELD-FIELDNAME = 'VBELN'.
  READ TABLE T_ITAB INDEX  RS_SELFIELD-TABINDEX .
V_VBELN = T_ITAB-VBELN.
LOOP AT T_ITAB WHERE VBELN = V_VBELN.
   Move: T_ITAB-POSNR to T_ITAB1-POSNR  ,
         T_ITAB-MATNR to T_ITAB1-MATNR ,
         T_ITAB-MATKL to T_ITAB1-MATKL,
         T_ITAB-ARKTX to T_ITAB1-ARKTX  ,
         T_ITAB-PSTYV to T_ITAB1-PSTYV  ,
         T_ITAB-SPART to T_ITAB1-SPART ,
         T_ITAB-GSBER to T_ITAB1-GSBER ,
         T_ITAB-KWMENG to T_ITAB1-KWMENG .
   Append T_ITAB1.
ENDLOOP.
   ENDIF.
*&      Form  ZVRPSALV_COMMENT
      text
     -->P_T_HEADER  text
FORM ZVRPSALV_COMMENT  USING  P_T_HEADER type slis_t_listheader .
DATA : LS_LINE TYPE SLIS_LISTHEADER.
CLEAR LS_LINE .
LS_LINE-TYP = 'H'.
LS_LINE-INFO =  'HEADING LIST'.
APPEND LS_LINE TO P_T_HEADER.
  CLEAR LS_LINE.
  LS_LINE-typ = 'S'.
  write sy-datum to LS_LINE-info MM/DD/YYYY.
  CONCATENATE text-041 LS_LINE-info INTO LS_LINE-info separated by space .
  APPEND LS_LINE TO P_T_HEADER.
ENDFORM.                    " ZVRPSALV_COMMENT
SUBROUINE FOR TOP OF PAGE.
FORM TOP_OF_PAGE.
clear t_header.
DATA: LV_HEADER TYPE SLIS_LISTHEADER.
  LV_HEADER-TYP = 'S'.
  WRITE SY-DATUM TO LV_HEADER-INFO MM/DD/YYYY.
  CONCATENATE TEXT-041 LV_HEADER-INFO INTO LV_HEADER-INFO SEPARATED BY SPACE.
  APPEND LV_HEADER TO T_HEADER.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
   EXPORTING
     IT_LIST_COMMENTARY       = T_HEADER
    I_LOGO                   = ' ENJOYSAP_LOGO '
   I_END_OF_LIST_GRID       =
   I_ALV_FORM               =
ENDFORM.
*&      Form  ZVRPSALV_EVENTTAB
      text
     <--P_T_EVENT  text
FORM ZVRPSALV_EVENTTAB  CHANGING P_T_EVENT TYPE SLIS_T_EVENT.
  DATA : LS_EVENT TYPE SLIS_ALV_EVENT.
  CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
   EXPORTING
     I_LIST_TYPE           = 0
   IMPORTING
     ET_EVENTS             = P_T_EVENT.
SEARCH THE TOP OF PAGE EVENT.
  READ TABLE P_T_EVENT WITH KEY NAME = SLIS_EV_TOP_OF_PAGE INTO LS_EVENT .
  IF SY-SUBRC = 0 .
  MOVE 'TOP_OF_PAGE' TO LS_EVENT-FORM.
  APPEND LS_EVENT TO P_T_EVENT.
  ENDIF.
ENDFORM.                    " ZVRPSALV_EVENTTAB
thanks and regards
Priyank Dixit