Spaltenüberschriften in einem ALV ändern

Spaltenüberschriften in einem ALV ändern

Hallo,

Ich lasse in meinem ALV Klassifizierungen mittels dem CLAF_CLASSIFICATION_OF_OBJECTS zu Objekten ausgeben.
Mit folgendem code:
" ... CALL FUNCTION 'CLAF_CLASSIFICATION_OF_OBJECTS'
EXPORTING
class = lw_ziappliclass-class
classtext = 'X'
classtype = '002'
clint = 0
features = 'X'
language = sy-langu
object = l_object
* OBJECTTABLE = ' '
key_date = sy-datum
* INITIAL_CHARACT = 'X'
* NO_VALUE_DESCRIPT =
change_service_clf = 'X'
* INHERITED_CHAR = ' '
* CHANGE_NUMBER = ' '
TABLES
t_class = it_class
t_objectdata = it_objectdata
* I_SEL_CHARACTERISTIC =
* T_NO_AUTH_CHARACT =
EXCEPTIONS
no_classification = 1
no_classtypes = 2
invalid_class_type = 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.


CLEAR counter.

LOOP AT it_objectdata INTO ls_objectdata.

ADD 1 TO counter.

CONCATENATE 'WA_DATA-AUSP1_' counter INTO fieldname.
ASSIGN (fieldname) TO <l_field>.


IF <l_field> IS ASSIGNED.

IF ls_objectdata-ausp1 = '?'.
<l_field> = ''.

ELSE.

<l_field> = ls_objectdata-ausp1.

ENDIF.

ENDIF.


ENDLOOP.


APPEND wa_data TO it_data.
... "

Die Ausgabe ist nun so, dass die Zeilen aus dem Funktionsbaustein in Spalten in meinem ALV ausgegeben werden.

-> Wie kann ich nun aus dem BAPI_CLASS_GETDETAIL die Bezeichnungen (DESCR) der Merkmale (NAME_CHAR), die mit dem SMBEZ des Fkt.bausteins CLAF_CLASSIFICATION_OF_OBJECTS zusammenhängen, als Überschrift in mein ALV bringen (statt dem bisherigen Characteristic Value) ?
(- siehe screenshot um sich mein "Problem" besser vorzustellen...)
Mein bisheriger Code dazu sieht folgendermaßen aus ->
** Überschriften zu den Texten lesen.
CALL FUNCTION 'BAPI_CLASS_GETDETAIL'
EXPORTING
classtype = '002'
classnum = lw_ziappliclass-class
* LANGUISO =
languint = sy-langu
* KEYDATE = SY-DATUM
* IMPORTING
* CLASSBASICDATA =
* CLASSDOCUMENT =
* CLASSADDITIONAL =
* CLASSSTANDARD =
* RETURN =
TABLES
* CLASSDESCRIPTIONS =
* CLASSLONGTEXTS =
classcharacteristics = it_classchar
* CLASSCHARVALUES =
.


ls_classchar-name_char = ls_objectdata-smbez.


CLEAR counter.

LOOP AT it_classchar INTO ls_classchar.

ADD 1 TO counter.


READ TABLE it_fieldcat INTO lw_fieldcat WITH KEY fieldname =
fieldname.

IF sy-subrc = 0.

lw_fieldcat-seltext_s = lw_fieldcat-seltext_m =
lw_fieldcat-seltext_l = ls_objectdata-smbez.

MODIFY it_fieldcat FROM lw_fieldcat INDEX sy-tabix.

ENDIF.


ENDLOOP.

Wobei dafür brauch' ich doch auch concatenate? oder?

Danke!
lg

Hallo,

mal zusätzlich zu den Feldern lw_fieldcat-seltext_s = lw_fieldcat-seltext_m =
lw_fieldcat-seltext_l noch das Feld lw_fieldcat-reptext_ddic füllen.

LOOP AT it_fieldcat INTO lw_fieldcat.
ADD 1 TO counter.
CONCATENATE 'L_FIELD' counter INTO lv_field.
READ TABLE it_fieldcat INTO lw_fieldcat WITH KEY fieldname =
lv_field.

ist da nicht
LOOP AT it_fieldcat INTO lw_fieldcat where fieldname CP 'L_FIELD*'.
einfacher?

ls_classchar-descr ändert sich im loop nicht! Ist das so OK, dass x-mal die selbe Spaltenüberschrift kommen soll?


Ansonsten mal einen Breakpoint setzen und die Feldinhalte prüfen, damit kann die Frage "Jedoch ich vermute, dass bei mir der Fehler beim read_table bzw. schon vorher beim concatenate liegt, oder? " geklärt werden.


Viele Grüße
Alex