ALV template

Introducción

Este es mi template para cada vez que tengo que hacer una ALV. Es bastante completo, lo justo para que en el 95% de los casos lo único que tenga que hacer es cambiar la definición de campos y programar la interacción del usuario. Quizás te merezca la pena echarle un vistazo a mi artículo sobre el tratamiento de colores en ALV. A disfrutar.

El código

REPORT z_alv_template.


DATA it_alv TYPE STANDARD TABLE OF ekko.

SELECT * FROM ekko INTO TABLE it_alv
    UP TO 137 ROWS.

PERFORM alv_display.



*       _          _ _           _
*  __ _| |_   ____| |_)___ _ __ | | __ _ _   _
* / _` | | \ / / _` | | __| '_ \| |/ _` | | | |
*| (_| | |\ V / (_| | |__ \ |_) | | (_| | |_| |
* \__,_|_| \_/ \__,_|_|___/ .__/|_|\__,_|\__, |
*           FORM PRINCIPAL|_|            |___/
* necesaria tener definida globalmente IT_ALV con
*               los campos y contenidos a mostrar
* as seen on http://cranf.com
* ascii art made at http://ascii.cranf.net
***********************************************************************
FORM alv_display.

** VARIABLES NECESARIAS                       *no es necesario tocar
**------------------------------------------------------------------
  TYPE-POOLS slis.
  DATA alv_fieldcat TYPE slis_t_fieldcat_alv.
  DATA alv_layout   TYPE slis_layout_alv.
  DATA alv_sort     TYPE slis_t_sortinfo_alv.
  DATA ls_sort      TYPE slis_sortinfo_alv.
  DATA alv_events   TYPE slis_t_event.
  DATA ls_events    TYPE slis_alv_event.
  DATA lsyrepid LIKE sy-repid. lsyrepid = sy-repid.
  CLEAR alv_fieldcat. REFRESH alv_fieldcat.
  CLEAR alv_layout.

** definición de LAYOUT                                 *recomendado
**------------------------------------------------------------------
  alv_layout-colwidth_optimize = 'X'. "optimización de ancho columna
  alv_layout-cell_merge = 'X'.        "fusión de celdas
  alv_layout-no_vline = 'X'.          "sin línea separadora vertical
  alv_layout-zebra = ' '.             "franjas alternas de color


** campo de COLOR DE LÍNEA                                 *opcional
**------------------------------------------------------------------
* alv_layout-info_fieldname = 'COLOR'. "campo it_alv color de línea


** campo de COLOR DE CELDAS                                *opcional
**------------------------------------------------------------------
* alv_layout-coltab_fieldname = 'COLOR'  "campo it_alv color celdas


** campo de SELECCIÓN DE LÍNEA                             *opcional
** el campo puesto aquí no necesita ir en el fieldcat
**------------------------------------------------------------------
* alv_layout-box_fieldname = 'LOEKZ'.


** SORTING                                                 *opcional
** necesario si queremos que cell_merge funcione la primera vez
**------------------------------------------------------------------
*  ls_sort-fieldname = 'EBELN'.
*  ls_sort-up = 'X'. "contrario es ls_sort-down = 'X'
*  APPEND ls_sort TO alv_sort.


** definición de EVENTS                                    *opcional
**------------------------------------------------------------------
*  ls_events-name = 'TOP_OF_PAGE'.
*  ls_events-form = 'ALV_TOP_OF_PAGE'.
*  APPEND ls_events TO alv_events.


** definición de FIELDCAT       *obligatorio si no se usa estructura
**------------------------------------------------------------------
  PERFORM alv_fields USING alv_fieldcat[].

**                                             *llamada a la función
**------------------------------------------------------------------
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
       EXPORTING
            is_layout                = alv_layout
            it_fieldcat              = alv_fieldcat
            it_sort                  = alv_sort
            it_events                = alv_events
            i_callback_program       = lsyrepid
            i_callback_pf_status_set = 'ALV_SET_STATUS'
            i_callback_user_command  = 'ALV_COMMAND'
*           I_STRUCTURE_NAME         = 'TABLADICCIONARIO'
*                   en este caso no usaríamos it_fieldcat
       TABLES
            t_outtab                 = it_alv.
*-------------------------------------------------------------------
ENDFORM.                    "alv_display
***********************************************************************
*       _                _
*  __ _| |_   _____ ___ | | ___  _ __
* / _` | | \ / / __| _ \| |/ _ \| '__|
*| (_| | |\ V / (__ (_) | | (_) | |
* \__,_|_| \_/ \___|___/|_|\___/|_|
DEFINE alv_color.
* MACRO para convertir color humano en código color Cxyz
* uso: alv_color campo 'texto en español'

* en EMPHASIZE o en el campo COLOR usamos char(4)
* con la forma Cxyz, x€[0,7]; y,z€[0,1] / y+z<2
* valores de x:
*            0 COL_BACKGROUND fondo (gris)
*            1 COL_HEADING    azul oscuro
*            2 COL_NORMAL     azul claro
*            3 COL_TOTAL      amarillo
*            4 COL_KEY        azul
*            5 COL_POSITIVE   verde
*            6 COL_NEGATIVE   rojo
*            7 COL_GROUP      naranja
* valores de y: 0 = normal, 1 = intenso
* valores de z: 0 = xy afecta fondo, 1 = x invertido

*          OJO: ls_fieldcat-key = 'X' invalida lo anterior

  &1 = 'C000'. "gris fondo por definición
  find 'azul' in &2 ignoring case.
  if sy-subrc = 0.
    &1+1(1) = '4'.
    find 'claro' in &2 ignoring case.
    if sy-subrc = 0. &1+1(1) = '2'. endif.
    find 'oscuro' in &2 ignoring case.
    if sy-subrc = 0. &1+1(1) = '1'. endif.
  endif.
  find 'amar' in &2 ignoring case.
  if sy-subrc = 0. &1+1(1) = '3'. endif.
  find 'verd' in &2 ignoring case.
  if sy-subrc = 0. &1+1(1) = '5'. endif.
  find 'rojo' in &2 ignoring case.
  if sy-subrc = 0. &1+1(1) = '6'. endif.
  find 'nara' in &2 ignoring case.
  if sy-subrc = 0. &1+1(1) = '7'. endif.
  find 'ntens' in &2 ignoring case.
  if sy-subrc = 0. &1+2(2) = '10'. endif.
  find 'nver' in &2 ignoring case.
  if sy-subrc = 0. &1+2(2) = '01'. endif.
END-OF-DEFINITION.
***********************************************************************
* COLOR para su uso dentro del FORM ALV_FIELDS
DEFINE fld_color.
  alv_color ls_fieldcat-emphasize &1.
END-OF-DEFINITION.
***********************************************************************
* TEXTO para su uso dentro del FORM ALV_FIELDS
DEFINE fld_texto.
  ls_fieldcat-seltext_s   = &1.
  ls_fieldcat-seltext_m   = &1.
  ls_fieldcat-seltext_l   = &1.
END-OF-DEFINITION.
***********************************************************************
*       _        __ _      _     _
*  __ _| |_   __/ _|_) ___| | __| |___
* / _` | | \ / / |_| |/ _ \ |/ _` | __|
*| (_| | |\ V /|  _| |  __/ | (_| |__ \
* \__,_|_| \_/ |_| |_|\___|_|\__,_|___/DEFINICIÓN DE CAMPOS
*
FORM alv_fields USING pfieldcat TYPE slis_t_fieldcat_alv..
  DATA ls_fieldcat  TYPE slis_fieldcat_alv.
  REFRESH pfieldcat.

  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname   = 'EBELN'.
  ls_fieldcat-ref_tabname = 'EKKO'.
  ls_fieldcat-key         = ''.
  ls_fieldcat-icon        = ''.
  ls_fieldcat-checkbox    = ''.
  ls_fieldcat-no_out      = ''.
  fld_color 'amarillo'.
  APPEND ls_fieldcat TO pfieldcat.

** TEMPLATE PARA CAMPOS DE DICCIONARIO
*  CLEAR ls_fieldcat.
*  ls_fieldcat-fieldname   = ''.
*  ls_fieldcat-ref_tabname = ''.
*  ls_fieldcat-key         = ''.
*  ls_fieldcat-no_out      = ''.
*  fld_color ''.
*  APPEND ls_fieldcat TO pfieldcat.

** TEMPLATE PARA TEXTOS S/M/L IGUALES
*  CLEAR ls_fieldcat.
*  ls_fieldcat-fieldname   = ''.
*  ls_fieldcat-key         = ''.
*  ls_fieldcat-icon        = ''.
*  ls_fieldcat-checkbox    = ''.
*  ls_fieldcat-no_out      = ''.
*  fld_texto ''.
*  fld_color ''.
*  APPEND ls_fieldcat TO pfieldcat.

** TEMPLATE PARA TEXTOS S/M/L DISTINTOS
*  CLEAR ls_fieldcat.
*  ls_fieldcat-fieldname   = ''.
*  ls_fieldcat-key         = ''.
*  ls_fieldcat-icon        = ''.
*  ls_fieldcat-checkbox    = ''.
*  ls_fieldcat-no_out      = ''.
*  ls_fieldcat-seltext_s   = ''.
*  ls_fieldcat-seltext_m   = ''.
*  ls_fieldcat-seltext_l   = ''.
*  fld_color ''.
*  APPEND ls_fieldcat TO pfieldcat.

ENDFORM.                    "alv_fields
*
* FORMS DE LLAMADA DINÁMICA DESDE LA ALV
***********************************************************************
*       _                _       _        _
*  __ _| |_   _____  ___| |_ ___| |_ __ _| |_ _   _ ___
* / _` | | \ / / __|/ _ \ __| __| __| _` | __| | | | __|
*| (_| | |\ V /\__ \  __/ |_\__ \ |_ (_| | |_| |_| |__ \
* \__,_|_| \_/ |___/\___|\__|___/\__|__,_|\__|\__,_|___/
*  DEFINICIÓN DE STATUS BAR
FORM alv_set_status USING prt_extab TYPE slis_t_extab.
* barra de status de referencia
**--------------------------------------------------------------------
  SET PF-STATUS 'STANDARD_FULLSCREEN' OF PROGRAM 'SAPLKKBL'.
ENDFORM.                    "alv_set_status
***********************************************************************
*       _       _                     __
*  __ _| |_   __ |_ ___  _ __   ___  / _|_ __   __ _  __ _  ___
* / _` | | \ / / __| _ \| '_ \ / _ \| |_| '_ \ / _` |/ _` |/ _ \
*| (_| | |\ V /| |_ (_) | |_) | (_) |  _| |_) | (_| | (_| |  __/
* \__,_|_| \_/  \__|___/| .__/ \___/|_| | .__/ \__,_|\__, |\___|
* CABECERA DE LISTA     |_|             |_|          |___/
FORM alv_top_of_page.

  DATA: lls_list TYPE slis_listheader.
  DATA: lalv_list TYPE slis_t_listheader.

**definición de cada línea de la cabecera
**el typ puede tener valores: H = header, S = selection, A = action
**--------------------------------------------------------------------
  lls_list-typ = 'H'.
  lls_list-info = 'TÍTULO DEL LISTADO'.
  APPEND lls_list TO lalv_list.

*---------------------------------------------------------------------
  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary = lalv_list.
*---------------------------------------------------------------------
ENDFORM.                    "alv_top_of_page
***********************************************************************
*       _                                                    _
*  __ _| |_   _____ ___  _ __ ___  _ __ ___   __ _ _ __   __| |
* / _` | | \ / / __| _ \| '_ ` _ \| '_ ` _ \ / _` | '_ \ / _` |
*| (_| | |\ V / (__ (_) | | | | | | | | | | | (_| | | | | (_| |
* \__,_|_| \_/ \___|___/|_| |_| |_|_| |_| |_|\__,_|_| |_|\__,_|
*  RESPUESTA A COMANDOS
FORM alv_command USING
    r_ucomm LIKE sy-ucomm
    rs_selfield TYPE slis_selfield.


** actualiza celdas editadas en modo edición
**--------------------------------------------------------------------
*  DATA p_ref1 TYPE REF TO cl_gui_alv_grid.
*  CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
*    IMPORTING
*      e_grid = p_ref1.
*  CALL METHOD p_ref1->check_changed_data.


** toma de decisiones en función de UCOMM
**--------------------------------------------------------------------
  CASE r_ucomm.
********* doble click [rs_selfield-tabindex = línea seleccionada]
    WHEN '&IC1'.
********* otros comandos
    WHEN OTHERS.
  ENDCASE.


** cambiamos el field catalog si es necesario hacerlo sobre la marcha
**--------------------------------------------------------------------
*  DATA lfieldcat TYPE slis_t_fieldcat_alv.
*  CALL FUNCTION 'REUSE_ALV_GRID_LAYOUT_INFO_GET'
*    IMPORTING
*      et_fieldcat = lfieldcat[].
*
** podemos escoger el form original o utilizar otro que nos convenga
*  PERFORM alv_fields USING lfieldcat[].
*
*  CALL FUNCTION 'REUSE_ALV_GRID_LAYOUT_INFO_SET'
*    EXPORTING
*      it_fieldcat = lfieldcat[].

* conservamos la posición del click
  rs_selfield-row_stable = 'X'.
  rs_selfield-col_stable = 'X'.

* esencial para que redibuje: NUNCA se debe rellamar a la función
**--------------------------------------------------------------------
  rs_selfield-refresh = 'X'.

ENDFORM.                    "alv_command
***********************************************************************
Publicado en: SAP Sin comentarios ▼

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos necesarios están marcados *

*

Puedes usar las siguientes etiquetas y atributos HTML: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>

[c] Alberto Viñuela Miranda / Cranfcom 2013-2014

Uso de cookies

Este sitio web utiliza cookies para que usted tenga la mejor experiencia de usuario. Si continúa navegando está dando su consentimiento para la aceptación de las mencionadas cookies y la aceptación de nuestra política de cookies, pinche el enlace para mayor información.