可输入弹出窗口-[POPUP_GET_VALUES_USER_HELP]

介绍一个简单的可输入的值的弹出窗口函数 POPUP_GET_VALUES_USER_HELP，通过调用这个函数能创建如下样子的弹出窗口，可以看到订单数量字段是可输入的。

<img class="alignnone size-full wp-image-6117" src="http://www.baidusap.com/wp-content/uploads/2018-09-05_14-46-18.jpg" alt="" width="638" height="350" />

字段是否能输入，是通过函数输入table参数fields中的字段field_attr来控制

<img class="alignnone size-full wp-image-6120" src="http://www.baidusap.com/wp-content/uploads/2018-09-05_14-51-45.jpg" alt="" width="683" height="234" />

<img class="alignnone size-full wp-image-6119" src="http://www.baidusap.com/wp-content/uploads/2018-09-05_14-50-31.jpg" alt="" width="757" height="413" srcset="http://www.baidusap.com/wp-content/uploads/2018-09-05_14-50-31.jpg 757w, http://www.baidusap.com/wp-content/uploads/2018-09-05_14-50-31-740x404.jpg 740w" sizes="(max-width: 757px) 100vw, 757px" />

控制的属性如下：

<img class="alignnone size-full wp-image-6118" src="http://www.baidusap.com/wp-content/uploads/2018-09-05_14-49-12.jpg" alt="" width="488" height="360" />

代码如下：

*&---------------------------------------------------------------------*
*& 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.

测试：

输入数量，点击绿勾。

<img class="alignnone size-full wp-image-6121" src="http://www.baidusap.com/wp-content/uploads/2018-09-05_14-54-14.jpg" alt="" width="413" height="155" />

然后write出输入的数量。

<img class="alignnone size-full wp-image-6122" src="http://www.baidusap.com/wp-content/uploads/2018-09-05_14-55-51.jpg" alt="" width="309" height="151" />

以上。

转载于:https://www.cnblogs.com/datie/p/11429141.html