Logo and address

Question

hello,
i want to add our logo and address in the standard report of purchase order, please let me know how to do the same and what are steps to followed.
please explain the entire details and steps and oblige.
thanks
suja

Answer 1

hi sujatha
*& Report  ZSAMP_ALV_DISPLAY                                           *
REPORT  zsamp_alv_display                       .
TYPE-POOLS: slis.
TABLES : t001,t005t.
TYPES : BEGIN OF  struct1,
        bukrs LIKE t001-bukrs,
        butxt LIKE t001-butxt,
        land LIKE t001-land1,
        spras LIKE t001-spras,
        periv LIKE t001-periv,
        landx LIKE t005t-landx,
        numb(3) TYPE n,
        END OF struct1.
TYPES: BEGIN OF struct2,
       land1 LIKE t005t-land1,
       landx1 LIKE t005t-landx,
       END OF struct2.
TYPES: tab1 TYPE STANDARD TABLE OF struct1,
       tab2 TYPE STANDARD TABLE OF struct2.
DATA: itab1 TYPE tab1,
      itab2 TYPE tab2,
      itab_temp TYPE tab1,
      wa1 TYPE struct1,
      wa2 TYPE struct2,
      i_fieldcat TYPE slis_t_fieldcat_alv.
SELECT-OPTIONS: s_bukrs FOR t001-bukrs.
START-OF-SELECTION.
  PERFORM get_data.
  PERFORM enhance_data TABLES itab1.
  itab_temp[] = itab1.
  SORT itab_temp BY land.
  DELETE ADJACENT DUPLICATES  FROM itab_temp.
  CLEAR itab_temp.
  LOOP AT itab1 INTO wa1.
    READ TABLE itab2 INTO wa2 WITH KEY land1 = wa2-land1.
    IF sy-subrc = 0 .
      wa1-land = wa2-land1.
      MODIFY itab1 FROM wa1 TRANSPORTING landx WHERE land = wa2-land1.
    ENDIF.
  ENDLOOP.
  PERFORM alv_merge.
  PERFORM fieldcat TABLES i_fieldcat.
  PERFORM alv_display.
*&      Form  GET_DATA
      text
-->  p1        text
<--  p2        text
FORM get_data .
  SELECT  bukrs
          butxt
          land1
          spras
          periv  FROM t001 INTO CORRESPONDING FIELDS OF TABLE itab1
           WHERE bukrs IN s_bukrs.
  SELECT land1
         landx
          FROM t005t INTO CORRESPONDING FIELDS OF TABLE itab2
                  FOR ALL ENTRIES IN itab1 WHERE land1 = itab1-land.
ENDFORM.                    " GET_DATA
*&      Form  ENHANCE_DATA
      text
-->  p1        text
<--  p2        text
FORM enhance_data TABLES  p_tab TYPE tab1 .
  DATA  wa_tab TYPE struct1.
  LOOP AT p_tab INTO wa_tab.
    wa_tab-numb = sy-tabix.
    MODIFY p_tab FROM wa_tab TRANSPORTING numb.
  ENDLOOP.
ENDFORM.                    " ENHANCE_DATA
*&      Form  ALV_MERGE
      text
-->  p1        text
<--  p2        text
FORM alv_merge  .
*TABLES   P_I_FIELDCAT.
  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
   EXPORTING
     i_program_name               = sy-repid
     i_internal_tabname           = 'I_TAB1'
    I_STRUCTURE_NAME             =
    I_CLIENT_NEVER_DISPLAY       = 'X'
     i_inclname                   = sy-repid
    I_BYPASSING_BUFFER           =
    I_BUFFER_ACTIVE              =
     CHANGING
      ct_fieldcat                  = i_fieldcat
   EXCEPTIONS
     inconsistent_interface       = 1
     program_error                = 2
     OTHERS                       = 3.
  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.                    " ALV_MERGE
*&      Form  ALV_DISPLAY
      text
-->  p1        text
<--  p2        text
FORM alv_display .
  DATA : returncode(200) .
  DATA: BEGIN OF fields OCCURS 2.
          INCLUDE STRUCTURE sval.
  DATA: END OF fields.
  CLEAR fields.
  fields-tabname     = 'RLGRAP'.
fields-fieldname   = 'FILENAME'.
fields-value       =  p_file.
    CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
      i_bypassing_buffer                =  'X'
      filename                = filestring
      write_field_separator   = ','
      i_grid_title                      =  'MERGE TABLES'
      it_fieldcat                       =   i_fieldcat
      i_callback_top_of_page            =  'F_HEADER'
       i_callback_program               =   sy-repid
    TABLES
      t_outtab                          =  itab1
     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.                    " ALV_DISPLAY
*&      Form  FIELDCAT
      text
