ABAP POPUP Function Modules

Dinamik bir yapıda kullanıcıdan isteyeceğimiz seçenekli bilgiler için POPUP_TO_CONFIRM fonksiyon modülünü kullanabiliriz. POPUP_TO_CONFIRM fonksiyon modülü, kullanıcı için bir onay sorgusu oluşturur.

INCLUDE <ICON>.

DATA: LV_ANSWER(1) TYPE C.

CALL FUNCTION 'POPUP_TO_CONFIRM'
  EXPORTING
    TITLEBAR              = 'Pencere Başlığı Metni'
    TEXT_QUESTION         = 'Emin misiniz?'
    TEXT_BUTTON_1         = 'Evet'
    ICON_BUTTON_1         = 'ICON_CHECKED'
    TEXT_BUTTON_2         = 'Hayır'
    ICON_BUTTON_2         = 'ICON_INCOMPLETE'
    DEFAULT_BUTTON        = '1'
    DISPLAY_CANCEL_BUTTON = SPACE
    START_COLUMN          = 25
    START_ROW             = 6
    POPUP_TYPE            = 'ICON_MESSAGE_WARNING'
    IV_QUICKINFO_BUTTON_1 = 'Buton açıklaması!'
    IV_QUICKINFO_BUTTON_2 = 'Buton açıklaması2!'
  IMPORTING
    ANSWER                = LV_ANSWER
  EXCEPTIONS
    TEXT_NOT_FOUND        = 1
    OTHERS                = 2.
IF SY-SUBRC <> 0.
ENDIF.

POPUP_GET_VALUES fonksiyon modülü, kullanıcıdan bir veya daha fazla alan için parametre girdisi alabilmemizi sağlar.

DATA: LT_FIELDS     TYPE STANDARD TABLE OF SVAL,
      LS_FIELDS     TYPE SVAL,
      LV_RETURNCODE TYPE C.

DATA: LS_BKPF TYPE BKPF.
LS_FIELDS-TABNAME   = 'BKPF'.
LS_FIELDS-FIELDNAME = 'BELNR'.
LS_FIELDS-FIELD_OBL = 'X'.
APPEND LS_FIELDS TO LT_FIELDS.
CLEAR: LS_FIELDS.

CALL FUNCTION 'POPUP_GET_VALUES'
  EXPORTING
    POPUP_TITLE     = 'Belge Numarası'
    START_COLUMN    = '5'
    START_ROW       = '5'
  IMPORTING
    RETURNCODE      = LV_RETURNCODE
  TABLES
    FIELDS          = LT_FIELDS
  EXCEPTIONS
    ERROR_IN_FIELDS = 1
    OTHERS          = 2.

IF LV_RETURNCODE = 'A'.
  EXIT.
ENDIF.

READ TABLE LT_FIELDS INTO LS_FIELDS INDEX 1.
LS_BKPF-BELNR  = LS_FIELDS-VALUE.

POPUP_TO_SELECT_MONTH fonksiyon modülü, kullanıcıdan tarih parametre girdisi alabilmemizi sağlar.

DATA: LV_MONTH TYPE ISELLIST-MONTH,
      LV_CODE  TYPE SY-SUBRC.

LV_MONTH = |{ SY-DATUM(4) }{ SY-DATUM+4(2) }|.

CALL FUNCTION 'POPUP_TO_SELECT_MONTH'
  EXPORTING
    ACTUAL_MONTH               = LV_MONTH
    LANGUAGE                   = SY-LANGU
    START_COLUMN               = 8
    START_ROW                  = 5
  IMPORTING
    SELECTED_MONTH             = LV_MONTH
    RETURN_CODE                = LV_CODE
  EXCEPTIONS
    FACTORY_CALENDAR_NOT_FOUND = 1
    HOLIDAY_CALENDAR_NOT_FOUND = 2
    MONTH_NOT_FOUND            = 3
    OTHERS                     = 4.

ABAP Syntax örneklerini linke tıklayarak inceleyebilirsiniz.

Emrullah Demirhan

SAP ERP yazılımı ve ABAP programlama dili uzmanıyım. Ayrıca Python programlama dili ve veri bilimi ile de ilgilenmekteyim. Yeni teknolojiler öğrenmeyi, öğrendiklerimi uygulayarak sonuçlarını paylaşmayı ve öğretmeyi seviyorum.