✒️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.

 

:: Al igual que Francisco ¿Usted está dispuesto a aprender ABAP?

El lunes 30 Noviembre 2020 comenzamos la 🎓Carrera Programador ABAP.
Juntos para realizar sus más grandes desafíos!

 Cargando presentación, aguarde unos instantes...

📗 EBOOKS FREE:

Si le interesa la Tecnología SAP, pase por nuestra sección Ebooks Free y descargue uno de los 10 Ebooks libres y gratuitos que hemos desarrollado para compartir juntos.

✒️Más Publicaciones Académicas sobre Tecnología SAP:

Buscador de Publicaciones:


 

🌈Recursos Free

Los mejores recursos Libres y Gratuitos compartidos con la comunidad:

 

 

Consultas y Soporte

👋Hola! ¿Podemos ayudarle con su plan de estudios?

Estamos listos para darle el soporte que su carrera merece mediante un asesoramiento especializado.

Acceda sección contacto y seleccione canal de comunicación más cómodo para usted.

🤝Aguardamos su contacto, Éxitos!