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
***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