DATA:gt_fields LIKE TABLE OF sval,
gs_fields LIKE sval,
gv_returncode TYPE c.
gs_fields-tabname = 'EKKO'.
gs_fields-fieldname = 'AEDAT'.
gs_fields-fieldtext = '日期'.
APPEND gs_fields TO gt_fields.
CALL FUNCTION 'POPUP_GET_VALUES'
EXPORTING
popup_title = '字段输入'
IMPORTING
returncode = gv_returncode
TABLES
fields = gt_fields
EXCEPTIONS
error_in_fields = 1
OTHERS = 2.
IF gv_returncode EQ 'A'."取消确定
ELSE.
ENDIF.
阅读(1533) | 评论(0) | 转发(0) |
