Tweet
Intento hacer una alv en una dynpro yno soy capaz.
Parece qeu todo lo hace bien pero no visualiza el resultado en la dynpro 100.
Hay q poner algo en la dynpro (en el paint)?
mi codigo:
(zfitlogs es una tabla hecha por mi en sap)
TABLES: ZFITLOGS.
*--------------------------------------------------------------------
* G L O B A L I N T E R N A L T A B L E S
*--------------------------------------------------------------------
DATA: gi_zfitlogs TYPE STANDARD TABLE OF zfitlogs.
*-------------------------------------------------------------------
*G L O B A L D A T A
*--------------------------------------------------------------------
DATA: ok_code LIKE sy-ucomm,
g_wa_sflight LIKE zfitlogs.
* 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.
CASE OK_CODE.
WHEN 'EXIT'.
LEAVE TO SCREEN 0.
ENDCASE.
ENDMODULE. " USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
SET PF-STATUS 'MENU100'.
* Crea los objetos
IF go_custom_container IS INITIAL.
* Creación del obj. en el contenedor
CREATE OBJECT go_custom_container
EXPORTING container_name = 'ALV_CONTAINER'.
* Creación de la grid a partir del contenedor
CREATE OBJECT go_grid
EXPORTING
i_parent = go_custom_container.
* Llenado de datos
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 zfitlogs
INTO TABLE gi_zfitlogs.
* Carga los datos en el grid y los muestra por pantalla
CALL METHOD go_grid->set_table_for_first_display
EXPORTING i_structure_name = 'zfitlogs'
CHANGING it_outtab = gi_zfitlogs.
ENDFORM. " load_data_into_grid
Parece qeu todo lo hace bien pero no visualiza el resultado en la dynpro 100.
Hay q poner algo en la dynpro (en el paint)?
mi codigo:
(zfitlogs es una tabla hecha por mi en sap)
TABLES: ZFITLOGS.
*--------------------------------------------------------------------
* G L O B A L I N T E R N A L T A B L E S
*--------------------------------------------------------------------
DATA: gi_zfitlogs TYPE STANDARD TABLE OF zfitlogs.
*-------------------------------------------------------------------
*G L O B A L D A T A
*--------------------------------------------------------------------
DATA: ok_code LIKE sy-ucomm,
g_wa_sflight LIKE zfitlogs.
* 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.
CASE OK_CODE.
WHEN 'EXIT'.
LEAVE TO SCREEN 0.
ENDCASE.
ENDMODULE. " USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
SET PF-STATUS 'MENU100'.
* Crea los objetos
IF go_custom_container IS INITIAL.
* Creación del obj. en el contenedor
CREATE OBJECT go_custom_container
EXPORTING container_name = 'ALV_CONTAINER'.
* Creación de la grid a partir del contenedor
CREATE OBJECT go_grid
EXPORTING
i_parent = go_custom_container.
* Llenado de datos
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 zfitlogs
INTO TABLE gi_zfitlogs.
* Carga los datos en el grid y los muestra por pantalla
CALL METHOD go_grid->set_table_for_first_display
EXPORTING i_structure_name = 'zfitlogs'
CHANGING it_outtab = gi_zfitlogs.
ENDFORM. " load_data_into_grid
.
Comentario