弹窗填写值

最新推荐文章于 2024-09-15 08:03:51 发布

xf_0616

最新推荐文章于 2024-09-15 08:03:51 发布

阅读量50

点赞数

分类专栏： abap 文章标签：数据库

本文链接：https://blog.csdn.net/xf_0616/article/details/133919607

版权

abap 专栏收录该内容

6 篇文章 0 订阅

订阅专栏

文章介绍了如何使用函数方法创建一个弹出窗口，让用户填写特定表格（如MARA,BKPF,BSIS）中的字段，包括必填项、过账日期、金额及其参考字段，并利用POPUP_GET_VALUES函数获取用户输入的数据。

摘要由CSDN通过智能技术生成

填写值弹窗

"弹出可以填写字段的函数方法
DATA : lt_sval TYPE  TABLE  OF  sval,
       ls_sval LIKE  LINE  OF  lt_sval.
DATA:l_returncode TYPE string .


"物料
CLEAR ls_sval .
ls_sval-tabname = 'MARA' .  "表名
ls_sval-fieldname = 'MATNR' . "字段名
ls_sval-field_obl = 'X' .          "是否为必填
APPEND ls_sval TO lt_sval.

"过账日期
CLEAR ls_sval .
ls_sval-tabname = 'BKPF' .  "表名
ls_sval-fieldname = 'BUDAT' . "字段名
ls_sval-field_obl = 'X' .          "是否为必填
APPEND ls_sval TO lt_sval.

"如果是金额的话要把参考表和参考字段也写进来，然后隐藏，不然金额的输入框是不能输入的
CLEAR ls_sval .
ls_sval-tabname = 'BSIS'.
ls_sval-fieldname = 'WRBTR'.
APPEND ls_sval TO lt_sval.

"货币
CLEAR ls_sval .
ls_sval-tabname = 'BSIS'.
ls_sval-fieldname = 'WAERS'.
ls_sval-field_attr = '04'.   "隐藏货币字段
APPEND ls_sval TO lt_sval.

CALL FUNCTION 'POPUP_GET_VALUES'
  EXPORTING
*   NO_VALUE_CHECK  = ' '
    popup_title     = '请填写'
*   START_COLUMN    = '5'
*   START_ROW       = '5'
  IMPORTING
    returncode      = l_returncode
  TABLES
    fields          = lt_sval
  EXCEPTIONS
    error_in_fields = 1
    OTHERS          = 2.

cl_demo_output=>display( lt_sval )."要获取填写的数据直接读取这个表就好了