здравствуйте друзья. У Меня такой вопрос. Есть Внутрненный таблица
Code:
DATA: BEGIN OF z_tax OCCURS 0,
bukrs LIKE ztax200910008a-rbukrs,
maktx LIKE makt-maktx,
bldat LIKE ztax200910008a-bldat,
MSL LIKE ztax200910008a-msl,
field4(10),
field6(20),
TSL LIKE ztax200910008a-TSL,
field8(20),
field9(20),
field10(20),
end of z_tax.
. как видите там есть поля field4(10),... я так его выгрузил в АЛВ
Code:
FORM fill_fieldcat.
DATA: ls_fc TYPE slis_fieldcat_alv.
DATA: zrep TYPE sy-repid.
zrep = sy-repid. REFRESH dit_fc. CLEAR dit_fc.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
i_program_name = zrep
i_internal_tabname = 'Z_TAX'
i_inclname = zrep
CHANGING
ct_fieldcat = dit_fc
EXCEPTIONS
inconsistent_interface = 1
program_error = 2
OTHERS = 3.
IF sy-subrc <> 0.
EXIT.
ENDIF.
ls_fc-outputlen = 10.
MODIFY dit_fc FROM ls_fc TRANSPORTING outputlen WHERE
fieldname = 'TI_TXT'.
ls_fc-outputlen = 1.
MODIFY dit_fc FROM ls_fc TRANSPORTING outputlen WHERE
fieldname = 'LIFNR'.
ls_fc-outputlen = 1.
MODIFY dit_fc FROM ls_fc TRANSPORTING outputlen WHERE
fieldname = 'NAME'.
MODIFY dit_fc FROM ls_fc TRANSPORTING outputlen WHERE
fieldname = 'XBLNR'.
MODIFY dit_fc FROM ls_fc TRANSPORTING outputlen WHERE
fieldname = 'BUDAT'.
MODIFY dit_fc FROM ls_fc TRANSPORTING outputlen WHERE
fieldname = 'BLDAT'.
MODIFY dit_fc FROM ls_fc TRANSPORTING outputlen WHERE
fieldname = 'ZUONR'.
MODIFY dit_fc FROM ls_fc TRANSPORTING outputlen WHERE
fieldname = 'GUEBG'.
ls_fc-outputlen = 30.
MODIFY dit_fc FROM ls_fc TRANSPORTING outputlen WHERE
fieldname = 'RA_TXT'.
MODIFY dit_fc FROM ls_fc TRANSPORTING outputlen WHERE
fieldname = 'SA_TXT'.
ENDFORM. "fill_fieldcat
*&---------------------------------------------------------------------
*& Form DISPLAY_LIST
*&---------------------------------------------------------------------
FORM display_list.
DATA: d_save.
DATA ls_sort TYPE slis_sortinfo_alv.
DATA it_sort TYPE slis_t_sortinfo_alv.
DATA: zrep TYPE sy-repid.
zrep = sy-repid.
* ls_slis_t_event-name = 'TOP_OF_PAGE'.
* ls_slis_t_event-form = 'TOP_OF_PAGE'.
* APPEND ls_slis_t_event TO d_slis_t_event.
* d_save = 'A'.
* ls_sort-spos = '1'.
* ls_sort-fieldname = 'TAXCODE'.
* ls_sort-subtot = 'X'.
* ls_sort-up = 'X'.
* ls_sort-down = space .
* APPEND ls_sort TO it_sort .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = zrep
i_callback_user_command = d_user_command_form
is_layout = ds_layout
it_fieldcat = dit_fc
* IT_EXCLUDING =
i_default = 'X'
i_save = d_save
is_variant = ds_variant
it_sort = it_sort
it_events = d_slis_t_event
* IT_EVENT_EXIT =
* is_print = ds_print
TABLES
t_outtab = z_tax
EXCEPTIONS
program_error = 1
OTHERS = 2.
ENDFORM.
как можно эту field4(10) полю переименовать?