ABAP POPUP Function Modules

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.

2 Responses

Bir cevap yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir

Sitemizde en iyi deneyimi yaşamanızı sağlamak için çerezler kullanmaktadır.