ABAP-弹出输入框函数

 1 DATA : itb_sval TYPE  TABLE  OF  sval,
 2        wa_sval  LIKE  LINE  OF  itb_sval.
 3 DATA:l_returncode TYPE string .
 4 CLEAR wa_sval .
 5 wa_sval-tabname = 'MARA' .  "表名
 6 wa_sval-fieldname = 'MATNR' .    "字段名
 7 wa_sval-field_obl = 'X' .          "强制输入
 8 APPEND wa_sval TO itb_sval.
 9 
10 "如果是金额的话要把参考表和参考字段也写进来，然后隐藏，不然金额的输入框是不能输入的
11 CLEAR wa_sval .
12 wa_sval-tabname = 'BSIS'.
13 wa_sval-fieldname = 'WRBTR'.
14 APPEND wa_sval TO itb_sval.
15 
16 CLEAR wa_sval .
17 wa_sval-tabname = 'BSIS'.
18 wa_sval-fieldname = 'WAERS'.
19 wa_sval-field_attr = '04'.   "隐藏货币字段
20 APPEND wa_sval TO itb_sval.
21 
22 CALL FUNCTION 'POPUP_GET_VALUES'
23   EXPORTING
24 *   NO_VALUE_CHECK  = ' '
25     popup_title     = '请填写提交支付日期'
26 *   START_COLUMN    = '5'
27 *   START_ROW       = '5'
28   IMPORTING
29     returncode      = l_returncode
30   TABLES
31     fields          = itb_sval
32   EXCEPTIONS
33     error_in_fields = 1
34     OTHERS          = 2.
35 *itb_sval-value 就是输入框的值