*&———————————————————————*
*& Report ZLMN_DEN_001
*&
*&———————————————————————*
*&
*&
*&———————————————————————*
REPORT ZLMN_DEN_001.
TABLES mara.
DATA line_color(4) type c.
data : BEGIN OF lt_mara OCCURS 0,
matnr like mara-MATNR, ” Malzeme No
AENAM like mara-AENAM, ” Değiştiren
LAEDA like mara-LAEDA, ” Son Değişiklik Tarihi
END OF lt_mara.
SELECT * from mara
into CORRESPONDING FIELDS OF TABLE lt_mara
up to 20 ROWS.
DATA : it_fieldcat TYPE slis_t_fieldcat_alv,
wa_sutun TYPE slis_fieldcat_alv,
gd_layout TYPE slis_layout_alv,
g_save TYPE c VALUE ‘X’,
g_variant TYPE disvariant,
gx_variant TYPE disvariant,
g_exit TYPE c.
PERFORM gridyapisi.
CALL FUNCTION ‘REUSE_ALV_GRID_DISPLAY’
EXPORTING
i_grid_title = ‘Kayıtlar’
it_fieldcat = it_fieldcat
TABLES
t_outtab = lt_mara.
*&———————————————————————*
*& Form GRIDYAPISI
*&———————————————————————*
* text
*———————————————————————-*
FORM gridyapisi.
wa_sutun-fieldname = ‘MATNR’.
wa_sutun-tabname = ‘lt_mara’.
wa_sutun-seltext_m = ‘Malzeme Numarası’.
wa_sutun-
APPEND wa_sutun TO it_fieldcat.
CLEAR wa_sutun.
wa_sutun-fieldname = ‘AENAM’.
wa_sutun-tabname = ‘lt_mara’.
wa_sutun-seltext_m = ‘Değiştiren’.
APPEND wa_sutun TO it_fieldcat.
CLEAR wa_sutun.
wa_sutun-fieldname = ‘LAEDA’.
wa_sutun-tabname = ‘lt_mara’.
wa_sutun-seltext_m = ‘Değiştirme Tarihi’.
APPEND wa_sutun TO it_fieldcat.
CLEAR wa_sutun.
“gd_layout-no_input = ‘X’.
“gd_layout-colwidth_optimize = ‘X’.
“gd_layout-totals_text = ‘Totals'(201).
“gd_layout-zebra = ‘X’.
ENDFORM. ” fieldcatYAPISI
 
 
***********************************************************
Serkan AKKAVAK
Bilgisayar Mühendisi
serkurumsal@yandex.com
SAP ve ABAP konusunda tüm sorun ve sorularınızı gönderebilirsiniz.