ABAP / DEMO

Abap kullanıcı işlemleri için örnek bir senaryo üzerinden demo program yaparak daha önceki yazılarımda bulunan bilgilerden karma bir sonuç elde etmeye çalıştım.

Senaryo şudur ki; malzeme listesinin ve bilgilerinin yer aldığı MARA – MARD – MAKT tablolarını kullanarak ekranda listeleyeceğimiz malzeme listesinden seçilen bir malzemeye ait olan detaylı bilgileri ayrı bir ekranda alv grid üzerinden gösterme işlemini sağlıyor olacağız.

Kullanıcıdan alacağımız 2 adet parametreye göre yukarıda belirttiğim tablolarda yer alan bilgileri eşleştirerek öncelikle dönen malzemeleri ekrana liste şeklinde yazdıracağız. Daha sonra bu listeden istediğimiz bir malzemeye tıklayarak o malzemeye ait bazı detay bilgilerini alv grid üzerinde ekrana yansıtacağız.

Programlamaya başlarken ilk olarak yapmamız gereken ihtiyacımız olan internal tablolar ve gerekli değişken tiplerinin belirlenmesi.

TYPES : BEGIN OF STR_MARA,
          MATNR LIKE MARA-MATNR,
          ERSDA LIKE MARA-ERSDA,
          ERNAM LIKE MARA-ERNAM,
          LAEDA LIKE MARA-LAEDA,
          MTART LIKE MARA-MTART,
          MATKL LIKE MARA-MATKL,
          MEINS LIKE MARA-MEINS,
        END OF STR_MARA.
DATA : WA_MARA TYPE STR_MARA,
       IT_MARA TYPE TABLE OF STR_MARA.

TYPES : BEGIN OF IT_TY_FINAL,
          MATNR LIKE MARA-MATNR,
          ERSDA LIKE MARA-ERSDA,
          ERNAM LIKE MARA-ERNAM,
          LAEDA LIKE MARA-LAEDA,
          MTART LIKE MARA-MTART,
          MATKL LIKE MARA-MATKL,
          MEINS LIKE MARA-MEINS,
          LGORT LIKE MARD-LGORT,
          WERKS LIKE MARD-WERKS,
        END OF IT_TY_FINAL.

DATA : IT_FINAL TYPE TABLE OF IT_TY_FINAL.
DATA: WA_FINAL  TYPE IT_TY_FINAL.


DATA: FIELDCATALOG TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,
      GD_TAB_GROUP TYPE SLIS_T_SP_GROUP_ALV,
      GD_LAYOUT    TYPE SLIS_LAYOUT_ALV.

PARAMETERS : PLANT TYPE MARD-WERKS,
             STOR  LIKE MARD-LGORT.
INITIALIZATION.

START-OF-SELECTION.
  PERFORM APPEND_IT_FINAL.
  IF IT_FINAL IS NOT INITIAL.
    PERFORM BUILD_FIELD_CATALOG.
    PERFORM BUILD_LAYOUT.
    PERFORM DISPLAY_ALV_REPORT.
  ENDIF.

Tanımlamaları yaptıktan sonra select ile sorgularımızı yapıp belirlenen kriterlere göre tablolardan verileri çekerek internal tablolara doldurabiliriz.

MARA-MAKT-MARD tabloları arasında MATNR key alanı ile yapacağımız select join işlemi ile IT_MARA tablosunu dolduruyoruz. IT_MARA tablosundaki eşlenik alanları daha sonrasında ekrana yansıtacağımız IT_FINAL tablosuna eşitleyerek alv raporumuzu ekrana yansıtıyoruz. PERFORM append_it_final işlemi içerisinde listeden seçtiğimiz malzemenin matnr değerine sahip olan malzemenin it_mara tablosundaki detay verilerini it_final tablosuna yazdırıyoruz.

