akiestudio
19/10/08, 16:55:51
Hola buenas estoy haciendo unas pruebas para iniciarme en este mundo de abap y resulta que me dice este error de stament is not accesible en las lineas de que he subrayado en negrita y no se cual puede ser el problema , alguna ayuda gracias
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.
*CREAMOS LOS OBJETOS
create object contenedor
exporting
container_name = 'CONTENEDOR DE TABLAS'.
* style =
* lifetime = lifetime_default
* repid =
* dynnr =
* no_autodef_progid_dynnr =
* exceptions
* cntl_error = 1
* cntl_system_error = 2
* create_error = 3
* lifetime_error = 4
* lifetime_dynpro_dynpro_link = 5
* others = 6
create object alvexporting
* i_shellstyle = 0
* i_lifetime =
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_TABLE TO IT_TABLA.
CLEAR HE_TABLA.
HE_TABLA-FIELDNAME = 'PRICE'.
HE_TABLA-REF_TABLE = 'SFLIGHT'.
APPEND HE_TABLE TO IT_TABLA.
CLEAR HE_TABLA.
HE_TABLA-FIELDNAME = 'CURRENCY'.
HE_TABLA-REF_TABLE = 'SFLIGHT'.
ŔPPEND HE_TABLE TO IT_TABLA.
CLEAR HE_TABLA.
SELECT * FROM SFLIGHT INTO TABLE IT_SFLIGHT.
call method alv->set_table_for_first_display
* exporting
* i_buffer_active =
* i_bypassing_buffer =
* i_consistency_check =
* i_structure_name =
* is_variant =
* i_save =
* i_default = 'X'
* is_layout =
* is_print =
* it_special_groups =
* it_toolbar_excluding =
* it_hyperlink =
* it_alv_graphics =
* it_except_qinfo =
* ir_salv_adapter =
changing
it_outtab =
* it_fieldcatalog =
* it_sort =
* it_filter =
* exceptions
* invalid_parameter_combination = 1
* program_error = 2
* too_many_lines = 3
* others = 4
.
if sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
*&---------------------------------------------------------------------*
*& 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
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.
*CREAMOS LOS OBJETOS
create object contenedor
exporting
container_name = 'CONTENEDOR DE TABLAS'.
* style =
* lifetime = lifetime_default
* repid =
* dynnr =
* no_autodef_progid_dynnr =
* exceptions
* cntl_error = 1
* cntl_system_error = 2
* create_error = 3
* lifetime_error = 4
* lifetime_dynpro_dynpro_link = 5
* others = 6
create object alvexporting
* i_shellstyle = 0
* i_lifetime =
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_TABLE TO IT_TABLA.
CLEAR HE_TABLA.
HE_TABLA-FIELDNAME = 'PRICE'.
HE_TABLA-REF_TABLE = 'SFLIGHT'.
APPEND HE_TABLE TO IT_TABLA.
CLEAR HE_TABLA.
HE_TABLA-FIELDNAME = 'CURRENCY'.
HE_TABLA-REF_TABLE = 'SFLIGHT'.
ŔPPEND HE_TABLE TO IT_TABLA.
CLEAR HE_TABLA.
SELECT * FROM SFLIGHT INTO TABLE IT_SFLIGHT.
call method alv->set_table_for_first_display
* exporting
* i_buffer_active =
* i_bypassing_buffer =
* i_consistency_check =
* i_structure_name =
* is_variant =
* i_save =
* i_default = 'X'
* is_layout =
* is_print =
* it_special_groups =
* it_toolbar_excluding =
* it_hyperlink =
* it_alv_graphics =
* it_except_qinfo =
* ir_salv_adapter =
changing
it_outtab =
* it_fieldcatalog =
* it_sort =
* it_filter =
* exceptions
* invalid_parameter_combination = 1
* program_error = 2
* too_many_lines = 3
* others = 4
.
if sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
*&---------------------------------------------------------------------*
*& 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