ABAP 第二代增强-采购申请子屏幕增强

news2024/11/25 6:48:30

文章目录

第二代增强-采购申请子屏幕增强
- 需求
- 实现过程
- 创建项目
- 运行效果
- 客户屏幕的PBO
- 全局变量
- 获取数据
- 更新数据
- 运行效果
- 查询底表
- 修改数据

第二代增强-采购申请子屏幕增强

需求

在这里插入图片描述

实现过程

在这里插入图片描述

创建项目

在这里插入图片描述

运行效果

在这里插入图片描述

客户屏幕的PBO

在这里插入图片描述

全局变量

*&---------------------------------------------------------------------*
*&  包含                ZXM02TOP
*&---------------------------------------------------------------------*

TABLES: ci_ebandb.
DATA :gv_aktvt.  "可编辑标识

获取数据

在这里插入图片描述

*&---------------------------------------------------------------------*
*&  包含                ZXM02U01
*&---------------------------------------------------------------------*
DATA: ls_mereq_item TYPE mereq_item.
CALL METHOD im_req_item->get_activity
  RECEIVING
    re_aktvt = gv_aktvt.  "A:显示 V:编辑


"将数据传递给屏幕
IF im_req_item IS INITIAL.
  CLEAR ci_ebandb.
ELSE.
  ls_mereq_item = im_req_item->get_data( ).
  MOVE-CORRESPONDING ls_mereq_item TO ci_ebandb.
ENDIF.

更新数据

在这里插入图片描述

*&---------------------------------------------------------------------*
*&  包含                ZXM02U03
*&---------------------------------------------------------------------*

DATA:ls_mereq_item TYPE mereq_item.

"将屏幕数据修改在行中去
IF im_req_item IS NOT INITIAL.
  ls_mereq_item = im_req_item->get_data( ).
  MOVE-CORRESPONDING ci_ebandb TO ls_mereq_item.

  CALL METHOD im_req_item->set_data( ls_mereq_item ).
  ex_changed = abap_true.
ENDIF.