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

文章目录

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

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

需求

在这里插入图片描述

实现过程

在这里插入图片描述

创建项目

在这里插入图片描述

运行效果

在这里插入图片描述

客户屏幕的PBO

在这里插入图片描述

全局变量

*&---------------------------------------------------------------------*
*&  包含                ZXM02TOP
*&---------------------------------------------------------------------*TABLES: ci_ebandb.
DATA :gv_aktvt.  "可编辑标识

获取数据

在这里插入图片描述

*&---------------------------------------------------------------------*
*&  包含                ZXM02U01
*&---------------------------------------------------------------------*
DATA: ls_mereq_item TYPE mereq_item.
CALL METHOD im_req_item->get_activityRECEIVINGre_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.