PDA

Ver la Versión Completa : no consigo cargar las tablas en el contenedor


akiestudio
20/10/08, 14:46:06
Hola muchas gracias , tengo el problema de que no cargo los datos de la tabla sflight en el contenedor , alguien puede echarle un ojo que puede sucerderme , aqui esta el include , si creis que el error puede estar en la pai o pbo .... decidmelo , muchas gracias


***INCLUDE ZFRAN_SFLIGHT .
*----------------------------------------------------------------------*

DATA: IT_SFLIGHT TYPE TABLE OF SFLIGHT,
HE_SFILGHT LIKE LINE OF it_sflight.

DATA: IT_TABLA TYPE LVC_T_FCAT,
HE_TABLA LIKE LINE OF IT_TABLA.

DATA: CONTENEDOR TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
ALV TYPE REF TO CL_GUI_ALV_GRID.

* ESTO MEJORA LA ESTETICA DE LA TABLA

DATA LAYOUT TYPE LVC_S_LAYO.

START-OF-SELECTION.
*CREAMOS LOS OBJETOS

create object contenedor
exporting
container_name = 'CONTENEDOR'.


create object alv
exporting
i_parent = CONTENEDOR.

LAYOUT-ZEBRA = 'X'.
LAYOUT-SEL_MODE = 'C'.

*CARGAMOS LAS TABLAS CON LOS CAMPOS DESEADOS

HE_TABLA-FIELDNAME = 'CARRID'.
HE_TABLA-REF_TABLE = 'SFLIGHT'.
APPEND HE_TABLA TO IT_TABLA.
CLEAR HE_TABLA.

HE_TABLA-FIELDNAME = 'CONNID'.
HE_TABLA-REF_TABLE = 'SFLIGHT'.
APPEND HE_TABLA TO IT_TABLA.
CLEAR HE_TABLA.

HE_TABLA-FIELDNAME = 'FLDATE'.
HE_TABLA-REF_TABLE = 'SFLIGHT'.
APPEND HE_TABLA TO IT_TABLA.
CLEAR HE_TABLA.

HE_TABLA-FIELDNAME = 'PRICE'.
HE_TABLA-REF_TABLE = 'SFLIGHT'.
APPEND he_tabla TO IT_TABLA.
CLEAR HE_TABLA.

HE_TABLA-FIELDNAME = 'CURRENCY'.
HE_TABLA-REF_TABLE = 'SFLIGHT'.
append he_tabla TO IT_TABLA.
CLEAR HE_TABLA.

SELECT * INTO TABLE IT_SFLIGHT FROM SFLIGHT .

call method alv->set_table_for_first_display
exporting

is_layout = LAYOUT

changing
it_outtab = IT_SFLIGHT.
it_fieldcatalog = IT_TABLA.



end-of-selection.



*&---------------------------------------------------------------------*
*& Module PBO_SFLIGHT OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
module PBO_SFLIGHT output.
SET PF-STATUS PBO_SFLIGHT.


endmodule. " PBO_SFLIGHT OUTPUT
*&---------------------------------------------------------------------*
*& Module PAI_SFLIGHT INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
module PAI_SFLIGHT input.

SA_CODE = OK_CODE.
CLEAR OK_CODE.

CASE SA_CODE.
WHEN 'BACK' OR 'CANCEL' OR 'EXIT'.
LEAVE PROGRAM.
ENDCASE.



endmodule. " PAI_SFLIGHT INPUT

Rebe22
20/10/08, 15:19:17
Buenas!!

he leído un poco por encima tu problema xq no tengo mucho tiempo para echarle un ojo pero creo (no estoy segura) que te puede faltar definirte la Dynpro en la transacción SE80, te mando este enlace que viene todo explicado a ver si te ayuda y a ver si eso te pasaba :)

http://danielpanaro.wordpress.com/2007/11/26/alv-tree-orientado-a-objetos/

Saludos!




Hola muchas gracias , tengo el problema de que no cargo los datos de la tabla sflight en el contenedor , alguien puede echarle un ojo que puede sucerderme , aqui esta el include , si creis que el error puede estar en la pai o pbo .... decidmelo , muchas gracias


***INCLUDE ZFRAN_SFLIGHT .
*----------------------------------------------------------------------*

DATA: IT_SFLIGHT TYPE TABLE OF SFLIGHT,
HE_SFILGHT LIKE LINE OF it_sflight.

DATA: IT_TABLA TYPE LVC_T_FCAT,
HE_TABLA LIKE LINE OF IT_TABLA.

DATA: CONTENEDOR TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
ALV TYPE REF TO CL_GUI_ALV_GRID.

* ESTO MEJORA LA ESTETICA DE LA TABLA

DATA LAYOUT TYPE LVC_S_LAYO.

START-OF-SELECTION.
*CREAMOS LOS OBJETOS

create object contenedor
exporting
container_name = 'CONTENEDOR'.


create object alv
exporting
i_parent = CONTENEDOR.

LAYOUT-ZEBRA = 'X'.
LAYOUT-SEL_MODE = 'C'.

*CARGAMOS LAS TABLAS CON LOS CAMPOS DESEADOS

HE_TABLA-FIELDNAME = 'CARRID'.
HE_TABLA-REF_TABLE = 'SFLIGHT'.
APPEND HE_TABLA TO IT_TABLA.
CLEAR HE_TABLA.

HE_TABLA-FIELDNAME = 'CONNID'.
HE_TABLA-REF_TABLE = 'SFLIGHT'.
APPEND HE_TABLA TO IT_TABLA.
CLEAR HE_TABLA.

HE_TABLA-FIELDNAME = 'FLDATE'.
HE_TABLA-REF_TABLE = 'SFLIGHT'.
APPEND HE_TABLA TO IT_TABLA.
CLEAR HE_TABLA.

HE_TABLA-FIELDNAME = 'PRICE'.
HE_TABLA-REF_TABLE = 'SFLIGHT'.
APPEND he_tabla TO IT_TABLA.
CLEAR HE_TABLA.

HE_TABLA-FIELDNAME = 'CURRENCY'.
HE_TABLA-REF_TABLE = 'SFLIGHT'.
append he_tabla TO IT_TABLA.
CLEAR HE_TABLA.

SELECT * INTO TABLE IT_SFLIGHT FROM SFLIGHT .

call method alv->set_table_for_first_display
exporting

is_layout = LAYOUT

changing
it_outtab = IT_SFLIGHT.
it_fieldcatalog = IT_TABLA.



end-of-selection.



*&---------------------------------------------------------------------*
*& Module PBO_SFLIGHT OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
module PBO_SFLIGHT output.
SET PF-STATUS PBO_SFLIGHT.


endmodule. " PBO_SFLIGHT OUTPUT
*&---------------------------------------------------------------------*
*& Module PAI_SFLIGHT INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
module PAI_SFLIGHT input.

SA_CODE = OK_CODE.
CLEAR OK_CODE.

CASE SA_CODE.
WHEN 'BACK' OR 'CANCEL' OR 'EXIT'.
LEAVE PROGRAM.
ENDCASE.



endmodule. " PAI_SFLIGHT INPUT

DavidXD_XD
20/10/08, 15:42:08
Hola ... revisate los ejemplos estandar de SAP que comienzan con BCALV*, para tu caso creo q eson los BCALV_GRID_01, BCALV_GRID_02, etc .... espero te ayude ...