Feldkatalog -> Spaltenüberschriften Thema ist als GELÖST markiert

Re: Feldkatalog -> Spaltenüberschriften

Sali,

eine Lösung

*-- Start-of-Selection
START-OF-SELECTION.

DO 5 TIMES.
WRITE sy-index TO lv_index LEFT-JUSTIFIED.
APPEND INITIAL LINE TO it_fcat REFERENCE INTO ref_fcat.
CONCATENATE 'Feld_' lv_index INTO ref_fcat->fieldname.
MOVE ref_fcat->fieldname TO ref_fcat->coltext.

MOVE ref_fcat->fieldname TO ref_fcat->scrtext_m.
MOVE ref_fcat->fieldname TO ref_fcat->scrtext_s.
MOVE ref_fcat->fieldname TO ref_fcat->scrtext_l.
MOVE ref_fcat->fieldname TO ref_fcat->seltext.
MOVE ref_fcat->fieldname TO ref_fcat->reptext.
ref_fcat->datatype = 'CHAR10'.
ref_fcat->inttype = 'CHAR10'.
* APPEND wa_it_fcat TO ta_fcat.
ENDDO.

APPEND INITIAL LINE TO it_fcat REFERENCE INTO ref_fcat.
ref_fcat->fieldname = 'CheckFeld' .
MOVE ref_fcat->fieldname TO ref_fcat->coltext.

MOVE ref_fcat->fieldname TO ref_fcat->scrtext_m.
MOVE ref_fcat->fieldname TO ref_fcat->scrtext_s.
MOVE ref_fcat->fieldname TO ref_fcat->scrtext_l.
MOVE ref_fcat->fieldname TO ref_fcat->seltext.
MOVE ref_fcat->fieldname TO ref_fcat->reptext.
ref_fcat->datatype = 'CHAR'.

CALL METHOD cl_alv_table_create=>create_dynamic_table
EXPORTING
it_fieldcatalog = it_fcat
IMPORTING
ep_table = ref_new_table.

ASSIGN ref_new_table->* TO <fs_dyntab>.



*TRY.
cl_salv_table=>factory(
* EXPORTING
* list_display = IF_SALV_C_BOOL_SAP=>FALSE
* r_container = r_container
* container_name = container_name
IMPORTING
r_salv_table = ref_salv_table
CHANGING
t_table = <fs_dyntab>[]
).
* CATCH cx_salv_msg .
*ENDTRY.

DATA ref_columns TYPE REF TO cl_salv_columns_table.
DATA lt_column TYPE salv_t_column_ref.
DATA ref_column TYPE REF TO salv_s_column_ref.
DATA lv_text TYPE c LENGTH 40.

ref_columns = ref_salv_table->get_columns( ).
lt_column = ref_columns->get( ).

LOOP AT lt_column REFERENCE INTO ref_column.
lv_text = ref_column->columnname.
ref_column->r_column->set_long_text( value = lv_text ).
ref_column->r_column->set_medium_text( value = lv_text+0(20) ).
ref_column->r_column->set_short_text( value = lv_text+0(10) ).
ENDLOOP.

ref_salv_table->display( ).

Gruss