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

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

需求

实现过程

创建项目

运行效果

客户屏幕的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.

运行效果

查询底表

修改数据

这里有点小问题，就是我修改销售订单号，无法更新到数据库里面，如有知道原因的大佬，烦请指出，跪谢~