ABAP POO Introducción al ALV Grid Control

Publicación Académica por Francisco Orlando Lopez Martinez

Publicación Académica creada y compartida por Francisco Lopez Martinez para el tema Introducción al ALV Grid Control.

Dentro del ámbito de estudios: Máster ABAP POO / Unidad 3: ALV Grid Control.

¿Buscás una carrera con Futuro?

ABAP POO Introducción al ALV Grid Control por Francisco Lopez Martinez

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

 

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

El lunes 20 Agosto 2018 comenzamos la Carrera Programador ABAP, Juntos para realizar sus más grandes desafíos!

 Cargando presentación, aguarde unos instantes...

 

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

Buscador de Publicaciones:

 

 

:: Ayúdenos a Difundir nuestra propuesta

Si la información brindada le fue de utilidad ayúdenos a difundir la propuesta, desde ya ¡Muchas Gracias!


 

+Recursos Gratuitos: