ABAP之通过弹窗修改数据内容

百里丶落云

发布于 2022-12-13 17:36:21

6650

发布于 2022-12-13 17:36:21

开启掘金成长之旅！这是我参与「掘金日新计划 · 12 月更文挑战」的第21天，点击查看活动详情

序

HELLO,这里是百里一个学习中的ABAPER,在工作中可能会遇到用户手工输入具体某个或者某些数据内容,当然传统的界面上直接修改也不是不可以,但是如果是在按钮或者选择屏幕中就需要这种弹出弹窗的方式进行操作.这种东西给人一种重视感,比起传统ALV的小格子数据,这种更加生动且有参与度,那么带着我们的需求,进入今天的内容.

什么弹窗

弹窗可以理解为覆盖某一个区域去执行某一个内容, 这个内容是可以警告,可以输入数据,也可以进行有效的数据警告/禁止/提醒等.跟其他语言一样,我们的弹窗内容也是类似,弹出一个框,告诉你什么事情,或者让你输入什么事情.

语法解析

我们通过调用内置函数POPUP_GET_VALUES来实现弹框数据某些对应的数据内容. 具体参数以及语法如下.

  CALL FUNCTION 'POPUP_GET_VALUES'
      EXPORTING
*       NO_VALUE_CHECK  = ' '
        popup_title     = '冲销数据'
*       START_COLUMN    = '5'
*       START_ROW       = '5'
      IMPORTING
        returncode      = lv_rtn_cd
      TABLES
        fields          = it_value
      EXCEPTIONS
        error_in_fields = 1
        OTHERS          = 2.
    IF sy-subrc = 0.
      LV_STGRD =  it_value[ 1 ]-value   .
      LV_BUDAT =  it_value[ 2 ]-value   .
      LV_MONAT =  it_value[ 3 ]-value   .

      ENDIF .

参数解释

popup_title ：弹窗的标题

fields 表中存储要和用户交互的字段，

每个字段有三个参数分别是tabname：参考表；fieldname：字段名称；value：默认值。

要求字段名称必须是参考表中的数据，会自动带出搜索帮助。

START_COLUMN和START_ROW 是弹窗位置

实际案例

本次案例采取财务模块中的一个小地方,通过让用户输入冲销原因，过账日期，记账期间这三个数据内容,讲对应的输入内容存入对应的数据内容,并且展示出来. 这里讲的只是一个非常基础的demo ,在实际案例中,抬头按钮筛选,按钮过账/审核. 表体重要数据着重修改都可使用这种方式. 因为我们已经把数据的数据存入到对应的数据内表中.

数据准备

*&amp;---------------------------------------------------------------------*
*&amp; 
*&amp;---------------------------------------------------------------------*
*&amp;
*&amp;---------------------------------------------------------------------*


  DATA LV_STGRD TYPE RF05R-STGRD .
  DATA LV_BUDAT TYPE RF05R-BUDAT .
  DATA LV_MONAT TYPE RF05R-MONAT .
  DATA: it_value  TYPE TABLE OF sval,
        wa_value  TYPE sval,
        lv_rtn_cd.

操作数据

    wa_value-tabname = 'BKPF'.
    wa_value-fieldname = 'STGRD'.
    wa_value-value = '01'.
    APPEND wa_value TO it_value.
    wa_value-tabname = 'BKPF  '.
    wa_value-fieldname = 'BUDAT'.
    wa_value-value = sy-datum   .
    APPEND wa_value TO it_value.
    wa_value-tabname = 'BKPF'.
    wa_value-fieldname = 'MONAT'.
    wa_value-value = sy-datum+4(2).
    APPEND wa_value TO it_value.

调用函数

    CALL FUNCTION 'POPUP_GET_VALUES'
      EXPORTING
*       NO_VALUE_CHECK  = ' '
        popup_title     = '冲销数据'
*       START_COLUMN    = '5'
*       START_ROW       = '5'
      IMPORTING
        returncode      = lv_rtn_cd
      TABLES
        fields          = it_value
      EXCEPTIONS
        error_in_fields = 1
        OTHERS          = 2.
    IF sy-subrc = 0.
      LV_STGRD =  it_value[ 1 ]-value   .
      LV_BUDAT =  it_value[ 2 ]-value   .
      LV_MONAT =  it_value[ 3 ]-value   .

      ENDIF .


     WRITE : LV_BUDAT .