REPORT  ZMM_XXX

TABLES  LFAL1. * Vendor Tablosu
DATA  gt_LFAL1 type Table of LFAL1.

*Seçim Ekranını Tanımlıyoruz

SELECT-OPTIONS : so_lifnr FOR IFAL1-lifnr,
so_land1 FOR IFAL1-land1.


* Kayıtları Veritabanından Seç

PERFORM  verileri_sec.
IF sy-subrc =0.
*Seçilen kayıtları ekranda göster
PERFORM verileri_goster.
ELSE
*hiç kayıt secilmedi ve kullanıcıya mesaj veriyoruz
MESSAGE 'Hiç kayıt seçilmedi' TYPE'I'.
END IF


FORM verileri_Sec.
*lfal1 tablosundan max 200 kaydı GT_LFA1 global tablosuna yazıyoruz

select * from lfa1 into table GT_LFA1 up to 200 rows
where lifnr in so_lifnr and land 1 in so_land1.

* Ekranda kullanıcının seçtiği kriterleri sorgumuza ekledik
ENDFORM

FORM verileri_goster.
call function 'RESUSE_ALV_GRID_DISPLAY'
EXPORTING
i_structure_name ='LFA1'
TABLES
t_Outtab = gt_lfa1.
ENDFORM

**********************************************************************
SAP,ABAP ve ERP Süreçleri ile ilgili tüm sorularınız için.

SERKAN AKKAVAK

Bilgisayar Mühendisi
serkurumsal@yandex.com