Bazen kullanıcıdan isteyeceğimiz bilgiler bir ekran tasarımı yapmamıza değmeyecek kadar basit ve az olabilir. bu durumlarda imdadımıza standart popup fonksiyonları yetişir.

Bunlardan en çok kullanılanları  
POPUP_TO_CONFIRM ve POPUP_GET_VALUES olarak gösterebiliriz.  

POPUP_TO_CONFIRM fonksiyonuyla kullanıcıya 2 veya 3 seçenekli butonlardan oluşan bir popup ekranı sunabiliriz.  

POPUP_GET_VALUES fonksiyonuyla da kullanıcıya belli alanlar için değerler girebileceği bir popup ekranı sunabiliriz. Örnekleri aşağıda bulabilirsiniz.

DATA: lv_ans(1).
CALL FUNCTION 'POPUP_TO_CONFIRM'
  EXPORTING
   titlebar                     = 'İşlem gerçekleştiriliyor...'
*   DIAGNOSE_OBJECT             = ' '
    text_question               = 'Emin misiniz?'
   text_button_1                = 'Tamam'
   icon_button_1                = 'ICON_CHECKED'
   text_button_2                = 'İptal'
   icon_button_2                = 'ICON_CANCEL'
   default_button               = '1'
   display_cancel_button        = ' '
*   USERDEFINED_F1_HELP         = ' '
*   START_COLUMN                = 25
*   START_ROW                   = 6
   popup_type                   = 'ICON_MESSAGE_ERROR'
*   IV_QUICKINFO_BUTTON_1       = ' '
*   IV_QUICKINFO_BUTTON_2       = ' '
 IMPORTING
   answer                       = lv_ans
* TABLES
*   PARAMETER                   =
* EXCEPTIONS
*   TEXT_NOT_FOUND              = 1
*   OTHERS                      = 2
          .
  IF lv_ans eq '1'.
    WRITE 'Eminmiş'.
  ELSEIF lv_ans eq '2'.
    WRITE 'Joker hakkını kullanmak istiyor'.
  ENDIF.
 
 
 
DATA: lt_fields LIKE sval OCCURS 0 WITH HEADER LINE,
      lv_ret    TYPE string.
 
REFRESH lt_fields.
lt_fields-tabname = 'MARA'.
lt_fields-fieldname = 'MATNR'.
*lt_fields-value = ''.
*lt_fields-field_attr = ''.
*lt_fields-field_obl = ''.
*lt_fields-comp_code = ''.
*lt_fields-fieldtext = ''.
*lt_fields-comp_tab = ''.
*lt_fields-comp_field = ''.
*lt_fields-novaluehlp = ''.
APPEND lt_fields.
lt_fields-tabname = 'MARA'.
lt_fields-fieldname = 'MTART'.
*lt_fields-value = ''.
*lt_fields-field_attr = ''.
*lt_fields-field_obl = ''.
*lt_fields-comp_code = ''.
*lt_fields-fieldtext = ''.
*lt_fields-comp_tab = ''.
*lt_fields-comp_field = ''.
*lt_fields-novaluehlp = ''.
APPEND lt_fields.
CLEAR lv_ret.
 
CALL FUNCTION 'POPUP_GET_VALUES'
  EXPORTING
*   NO_VALUE_CHECK  = ' '
    popup_title     = 'Bilgileri giriniz'
*   START_COLUMN    = '5'
*   START_ROW       = '5'
  IMPORTING
    returncode      = lv_ret
  TABLES
    fields          = lt_fields
  EXCEPTIONS
    error_in_fields = 1
    OTHERS          = 2.
 
IF lv_ret IS INITIAL.
  READ TABLE lt_fields WITH KEY tabname = 'MARA' fieldname = 'MATNR'.
  WRITE lt_fields-value.
ENDIF.
 
 




Tüm soru ve görüşleriniz için. 
Serkan AKKAVAK
Bilgisayar Mühendisi
serkurumsal@yandex.com