#1
|
|||
|
|||
no consigo cargar las tablas en el contenedor
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 |
Herramientas | Buscar en Tema |
Desplegado | |
|
|