ABAP 常用的弹窗(确认弹窗、填写值弹窗)

最新推荐文章于 2024-04-04 20:38:24 发布

Lisson 3

最新推荐文章于 2024-04-04 20:38:24 发布

阅读量1.2k

点赞数

分类专栏： ABAP 文章标签：前端 javascript linux

本文链接：https://blog.csdn.net/qq_40223617/article/details/131729515

版权

ABAP 专栏收录该内容

37 篇文章 1 订阅

订阅专栏

1.确认弹窗代码

"弹出确认框
  DATA:lv_yn TYPE STRING.
   CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
    EXPORTING
      titel          = '重要提示'
      textline1      = '你确定要这个么？'
      cancel_display = 'X'  "space 不显示cancel按钮，'X'是显示取消按钮
    IMPORTING
      answer         = lv_yn.  "确定= J  否=N  取消 = A
  WRITE :lv_yn.

2.填写弹窗代码（函数版）

"弹出可以填写字段的函数方法
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 )."要获取填写的数据直接读取这个表就好了