◆◆0

可输入弹出窗口-[POPUP_GET_VALUES_USER_HELP]

石头 9月 5, 2018 Report, 函数 15,252 views 0

介绍一个简单的可输入的值的弹出窗口函数 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.