|
#1
|
|||
|
|||
error: stamente is not accessible
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 |
#2
|
|||
|
|||
Todo resuelto con un start-of-selection , y un end-of-selection , se resolvio .
|
Herramientas | Buscar en Tema |
Desplegado | |
|
|