[akiestudio]

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