可輸入彈出窗口-[POPUP_GET_VALUES_USER_HELP]

介紹一個簡單的可輸入的值的彈出窗口函數 POPUP_GET_VALUES_USER_HELP，通過調用這個函數能創建如下樣子的彈出窗口，可以看到訂單數量字段是可輸入的。

字段是否能輸入，是通過函數輸入table參數fields中的字段field_attr來控制

控制的屬性如下：

代碼如下：

*&---------------------------------------------------------------------*
*& Report YTEST_POPUP_WINDOW
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ytest_popup_window.

DATA:l_ret   TYPE c,
     git_tab TYPE STANDARD TABLE OF sval WITH HEADER LINE.

CLEAR git_tab.
git_tab-tabname = 'AFKO'.
git_tab-fieldname = 'AUFNR'.
git_tab-fieldtext = '生產訂單號'.
git_tab-field_attr = '02'.
git_tab-value = '0100000001'.
APPEND git_tab.
CLEAR git_tab.

git_tab-tabname = 'AFKO'.
git_tab-fieldname = 'GAMNG'.
git_tab-fieldtext = '訂單數量'.
git_tab-field_attr = ''.
APPEND git_tab.

CALL FUNCTION 'POPUP_GET_VALUES_USER_HELP'
  EXPORTING
*   F1_FORMNAME     = ' '
*   F1_PROGRAMNAME  = ' '
*   F4_FORMNAME     = ' '
*   F4_PROGRAMNAME  = ' '
*   FORMNAME        = ' '
    popup_title     = 'BAIDUSAP.COM'
*   PROGRAMNAME     = ' '
*   START_COLUMN    = '5'
*   START_ROW       = '5'
*   NO_CHECK_FOR_FIXED_VALUES       = ' '
  IMPORTING
    returncode      = l_ret
  TABLES
    fields          = git_tab
  EXCEPTIONS
    error_in_fields = 1
    OTHERS          = 2.
IF sy-subrc <> 0.
* Implement suitable error handling here
ELSE.
  READ TABLE git_tab INDEX 2.
  IF sy-subrc = 0.
    CONDENSE git_tab-value.
    WRITE:git_tab-value LEFT-JUSTIFIED.
  ENDIF.
ENDIF.

測試：

輸入數量，點擊綠勾。

然后write出輸入的數量。

以上。