× ABAP

Ejemplos de ALV

raulete
Autor del tema
Fuera de línea
Administrador

Más

10 años 4 meses antes #17 por raulete

Ejemplos de ALV Publicado por raulete

ALV en menos de 15 líneas BALVSD02_GRID

(5 de ellas comentarios)

Por favor, Iniciar sesión o Crear cuenta para unirse a la conversación.

raulete
Autor del tema
Fuera de línea
Administrador

Más

10 años 4 meses antes - 10 años 3 meses antes #18 por raulete

Respuesta de raulete sobre el tema Ejemplos de ALV

Interesante este artículo comparando las dos clases para informes ALV de ABAP.
sapbitzine.blogspot.com.es/2010/03/clgui...sus-clsalvtable.html

Aquí un ejemplo del uso de la clase cl_gui_alv_grid.
Hay que crear la dynpro 100, descomentar los modules generados en la PBO y PAI.
Crear desde el screen painter un control custom llamado ALV_CONTAINER, y un pulsador con código de función EXIT.

REPORT  z_gui_alv_grid.

TABLES: sflight.

*--------------------------------------------------------------------
* G L O B A L   I N T E R N  A L   T A B L E S
*--------------------------------------------------------------------
DATA: it_sflight TYPE STANDARD TABLE OF sflight.

*--------------------------------------------------------------------
* G L O B A L   D A T A
*--------------------------------------------------------------------
DATA: ok_code LIKE sy-ucomm,
      g_wa_sflight LIKE sflight.

* Declara las variables de referencia a los objetos ALV Grid y su contenedor
DATA:
  go_grid             TYPE REF TO cl_gui_alv_grid,
  go_custom_container TYPE REF TO cl_gui_custom_container.

*--------------------------------------------------------------------
* S T A R T - O F - S E L E C T I O N.
*--------------------------------------------------------------------
START-OF-SELECTION.
  SET SCREEN '100'.

*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
MODULE user_command_0100 INPUT.
  ok_code = sy-ucomm.
  CASE ok_code.
    WHEN 'EXIT'.
      LEAVE TO SCREEN 0.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100  INPUT

*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
* Crea los objetos
  IF go_custom_container IS INITIAL.
    CREATE OBJECT go_custom_container
      EXPORTING
        container_name = 'ALV_CONTAINER'.

    CREATE OBJECT go_grid
      EXPORTING
        i_parent = go_custom_container.

    PERFORM load_data_into_grid.
  ENDIF.
ENDMODULE.                 " STATUS_0100  OUTPUT

*&---------------------------------------------------------------------*
*&      Form  load_data_into_grid
*&---------------------------------------------------------------------*
FORM load_data_into_grid.
* Read data from table SFLIGHT
  SELECT *
    FROM sflight
    INTO TABLE it_sflight.

* Carga los datos en el grid y los muestra por pantalla
  CALL METHOD go_grid->set_table_for_first_display
    EXPORTING
      i_structure_name = 'SFLIGHT'
    CHANGING
      it_outtab        = it_sflight.

ENDFORM.                    " load_data_into_grid

VIA: sap4.com/wiki/index.php?title=ALV_Grid

Última Edición: 10 años 3 meses antes por raulete.

Por favor, Iniciar sesión o Crear cuenta para unirse a la conversación.

Tiempo de carga de la página: 1.057 segundos

Gracias a Foro Kunena