Ver Mensaje Individual
  #1  
Viejo 17/04/07, 17:20:19
Vero2007 Vero2007 is offline
Member
 
Fecha de Ingreso: mar 2007
Mensajes: 38
Hacer Una Alv En Una Dynpro

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
Responder Con Cita