Malzeme Hareketleri

Malzeme Hareketleri.abap

REPORT  zrapor_mseg_mkpf.
TABLES: mkpf,
        mseg.

DATA: BEGIN OF gs_ara,

        mblnr   TYPE  mkpf-mblnr, "MALZEME BELGESİ
        tcode2  TYPE  mkpf-tcode2,"İŞLEM KODU
        budat   TYPE  mkpf-budat, "KAYIT TARİHİ
        cpudt   TYPE  mkpf-cpudt, "GİRİŞ TARİHİ
        cputm   TYPE  mkpf-cputm, "GİRİŞ SAATİ
        usnam   TYPE  mkpf-usnam, "KULLANICI ADI
        bldat   TYPE  mkpf-bldat, "BELGE TARİHİ
        bktxt   TYPE  mkpf-bktxt, "BELGE BAŞLIĞI METNİ

        bwart   TYPE  mseg-bwart, "İŞLEM TÜRÜ
        sobkz   TYPE  mseg-sobkz, "ÖZEL STOK GÖSTERGESİ

        htext   TYPE  t157h-htext, "İŞLEM TÜRÜ AÇIKLAMASI

      END OF gs_ara.

DATA gt_ara LIKE STANDARD TABLE OF gs_ara.
SELECTION-SCREEN BEGIN OF BLOCK b1.
PARAMETERS:
* Bu tarihten
bastar TYPE sydatum DEFAULT '20120701',
* Bu tarihe kadar
bittar TYPE sydatum DEFAULT '20120930'.

SELECTION-SCREEN END OF BLOCK b1.

AT SELECTION-SCREEN OUTPUT.

START-OF-SELECTION.

  SELECT
        mk~mblnr    mk~tcode2
        mk~budat    mk~cpudt
        mk~cputm    mk~usnam
        mk~bldat    mk~bktxt
        ms~bwart    ms~sobkz
    INTO CORRESPONDING FIELDS OF TABLE gt_ara
    FROM mkpf AS mk
    INNER JOIN mseg AS ms ON mk~mblnr = ms~mblnr
                         AND mk~mjahr = ms~mjahr
    WHERE
          mk~budat
      BETWEEN
          bastar AND bittar.

  LOOP AT gt_ara INTO gs_ara.
    SELECT SINGLE htext INTO gs_ara-htext FROM t157h
      WHERE bwart = gs_ara-bwart
       AND sobkz = gs_ara-sobkz
       AND spras = sy-langu
       AND tcode = gs_ara-tcode2.
    MODIFY gt_ara FROM gs_ara.
  ENDLOOP.

  WRITE:/ 'Malzeme belgesi numarası',29 'İşlem kodu',40 'Kayıt tarihi',53 'Giriş tarihi',66 'Giriş saati',78 'Kullanıcı adı',92 'Belge tarihi',105 'Belge başlığı metni',131 'İşlem türü',142 'İşlem kodu tanımı'.
  LOOP AT gt_ara INTO gs_ara.

    WRITE:/ gs_ara-mblnr,29 gs_ara-tcode2,40 gs_ara-budat,53 gs_ara-cpudt,66 gs_ara-cputm,78 gs_ara-usnam,92 gs_ara-bldat,105 gs_ara-bktxt,131 gs_ara-bwart,142 gs_ara-htext.

  ENDLOOP.