Material Movements

Material Movements.abap

REPORT  zrapor_mseg_mkpf.
TABLES: mkpf,
        mseg.

DATA: BEGIN OF gs_search,

        mblnr   TYPE  mkpf-mblnr, "Number of Material Document
        tcode2  TYPE  mkpf-tcode2,"Transaction Code
        budat   TYPE  mkpf-budat, "Posting Date in the Document
        cpudt   TYPE  mkpf-cpudt, "Day On Which Accounting Document Was Entered
        cputm   TYPE  mkpf-cputm, "Time of Entry
        usnam   TYPE  mkpf-usnam, "User Name
        bldat   TYPE  mkpf-bldat, "Document Date in Document
        bktxt   TYPE  mkpf-bktxt, "Document Header Text

        bwart   TYPE  mseg-bwart, "Movement Type (Inventory Management)
        sobkz   TYPE  mseg-sobkz, "Special Stock Indicator

        htext   TYPE  t157h-htext, "Text Field of Length 60

      END OF gs_search.

DATA gt_search LIKE STANDARD TABLE OF gs_search.
SELECTION-SCREEN BEGIN OF BLOCK b1.
PARAMETERS:
* From date
bastar TYPE sydatum DEFAULT '20120701',
* To date
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_search
    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_search INTO gs_search.
    SELECT SINGLE htext INTO gs_search-htext FROM t157h
      WHERE bwart = gs_search-bwart
       AND sobkz = gs_search-sobkz
       AND spras = sy-langu
       AND tcode = gs_search-tcode2.
    MODIFY gt_search FROM gs_search.
  ENDLOOP.

  WRITE:/ 'Number of Material Document','Transaction Code','Posting Date in the Document','Day On Which Accounting Document Was Entered','Time of Entry','User Name','Document Date in Document','Document Header Text','Movement Type (Inventory Management)','Text Field of Length 60'.
  LOOP AT gt_search INTO gs_search.

    WRITE:/ gs_search-mblnr,gs_search-tcode2,gs_search-budat,gs_search-cpudt,gs_search-cputm,gs_search-usnam,gs_search-bldat,gs_search-bktxt,gs_search-bwart,gs_search-htext.

  ENDLOOP.