How to add 2 more field to the Header of FBL5N ALV report output

Question

Hi All,
I have copied and made some modification to the standard transaction FBL5N and added some fields to the ALV report line Items but how to add fields to the header part i.e if you execute the transaction FBL5n, you will get the ALV report, in the header part customer no, company code then I need to add the 2 more fields. can any one tell me that which structure or where I need to add these fields to be appear in ALV output screen.
Thanks in advance.
Swapna.

Answer 1

Hi Mohamed,
If you copied Z-FM successfully, then you have to go to subroutine TOP_OF_PAGE to add your field:
*&      Form  TOP_OF_PAGE
FORM top_of_page.
  DATA: b_suppress   LIKE boole-boole,
        opfi_text    LIKE eptext OCCURS 10 WITH HEADER LINE,
        n_color      TYPE i.
*  IF     NOT it_items-bukrs IS INITIAL               "737295
*     AND NOT it_items-konto IS INITIAL               "737295
*     AND NOT it_items-koart IS INITIAL.              "737295
  gs_items = gt_alv.
*  ENDIF.                                             "737295
* skip first call at top of page:
  IF NOT gd_first_top IS INITIAL.
    CLEAR gd_first_top.
    EXIT.
  ENDIF.
  IF x_grid = c_x OR x_inet = c_x.                          "1012201
    PERFORM grid_top_of_page.
    EXIT.
  ENDIF.
*... open FI: get header text.
* first fill some RFXPO fields for general info:
  CLEAR: s_rfxpo, wa_kna1, wa_lfa1, wa_ska1.
  s_rfxpo-bukrs = gs_items-bukrs.
  s_rfxpo-kkber = gs_items-kkber.
  s_rfxpo-koart = gs_items-koart.
  s_rfxpo-konto = gs_items-konto.
  s_rfxpo-vrbez = gs_variant-variant.
  s_rfxpo-waers = gs_items-waers.
* update master record:
  PERFORM fill_master_rec  USING gs_items-koart
                                 gs_items-konto
                                 gs_items-bukrs. " note 698396
  CALL FUNCTION 'OPEN_FI_PERFORM_00001640_E'
    EXPORTING
      i_rfxpo             = s_rfxpo
      i_kna1              = wa_kna1
      i_lfa1              = wa_lfa1
      i_ska1              = wa_ska1
    IMPORTING
      e_suppress_standard = b_suppress
    TABLES
      t_lines             = opfi_text.
*... display open FI text:
  IF x_konto_sort = 'X'.
    LOOP AT opfi_text.
      CASE opfi_text-color.
        WHEN 1.
          FORMAT COLOR 1.
        WHEN 2.
          FORMAT COLOR 2.
        WHEN 3.
          FORMAT COLOR 3.
        WHEN 4.
          FORMAT COLOR 4.
        WHEN 5.
          FORMAT COLOR 5.
        WHEN 6.
          FORMAT COLOR 6.
        WHEN 7.
          FORMAT COLOR 7.
      ENDCASE.
      WRITE: / opfi_text-text.
    ENDLOOP.
    FORMAT RESET.
  ENDIF.
*... display other header text:
  IF b_suppress NE 'X'.
    PERFORM display_custom_header.
    PERFORM display_ccard_lines.
  ENDIF.
" Put your field somewhere...
ENDFORM.                               " TOP_OF_PAGE
Good luck,
Thanks,