CATALOGO ALV AUTOMATICO, LOGOS, ENCABEZADOS Y STATUS
1. CREACION DEL CATALOGO EN FORMA AUTOMATICA
Existen dos formas de crear el catálogo de campos:
- De forma manual: es decir cargando (ingresando) cada uno de los campos que componen al catálogo manualmente, uno por uno, como se hizo en el ejemplo de la lección anterior.
- De forma automática: es decir ejecutando la función REUSE_ALV_FIELDCATALOG_MERGE que generará el catálogo automáticamente.
Ej:
v_repid = sy-repid.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
i_program_name = v_repid
i_internal_tabname = 'TI_USUARIOS'
i_client_never_display = 'X'
i_inclname = v_repid
CHANGING
ct_fieldcat = ti_catalogo[]
EXCEPTIONS
inconsistent_interface = 1
program_error = 2
OTHERS = 3.
Para poder hacer esto vamos a tener q modificar dos puntos del programa. El primero es la forma como se declara la tabla interna del ALV. Si creamos el catálogo en forma automática debemos declara la tabla interna utilizando LIKE y haciendo referencia a campos de una tabla BD existente.
Ej:
* Declarar asi para usar el MERGE en el catalogo
DATA: BEGIN OF ti_usuarios OCCURS 0,
dni LIKE ztabla_usuarios-dni,
nombre_ape LIKE ztabla_usuarios-nombre_ape,
estado_usu LIKE ztabla_usuarios-estado_usu,
direccion LIKE ztabla_usuarios-direccion,
codigo_postal LIKE ztabla_usuarios-codigo_postal,
fecha_nac LIKE ztabla_usuarios-fecha_nac,
estado_civil LIKE ztabla_usuarios-estado_civil,
END OF ti_usuarios.
Lo otro q debemos hacer es configurar el editor, para q se restrinja la cantidad de caracteres de ancho de la pantalla a 72.
Configuración del ancho del Editor ABAP
Para configurar el ancho del editor ABAP a 72 líneas accedemos a la opción del menú:
Utilidades --> Opciones --> Editor ABAP --> Editor --> Y tildamos Long. líneas compatib descend.(72)
2. UTILIZACION DE LOGOS Y ENCABEZADOS
En los ALV Grilla podemos agregar logos y encabezados en los listados. Para ello debemos declarar una tabla del tipo SLIS_T_LISTHEADER y una estructura del tipo SLIS_LISTHEADER.
Ej: Declaración de la tabla y estructura para el encabezado
* Tabla y estructura para la cabecera
ti_header TYPE slis_t_listheader,
st_header TYPE slis_listheader.
Antes de completar el catálogo, vamos a llenar la tabla TI_HEADER con el encabezado del Reporte, el tipo de reporte y la fecha del sistema.
Ej: Llenamos la tabla interna del encabezado
DATA: v_fecha(10) TYPE c.
CONCATENATE sy-datum+6(2) sy-datum+4(2) sy-datum(4) INTO v_fecha SEPARATED BY '/'.
st_header-typ = 'H'.
st_header-info = 'Listado de Usuarios'.
APPEND st_header TO ti_header.
CLEAR st_header.
st_header-typ = 'S'.
st_header-key = 'Tipo de reporte: '.
st_header-info = 'ALV'.
APPEND st_header TO ti_header.
CLEAR st_header.
st_header-typ = 'S'.
st_header-key = 'Fecha: '.
st_header-info = v_fecha.
APPEND st_header TO ti_header.
CLEAR st_header.
Luego, agregamos en la llamada a la función del ALV, el parámetro exporting I_CALL_TOP_PAGE con el literal 'TOP_OF_PAGE', q será el nombre de la subrutina q cargue el contenido del encabezado y el logo.
Ej:
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = v_repid
it_fieldcat = ti_catalogo[]
i_callback_top_of_page = 'TOP_OF_PAGE'
is_layout = st_layout
TABLES
t_outtab = ti_usuarios.
Ahora creamos la subrutina TOP_OF_PAGE, con la llamada a la función REUSE_ALV_COMMENTARY_WRITE, q carga el encabezado q definimos en la tabla interna TI_HEADER, junto con el logo 'ENJOYSAP_LOGO'.
Ej: La función REUSE_ALV_COMMENTARY_WRITE
FORM top_of_page.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
it_list_commentary = ti_header
i_logo = 'ENJOYSAP_LOGO'.
ENDFORM. "top_of_page
Transacción SE78
Para ver los logos disponibles en el sistema o cargar nuevos.
Otra posibilidad de la q disponemos para subir logo al SAP a parte de la transacción SE78 es la transacción estándar OAER, para subir un logo al sap accedemos a la transacción OAER luego en la pantalla de selección q vemos a continuación completamos los parámetros de la siguiente forma, en el parámetro nombre clase introducimos el texto Pictures, en el parámetro tipo de clase introducimos el texto OT y en el parámetro clave del objeto introducimos el nombre q se le quiere dar al logo, por ejemplo LOGO_EMPRESA, finalmente ejecutamos la transacción y en la siguiente pantalla seleccionamos documento estándar, pinchamos sobre el icono imagen, aquí verificamos q se puede subir al sistema distintos tipos de archivos y visualizaremos una ventana de dialogo dde podremos seleccionar y subir el archivo desde nuestra PC al Servidor para utilizarlo en un encabezado de un ALV, si deseamos agregar la imagen a una orden de transporte debemos acceder al Menú --> Documentos --> Transportar.
3. UTILIZACION DEL STATUS GUIs
Para poder utilizar un Status GUI en un reporte ALV, vamos agregar en la llamada la función del ALV el parámetro exporting I_CALLBACK_PF_STATUS_SET con el literal 'PF_STATUS', q será el nombre de la subrutina q declare la utilización del Status GUI y el parámetro exporting I_CALLBACK_USER_COMMAND con el literal 'USER_COMMAND' q será el nombre de la subrutina q se ejecute para capturar la acción realizada por el usuario.
Ej:
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = v_repid
i_callback_pf_status_set = 'PF_STATUS'
i_callback_user_command = 'USER_COMMAND'
it_fieldcat = ti_catalogo[]
i_callback_top_of_page = 'TOP_OF_PAGE'
is_layout = st_layout
TABLES
t_outtab = ti_usuarios.
Ahora definimos la subrutina PF_STATUS q setea el status.
Ej:
FORM pf_status USING rt_extab TYPE slis_t_extab.
SET PF-STATUS '0100'.
ENDFORM. "PF STATUS
Vamos a crear en el status, un botón con la descripción "Usuarios activos" y el código USU_ACTI.
También en las Teclas de función (Function Keys) del status, agregamos los códigos para poder navegar para atrás, volver a la pantalla principal o salir del programa. Cuando creamos estos botones, debemos acordarnos de setearlos con Tipo de función (Function Type) igual a "E", sino no funcionará como esperamos.
Por último agregamos la subrutina que capturará las acciones realizadas por el usuario.
Ej:
FORM user_command USING r_ucomm TYPE syucomm
rs_selfield TYPE slis_selfield.
CASE r_ucomm.
WHEN 'USU_ACTI'.
ENDCASE.
Finalmente si ejecutamos el reporte, veremos en el Status GUI, el botón de usuarios y si lo ejecutamos, se procesará el código existente en la subrutina USER_COMMAND.