Agregar cabecera a un ALV

En algún momento hemos necesitado agregar datos de cabecera a un reporte ALV, datos como la Fecha de ejecución, Sociedad, Periodos, Ejercicios, Almances, Centros, Ruc, etc, etc.

Para ello se debe agregar el siguiente  código:

FORM INIT_HEADER.

  DATA: WA_HEADER TYPE SLIS_LISTHEADER.

* Cargo el Título
  WA_HEADER-TYP = ‘H’.
  WA_HEADER-INFO = ‘Título en Mayúsculas‘.
  APPEND  WA_HEADER TO GT_HEADER.

* Cargo el Subtítulo 
  CLEAR WA_HEADER.
  WA_HEADER-TYP = ‘A’.
  WA_HEADER-INFO = ‘Texto para un subtítulo.‘.
  APPEND  WA_HEADER TO GT_HEADER.

ENDFORM.                    “init_header


FORM TOP_OF_PAGE .

* Pasa a la cabecera el logo
  CALL FUNCTION ‘REUSE_ALV_COMMENTARY_WRITE’
    EXPORTING
      I_LOGO             = ‘ENJOYSAP_LOGO‘  “Logo
      IT_LIST_COMMENTARY = GT_HEADER.

ENDFORM.                    ” TOP_OF_PAGE


Luego al llamar a la función ‘REUSE_ALV_GRID_DISPLAY hacemos lo siguiente:


PERFORM INIT_HEADER. " llamada al perform INIT_HEADER

CALL FUNCTION ‘REUSE_ALV_GRID_DISPLAY’
  EXPORTING
    I_CALLBACK_PROGRAM          = LV_REPID
    I_CALLBACK_TOP_OF_PAGE   = ‘TOP_OF_PAGE’   ” llama al form
    I_BACKGROUND_ID                 = ‘ALV_BACKGROUND‘  ” imagen de fondo 
    IT_FIELDCAT                          = LV_FIELDCAT    
    IT_EVENTS                             = T_EVENTS
  TABLES
    T_OUTTAB                             = IT_TABLE.