-->  p1        text
<--  p2        text
FORM fieldcat  TABLES  p_i_fieldcat TYPE slis_t_fieldcat_alv..
  DATA: l_fieldcat TYPE slis_fieldcat_alv.
  CLEAR l_fieldcat.
  l_fieldcat-col_pos = 1.
  l_fieldcat-fieldname = 'NUMB'.
  l_fieldcat-seltext_l = 'SR.NO.'.
  l_fieldcat-key = 'X'.
  l_fieldcat-edit = 'X'.
  APPEND l_fieldcat TO p_i_fieldcat.
  CLEAR l_fieldcat.
  l_fieldcat-col_pos = 2.
  l_fieldcat-fieldname = 'BUKRS'.
  l_fieldcat-ref_tabname = 'T001'.
  l_fieldcat-ref_fieldname = 'BUKRS'.
  l_fieldcat-edit = 'X'.
  APPEND l_fieldcat TO p_i_fieldcat.
  CLEAR l_fieldcat.
  l_fieldcat-col_pos = 3.
  l_fieldcat-fieldname = 'BUTXT'.
  l_fieldcat-ref_tabname = 'T001'.
  l_fieldcat-ref_fieldname = 'BUTXT'.
  l_fieldcat-edit = 'X'.
  APPEND l_fieldcat TO p_i_fieldcat.
  CLEAR l_fieldcat.
  l_fieldcat-col_pos = 4.
  l_fieldcat-fieldname = 'LAND'.
  l_fieldcat-ref_tabname = 'T001'.
  l_fieldcat-ref_fieldname = 'LAND1'.
  l_fieldcat-edit = 'X'.
  APPEND l_fieldcat TO p_i_fieldcat.
  CLEAR l_fieldcat.
  l_fieldcat-col_pos = 5.
  l_fieldcat-fieldname = 'SPRAS'.
  l_fieldcat-ref_tabname = 'T001'.
  l_fieldcat-ref_fieldname = 'SPRAS'.
  l_fieldcat-edit = 'X'.
  APPEND l_fieldcat TO p_i_fieldcat.
  CLEAR l_fieldcat.
  l_fieldcat-col_pos = 6.
  l_fieldcat-fieldname = 'PERIV'.
  l_fieldcat-ref_tabname = 'T001'.
  l_fieldcat-edit = 'X'.
  l_fieldcat-ref_fieldname = 'PERIV'.
  APPEND l_fieldcat TO p_i_fieldcat.
  CLEAR l_fieldcat.
  l_fieldcat-col_pos = 7.
  l_fieldcat-fieldname = 'LANDX'.
  l_fieldcat-ref_tabname = 'T005T'.
  l_fieldcat-ref_fieldname = 'LANDX'.
  l_fieldcat-edit = 'X'.
  APPEND l_fieldcat TO p_i_fieldcat.
  CLEAR l_fieldcat.
ENDFORM.                    " FIELDCAT
*&      Form  f_header
      text
-->  p1        text
<--  p2        text
FORM f_header .
  DATA:  t_header      TYPE slis_t_listheader,
         wa_header     TYPE slis_listheader,
         t_line        LIKE wa_header-info,
         ld_lines      TYPE i,
         ld_linesc(10) TYPE c.
Title
  wa_header-typ  = 'A'.
  wa_header-info = 'Purchase Requistion Report'.
  APPEND wa_header TO t_header.
  CLEAR wa_header.
Date
  wa_header-typ  = 'A'.
  wa_header-info = 'Date: '.
  CONCATENATE  sy-datum+6(2) '.'
               sy-datum+4(2) '.'
   sy-datum(4) INTO wa_header-info."todays date
  APPEND wa_header TO t_header.
  CLEAR: wa_header.
Total No. of Records Selected
  DESCRIBE TABLE itab1 LINES ld_lines.
  ld_linesc = ld_lines.
  CONCATENATE 'Total No. of Records : ' ld_linesc
    INTO t_line SEPARATED BY space.
*T_LINE = 'Requisation Report,'.
  wa_header-typ  = 'A'.
  wa_header-info = t_line.
  APPEND wa_header TO t_header.
  CLEAR: wa_header, t_line.
  t_line ='Its my Report:'.
  wa_header-typ  = 'A'.
  wa_header-info = t_line .
  APPEND wa_header TO t_header.
  CLEAR: wa_header, t_line.
  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary = t_header
      i_logo             = 'HCL_LOGO'.
ENDFORM.                    " f_header
*&      Form  f_top_list
      text
-->  p1        text
<--  p2        text
FORM f_top_list .
  FORMAT COLOR COL_HEADING ON.
  WRITE: /10 text-h10,  text-h09.
  FORMAT COLOR OFF.
  WRITE: /10 text-h11, sy-datum.
  WRITE: /10 text-h12,  sy-pagno.
ENDFORM.                    " f_top_list
*&      Form  f_user_command
      text
-->  p1        text
<--  p2        text
FORM f_user_command .
ENDFORM.                    " f_user_command
regards
kumar.