Spaltenüberschriften in ALV

Spaltenüberschriften in ALV

Hey,
ich habe folgendes Problem. Da wir ABAP-Einsteiger sind programmieren wir zur Zeit Schiffe Versenken in ABAP, als Einstieg.
Mittlerweile klappt alles soweit. Mein Problem ist grade aber, das ich über einen ALV eine Tabelle ausgebe in der wir später Treffer und Fehlschüsse anzeigen wollen.
Bisher habe ich in der Tabelle nur ICONS als Platzhalter. ICONS, einfach aus dem Grund da es schöner aussieht.
Aber wenn ich ein ICON einfüge, dann habe ich das Problem das meine Spaltenüberschrift z.B. 'A' mit 'Id' überschrieben wird.
Kann aber grade nicht ganz verstehen wieso, da meine Änderungen im Feldkatalog mit denen ich das 'A' angebe eigentlich später vorgenommen werden als das Einfügen des ICONS.

Hier mal mein Quellcode für das Befüllen der Tabelle und den für meinen ALV und die Modifizierung des Feldkatalogs:

**********************************************************
FORM ITAB_SETZEN.

DATA: lwa_tab TYPE ZSV_TEST_STRUK.
FIELD-SYMBOLS: <fs_k>.

REFRESH itab.
DO 10 TIMES.
ASSIGN COMPONENT sy-index OF STRUCTURE lwa_tab TO <fs_k>.
<fs_k> = ICON_WD_RADIO_BUTTON.

ENDDO.

DO 10 TIMES.
APPEND lwa_tab TO itab.
ENDDO.

ENDFORM.
**********************************************************
**********************************************************
FORM ALV_AUSGABE .

data: t_fcat type lvc_t_fcat.
data: ls_fcat type LVC_S_FCAT.
data: l_tabix like sy-tabix.


CREATE OBJECT R_CONTAINER "Tabellen-container wird erstellt
EXPORTING
* PARENT =
CONTAINER_NAME = 'CONTAINER'"Name
* 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
.
IF SY-SUBRC <> 0. "Falls ein Fehler auftritt ausgabe Fehlermeldung
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

* IF R_GRID IS INITIAL.

CREATE OBJECT R_GRID
EXPORTING
* I_SHELLSTYLE = 0
* I_LIFETIME =
I_PARENT = R_CONTAINER
* I_APPL_EVENTS = space
* I_PARENTDBG =
* I_APPLOGPARENT =
* I_GRAPHICSPARENT =
* I_NAME =
* I_FCAT_COMPLETE = SPACE
* EXCEPTIONS
* ERROR_CNTL_CREATE = 1
* ERROR_CNTL_INIT = 2
* ERROR_CNTL_LINK = 3
* ERROR_DP_CREATE = 4
* others = 5
.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

CALL FUNCTION 'LVC_FIELDCATALOG_MERGE' "Feldkatalog aufrufen
EXPORTING
I_BUFFER_ACTIVE = space
I_STRUCTURE_NAME = 'ZSV_TEST_STRUK'
I_CLIENT_NEVER_DISPLAY = 'X'
I_BYPASSING_BUFFER = 'X'
CHANGING
CT_FIELDCAT = t_fcat[]
EXCEPTIONS
INCONSISTENT_INTERFACE = 1
PROGRAM_ERROR = 2
OTHERS = 3.


LOOP AT t_fcat INTO ls_fcat. "Feldkatalog t_fcat in ls_fcat loopen und Felder ändern
l_tabix = sy-tabix.
CASE ls_fcat-fieldname.
WHEN 'S0'.
ls_fcat-SCRTEXT_S = 'A'.
WHEN 'S1'.
ls_fcat-SCRTEXT_S = 'B'.
WHEN 'S2'.
ls_fcat-SCRTEXT_S = 'C'.
WHEN 'S3'.
ls_fcat-SCRTEXT_S = 'D'.
WHEN 'S4'.
ls_fcat-SCRTEXT_S = 'E'.
WHEN 'S5'.
ls_fcat-SCRTEXT_S = 'F'.
WHEN 'S6'.
ls_fcat-SCRTEXT_S = 'G'.
WHEN 'S7'.
ls_fcat-SCRTEXT_S = 'H'.
WHEN 'S8'.
ls_fcat-SCRTEXT_S = 'I'.
WHEN 'S9'.
ls_fcat-SCRTEXT_S = 'J'.
ENDCASE.
MODIFY t_fcat FROM ls_fcat INDEX l_tabix. "t_fcat mit Daten aus ls_fcat modifyen
ENDLOOP.

CALL METHOD R_GRID->SET_TABLE_FOR_FIRST_DISPLAY "Methode um die Tabelle zur ersten Anzeige zu laden
EXPORTING
* I_BUFFER_ACTIVE =
* I_BYPASSING_BUFFER =
* I_CONSISTENCY_CHECK =
I_STRUCTURE_NAME = 'ZSV_TEST_STRUK' "Name der Struktur die zugrunde liegt
* IS_VARIANT =
* I_SAVE =
* I_DEFAULT = 'X'
IS_LAYOUT = gs_layout
* IS_PRINT =
* IT_SPECIAL_GROUPS =
* IT_TOOLBAR_EXCLUDING =
* IT_HYPERLINK =
* IT_ALV_GRAPHICS =
* IT_EXCEPT_QINFO =
* IR_SALV_ADAPTER =
CHANGING
IT_OUTTAB = ITAB "Tabelle die ausgegeben bzw angezeigt wird
IT_FIELDCATALOG = t_fcat
* 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.
ENDFORM.

Re: Spaltenüberschriften in ALV

Jop danke, bin grade auf der Suche danach. Hab aus einem anderen Post 'COLDDICTXT = abap_false' genommen. Aber hat nich geklappt bis jetzt.

Re: Spaltenüberschriften in ALV

Sali,

COLTEXT = dein Text
SCRTEXT_L = dein Text
SCRTEXT_M = dein text
SCRTEXT_S = dein Text
COLDDICTXT = abap_false
SELDDICTXT = abap_false
TIPDDICTXT = abap_false

Gruss

Re: Spaltenüberschriften in ALV

Tausend mal Entschuldigung! Hatte einen Fehler in den Benennung meiner Strukturfelder.
Mit:
ls_fcat-SCRTEXT_S = 'A'.
ls_fcat-COLTEXT = 'A'.
ls_fcat-SCRTEXT_L = 'A'.
ls_fcat-SCRTEXT_M = 'A'.
ls_fcat-SCRTEXT_S = 'A'.
ls_fcat-COLDDICTXT = abap_false.
ls_fcat-SELDDICTXT = abap_false.
ls_fcat-TIPDDICTXT = abap_false.

Hat es geklappt.
Entschuldigt bitte meine Blindheit.
Und danke nochmal an jensschladitz und a-dead-trousers und alle die noch mitgeholfen haben!