您可以实现事件01（在保存之前），但是数据尚未保存在数据库中，而是在内部表TOTAL中。 它具有一种特殊的格式，您必须首先将其转换为具有可用格式的内部表，如下所示。 我使用的名称与Mike提议的名称相同（LT_VAL_BUK）。

 FORM z_before_saving。
  字段符号键入name_of_your_table。
  数据lt_val_buk类型name_of_your_table。

  合计。
    将总计分配给转换。
    将附加到lt_val_buk。
  结局。

  "找到错误的算法-按照迈克说的或您想要的算法进行

  如果错误= abap_true。
    消息"错误"类型为" S"，显示为" E"。
    VIM_ABORT_SAVING ='X'。  "万一出错，请不要离开
  万一。

  sy-subrc =0。"仅在sy-subrc = 0时保存
 ENDFORM。
 

您的代码看起来不错，您可以使用消息类型玩，以更改sy-subrc或直接影响变量SPAN vim_abort_saving

（vim_abord_saving = abap_true）

嗨Franziskus，

几种方法可以做到这一点。 我只是简单地介绍一下，假设您提到"表格"后就使用"经典" ABAP。

 *假设内部输入数据表类似于：
 类型：开始于tys_val_buk，
          TYPE BUKRS，
          val TYPE p十进制2，
        结束于tys_val_buk，
        tyt_val_buk tys_val_buk的类型标准表。
 
 *您可以定义一个结果集：
 类型：tyt_res_buk类型分类表
          与关键bukrs。

 数据：lt_val_buk TYPE tyt_val_buk，
       lt_res_buk类型tyt_res_buk。

 *您可以这样拨打您的表格：
 使用lt_val_buk执行check_buk_val
                    更改lt_res_buk。
 *做您想评估BUKRS/FLAG组合的结果列表的任何事情。

 *您的表格可能如下所示：
 FORM check_buk使用it_val_buk TYPE tyt_val_buk
             更改ct_res_buk TYPE tyt_res_buk。
   数据lt_val类型tyt_val_buk。
   数据lf_val TYPE p十进制数2。
   FIELD-SYMBOLS：类型tys_val_buk。

 *确保所有公司代码都在一起
   lt_val = it_val_buk。
   排序lt_val BY Bukrs。

 *在lt_val评估时评估
循环。
 *组更改。 记住所有总和> = 1的公司的结果。
     在新的bukrs。
       如果lf_val> = 1. 
插入 -bukrs INTO ct_res_buk。
 ENDIF。
清除lf_val。
     ENDAT。

 *累积值
     lf_val = lf_val +  -val。
   结局。
 ENDFORM。

当然，可以使用ABAP OO更好地解决此问题，但是我们还没有解决。。。。。。。。。。

此外，为了将来参考，并且为了更好地熟悉ABAP概念，请查看ABAP帮助，例如：

https://help.sap.com/saphelp_47x200/ helpdata/zh-CN/d3/2e974d35c511d1829f0000e829fbfe/frameset.htm

希望让您入门，
迈克

您好 Franziskus Heep ，

对于您选择的事件表示怀疑，如果也不要尝试事件05，请检查它是否工作正常，并让我们知道成功的案例。