ALV PAGE HEADER

[Former Member]

HI Experts,

I need to show the Company code, Date & other selections as Page header in my AVL report. The Header Should b in big format. Plz help me to do the same.

Thanks.

Khan.

[Former Member · Accepted solution]

Hi,

Using top-of-page u can achieve both.

http://www.sapdevelopment.co.uk/reporting/alv/alvgrid_rephead.htm

In this date u have to append the high date.

.

* Low Date
wa_header-typ = 'S'.
wa_header-key = 'Date: '.
CONCATENATE s_date-low+6(2) '.'
s_date-low+4(2) '.'
s_date-low(4) INTO wa_header-info. 
"Low date
append wa_header to t_header.
clear: wa_header.


High Date 
wa_header-typ = 'S'.
wa_header-key = 'Date: '.
CONCATENATE s_date-high+6(2) '.'
s_date-high4(2) '.'
s_date-high(4) INTO wa_header-info. 
"High date
append wa_header to t_header.
clear: wa_header.

Hope this solves ur problem.

[Former Member]

Hello Khan,

DO like this:

* Internal Table TOP-OF-PAGE commentary
DATA: IT_COMMENTARY TYPE SLIS_T_LISTHEADER.
* Work Area TOP-OF-PAGE commentary
    DATA: WA_COMMENTARY TYPE SLIS_LISTHEADER.

    CLEAR : WA_COMMENTARY,
            IT_COMMENTARY,
            IT_COMMENTARY[].
    WA_COMMENTARY-TYP  = 'S'.
    WA_COMMENTARY-INFO = TEXT-003. " Give whatever u want to display 
    APPEND WA_COMMENTARY TO IT_COMMENTARY.

    IT_VARIANT-REPORT  = SY-REPID.
    G_PROGNAME = 'Z48M2_MAT_LIEF_PROJ'.
* 003 vsm1kor 18.02.08 - en " OPL 1979
    CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
         EXPORTING
              I_CALLBACK_PROGRAM     = G_PROGNAME
              I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'
              IT_FIELDCAT            = IT_FIELDCAT
            I_SAVE                 = 'A'
            IS_VARIANT             = IT_VARIANT
              I_SCREEN_START_COLUMN  = 50
              I_SCREEN_START_LINE    = 5
              I_SCREEN_END_COLUMN    = 100
              I_SCREEN_END_LINE      = 20
         TABLES
              T_OUTTAB               = IT_MATNR
         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.

*&---------------------------------------------------------------------*
*&      Form  TOP-OF-PAGE
*&---------------------------------------------------------------------*
*        For Top of page
*----------------------------------------------------------------------*
FORM TOP_OF_PAGE.                                           "#EC CALLED

  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
       EXPORTING
            IT_LIST_COMMENTARY = IT_COMMENTARY.

ENDFORM.                    "top_of_page

Cheers,

Vasanth

[Former Member]

HI ,

hOW dO I add DATE & other selection in my header.

I tried below code but didnt wrk. it shows only Date.

IF WBUKRS = 'CP01' .

CLEAR : WA_COMMENTARY,

IT_COMMENTARY,

IT_COMMENTARY[].

WA_COMMENTARY-TYP = 'H'.

WA_COMMENTARY-INFO = TEXT-010. " Give whatever u want to display

APPEND WA_COMMENTARY TO IT_COMMENTARY.

CLEAR : WA_COMMENTARY,

IT_COMMENTARY.

WA_COMMENTARY-TYP = 'S'.

WA_COMMENTARY-INFO = S_DATE-LOW.

APPEND WA_COMMENTARY TO IT_COMMENTARY.

ENDIF.

Urgent.

Thanks.

[former_member609120]

If it is alv report.

data :gd_repid like sy-repid.

gd_repid = sy-repid.

call function module reuse_alv_grid_display.

exporting.

programme = gd_repid.

top-of-page = 'TOP_OF_PAGE'.

importing.

t_outtab = itab.

exceptions.

form top_of_page.

wa_header-typ = 'H'.

wa_header-info = 'ALV Report'.

append wa_header to t_header.

clear wa_header.

wa_header-typ = 'S'.

wa_header-key = 'Date :'

concatenate Sy-datum+6(2) '.'

sy-datum+4(2) '.'

sy-datum(4) into wa_header-info.

append wa_header to t_header.

clear wa_header.

Similarly for company code

endform.

then call functionmodule reuse_alv_write_commentary.

header = t_header.