可输入弹出窗口-[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出输入的数量。

以上。

原创文章，作者：Maggie-Hunter，如若转载，请注明出处：https://blog.ytso.com/19310.html

可输入弹出窗口-[POPUP_GET_VALUES_USER_HELP]详解编程语言

相关推荐

发表回复