FORM DISPLAY_ALV_REPORT .

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM       = SY-REPID
      IS_LAYOUT                = GD_LAYOUT
      I_CALLBACK_PF_STATUS_SET = 'SET_PF_STATUS'
      IT_FIELDCAT              = FIELDCATALOG[]
      I_CALLBACK_USER_COMMAND  = 'USER_COMMAND'
      I_SAVE                   = 'X'
    TABLES
      T_OUTTAB                 = IT_FINAL
    EXCEPTIONS
      PROGRAM_ERROR            = 1
      OTHERS                   = 2.
  IF SY-SUBRC <> 0.
  ENDIF.
ENDFORM.

FORM BUILD_LAYOUT.
  GD_LAYOUT-ZEBRA             = 'X'.
  GD_LAYOUT-NO_INPUT          = 'X'.
  GD_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
  GD_LAYOUT-TOTALS_TEXT       = 'Totals'(201).
ENDFORM.                    " BUILD_LAYOUT

FORM BUILD_FIELD_CATALOG .

  FIELDCATALOG-FIELDNAME   = 'MATNR'.
  FIELDCATALOG-SELTEXT_M   = 'Malzeme No'.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR FIELDCATALOG.
  FIELDCATALOG-FIELDNAME = 'ERSDA'.
  FIELDCATALOG-SELTEXT_M   = 'Yaratma Tarihi'.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR FIELDCATALOG.

  FIELDCATALOG-FIELDNAME = 'ERNAM'.
  FIELDCATALOG-SELTEXT_M   = 'Yaratan Kişi'.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR FIELDCATALOG.

  FIELDCATALOG-FIELDNAME = 'LAEDA'.
  FIELDCATALOG-SELTEXT_M   = 'Son Değişiklik'.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR FIELDCATALOG.


  FIELDCATALOG-FIELDNAME = 'MTART'.
  FIELDCATALOG-SELTEXT_M   = 'Malzeme Türü'.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR FIELDCATALOG.

  FIELDCATALOG-FIELDNAME = 'MATKL'.
  FIELDCATALOG-SELTEXT_M   = 'Mal Grubu'.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR FIELDCATALOG.

  FIELDCATALOG-FIELDNAME = 'LGORT'.
  FIELDCATALOG-SELTEXT_M   = 'Depo Yeri'.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR FIELDCATALOG.

  FIELDCATALOG-FIELDNAME = 'WERKS'.
  FIELDCATALOG-SELTEXT_M   = 'Üretim Yeri'.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR FIELDCATALOG.

ENDFORM.                    " BUILD_FIELD_CATALOG
*&---------------------------------------------------------------------*
FORM APPEND_IT_FINAL .


  SELECT MARA~MATNR
  INTO CORRESPONDING FIELDS OF TABLE IT_MARA
  FROM MARA INNER JOIN MAKT ON ( MARA~MATNR = MAKT~MATNR )
            INNER JOIN MARD ON ( MAKT~MATNR = MARD~MATNR )
  WHERE MARD~LGORT = STOR AND MARD~WERKS = PLANT  .


  LOOP AT IT_MARA INTO WA_MARA.
    WA_FINAL-MATNR = WA_MARA-MATNR.
    WA_FINAL-ERSDA = WA_MARA-ERSDA.
    WA_FINAL-ERNAM = WA_MARA-ERNAM.
    WA_FINAL-LAEDA = WA_MARA-LAEDA.
    WA_FINAL-MTART = WA_MARA-MTART.
    WA_FINAL-MATKL = WA_MARA-MATKL.
    WA_FINAL-LGORT = STOR.
    WA_FINAL-WERKS = PLANT.
    APPEND  WA_FINAL TO  IT_FINAL.
  ENDLOOP.
ENDFORM.                    " APPEND_IT_FINAL
*&---------------------------------------------------------------------*
MODULE STATUS_9001 OUTPUT.
  SET PF-STATUS 'STANDARTD'.
ENDMODULE.

MODULE USER_COMMAND_9001 INPUT.
  IF SY-UCOMM = 'BACK'.
    LEAVE PROGRAM.
  ELSEIF SY-UCOMM = 'OUT'.

    LEAVE PROGRAM.
  ENDIF.
ENDMODULE.