✒️ABAP POO Introducción al ALV Grid Control
ABAP POO Introducción al ALV Grid Control
Se adapto el ejemplo para el Modulo de QM con el tema de AVISOS.
*&---------------------------------------------------------------------*
*& Report ZPRUEBA_ALV_GRID_OBJETOS
*&
*&---------------------------------------------------------------------*
REPORT zprueba_alv_grid_objetos.
TYPE-POOLS: slis.
TABLES QMEL.
DATA: TI_QMEL TYPE STANDARD TABLE OF QMEL.
DATA: ok_code TYPE sy-ucomm,
o_grilla TYPE REF TO cl_gui_alv_grid,
o_contenedor TYPE REF TO cl_gui_custom_container.
*----------------------------------------------------------------------*
START-OF-SELECTION.
*----------------------------------------------------------------------*
PERFORM seleccion_datos.
*----------------------------------------------------------------------*
END-OF-SELECTION.
*----------------------------------------------------------------------*
CALL SCREEN 0100.
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
SET PF-STATUS '0100'.
SET TITLEBAR '0100'.
ENDMODULE. " STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
*& Module CREAR_OBJETOS_0100 OUTPUT
*&---------------------------------------------------------------------*
MODULE crear_objetos_0100 OUTPUT.
IF o_contenedor IS INITIAL.
CREATE OBJECT o_contenedor
EXPORTING
container_name = 'CONTENEDOR'.
CREATE OBJECT o_grilla
EXPORTING
i_parent = o_contenedor.
CALL METHOD o_grilla->set_table_for_first_display
EXPORTING
i_structure_name = 'QMEL'
CHANGING
* it_outtab = ti_usuarios
IT_OUTTAB = TI_QMEL
EXCEPTIONS
OTHERS = 4.
ELSE.
CALL METHOD o_grilla->refresh_table_display
EXPORTING
i_soft_refresh = 'X'
EXCEPTIONS
finished = 1
OTHERS = 2.
ENDIF.
ENDMODULE. " CREAR_OBJETOS_0100 OUTPUT
*&---------------------------------------------------------------------*
*& Module SALIR_0100 INPUT
*&---------------------------------------------------------------------*
MODULE salir_0100 INPUT.
CALL METHOD o_grilla->free.
CALL METHOD o_contenedor->free.
LEAVE PROGRAM.
ENDMODULE. " SALIR_0100 INPUT
*&---------------------------------------------------------------------*
*& Form SELECCION_DATOS
*&---------------------------------------------------------------------*
FORM seleccion_datos .
CLEAR TI_QMEL.
REFRESH TI_QMEL.
SELECT * FROM QMEL INTO CORRESPONDING FIELDS OF TABLE TI_QMEL.
ENDFORM. " SELECCION_DATOS
 
 
 
Sobre el autor
Publicación académica de Francisco Orlando Lopez Martinez, en su ámbito de estudios para el Máster ABAP POO.
Francisco Orlando Lopez Martinez
El Salvador - Legajo: DQ93R
✒️Autor de: 35 Publicaciones Académicas
🎓Cursando Actualmente: Consultor Funcional Módulo MM Nivel Inicial
🎓Egresado de los módulos:
- Máster ABAP for HANA
- Máster ABAP Orientado a Objetos
- Máster Funcional ABAP
- Carrera Consultor ABAP Nivel Avanzado
- Carrera Consultor ABAP Nivel Inicial