介绍一个简单的可输入的值的弹出窗口函数 POPUP_GET_VALUES_USER_HELP,通过调用这个函数能创建如下样子的弹出窗口,可以看到订单数量字段是可输入的。
字段是否能输入,是通过函数输入table参数fields中的字段field_attr来控制
控制的属性如下:
代码如下:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
*&---------------------------------------------------------------------*
*& 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出输入的数量。
以上。