HellO all
i'm trying to display the data of an internal table in to ALV Report. But when i try to show to report i get that No field catalog available exception.
Any ideas on how to solve this?
Here is part of my code.
i'm trying to display the data of an internal table in to ALV Report. But when i try to show to report i get that No field catalog available exception.
Any ideas on how to solve this?
Here is part of my code.
Código:
FORM DISP_ALV.
DATA: it_field_cat TYPE TABLE OF slis_fieldcat_alv,
layout_alv TYPE slis_layout_alv.
"PERFORM ORDENAR_CAMPOS CHANGING WA_VETAS.
* Estableciendo las configuraciones del layout del grid.
layout_alv-colwidth_optimize = 'X'.
layout_alv-zebra = 'X'.
layout_alv-edit = space.
layout_alv-no_input = 'X'.
layout_alv-info_fieldname = 'COLOR_COLUMN'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = sy-cprog
i_callback_pf_status_set = 'SET_PF_STATUS'
i_callback_top_of_page = 'TOP_OF_PAGE'
is_layout = layout_alv
it_fieldcat = it_field_cat
i_save = 'A'
TABLES
t_outtab = wa_VTAS
EXCEPTIONS
program_error = 1
OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM.
FORM ORDENAR_CAMPOS CHANGING it_field_catalog TYPE table.
DATA: wa_field_cat TYPE slis_fieldcat_alv.
"Codigo Cliente
CLEAR wa_field_cat.
wa_field_cat-fieldname = 'KUNNR'.
wa_field_cat-ref_tabname = 'WA_VTAS-KUNNR'.
wa_field_cat-seltext_s = 'CLIENTE'.
APPEND wa_field_cat TO it_field_catalog.
"Ventas Hiscoticas
CLEAR wa_field_cat.
wa_field_cat-fieldname = 'vneta-h'.
wa_field_cat-ref_tabname = 'WA_VTAS-vneta-h'.
wa_field_cat-seltext_m = 'Historico'.
APPEND wa_field_cat TO it_field_catalog.
CLEAR wa_field_cat.
wa_field_cat-fieldname = 'vneta-a'.
wa_field_cat-ref_tabname = 'WA_VTAS-vneta-a'.
wa_field_cat-seltext_m = 'Actueal'.
APPEND wa_field_cat TO it_field_catalog.
Comentario