Code: Alles auswählen.
LOOP AT lt_fieldcat ASSIGNING <ls_fieldcat>.
IF <ls_fieldcat>-fieldname = 'AUTYP' " >> Hier muss die Bedingung Value 30 sein
IF <ls_fieldcat>-fieldname = 'HRST_TOBJ'
OR <ls_fieldcat>-fieldname = 'LP_TOBJ'
OR <ls_fieldcat>-fieldname = 'WAERS'.
<ls_fieldcat>-edit = abap_true.
ENDIF.
ENDIF.
ENDLOOP.
Code: Alles auswählen.
LOOP AT it_table ASSIGNING <ls_line>.
IF <ls_line>-autyp EQ 30. "Eingabebereit setzen
READ TABLE <ls_line>-style ASSIGNING <ls_style> WITH KEY fieldname = 'HRST_TOBJ'.
IF sy-subrc NE 0.
APPEND INITIAL LINE TO <ls_line>-style ASSIGNING <ls_style>.
<ls_style>-fieldname = 'HRST_TOBJ'.
ENDIF.
<ls_style>-style = CL_GUI_ALV_GRID=>MC_STYLE_ENABLED.
* Auch die anderen Felder so behandeln!
ELSE. "Nicht eingabebereit setzen
DELETE TABLE <ls_line>-style WHERE fieldname = 'HRST_TOBJ'.
* Auch die anderen Felder so behandeln!
ENDIF.
ENDLOOP.
Folgende Benutzer bedankten sich beim Autor a-dead-trousers für den Beitrag:
hausi