Popup Value Get

Kod ile Popup ekrandan veri alana fonksiyon..
Kodu görmek için devamına bakınız...

DATA: l_title(30) TYPE c,
      l_retcode   TYPE c,
      l_fields TYPE TABLE OF sval WITH HEADER LINE.
     

l_title = 'Belge tarihleri'.
CLEAR: l_retcode .

CLEAR l_fields.
REFRESH l_fields.

l_fields-tabname   = 'BKPF' .
l_fields-fieldname = 'BUDAT'.
l_fields-field_obl = '1'    .
APPEND l_fields.

l_fields-tabname   = 'BKPF' .
l_fields-fieldname = 'BLDAT'.
l_fields-field_obl = '1'    .
APPEND l_fields.


CALL FUNCTION 'POPUP_GET_VALUES'
  EXPORTING
    popup_title = l_title
  IMPORTING
    returncode  = l_retcode
  TABLES
    fields      = l_fields
  EXCEPTIONS
    OTHERS      = 0.

  IF l_retcode <> 'A'.
    READ TABLE l_fields INDEX 1.
    IF sy-subrc IS INITIAL.
      t_bkpf-budat = l_fields-value.
    ENDIF.
  ENDIF.