ABAP SAPMM

[seydaoztrk]

REPORT zmm_malzeme_alv.

TABLES: mara.

TYPES: BEGIN OF ty_malzeme,
matnr TYPE mara-matnr,
mtart TYPE mara-mtart,
matkl TYPE mara-matkl,
ersda TYPE mara-ersda,
END OF ty_malzeme.

DATA: lt_malzeme TYPE TABLE OF ty_malzeme,
lt_fieldcat TYPE lvc_t_fcat,
ls_fieldcat TYPE lvc_s_fcat.

SELECT-OPTIONS: s_matnr FOR mara-matnr.

START-OF-SELECTION.

SELECT matnr mtart matkl ersda
FROM mara
INTO TABLE lt_malzeme
WHERE matnr IN @s_matnr.

IF sy-subrc <> 0.
MESSAGE 'Malzeme bulunamadı.' TYPE 'I'.
EXIT.
ENDIF.

CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'MATNR'.
ls_fieldcat-seltext_m = 'Malzeme No'.
APPEND ls_fieldcat TO lt_fieldcat.

CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'MTART'.
ls_fieldcat-seltext_m = 'Malzeme Türü'.
APPEND ls_fieldcat TO lt_fieldcat.

CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'MATKL'.
ls_fieldcat-seltext_m = 'Malzeme Grubu'.
APPEND ls_fieldcat TO lt_fieldcat.

CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'ERSDA'.
ls_fieldcat-seltext_m = 'Oluşturulma Tarihi'.
APPEND ls_fieldcat TO lt_fieldcat.

" ALV çıktısını göster
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = sy-repid
it_fieldcat = lt_fieldcat
TABLES
t_outtab = lt_malzeme
EXCEPTIONS
program_error = 1
OTHERS = 2.

IF sy-subrc <> 0.
MESSAGE 'ALV görüntüleme hatası!' TYPE 'E'.
ENDIF.