Solution：在SM30保存时检查数据

最新推荐文章于 2025-07-21 18:55:24 发布

转载最新推荐文章于 2025-07-21 18:55:24 发布 · 1.4k 阅读

CC 4.0 BY-SA版权

原文链接：https://mp.weixin.qq.com/s?__biz=MzU1MDAzMDY3MQ==&mid=2247495287&idx=1&sn=6ca138b4cfa70e920a0b199bbdcb5d95&chksm=fad24900ab00be4b72f50af3cd9d1cd6f494bc36ccec907d2a7ae008d8eb3c41cd74ef0752ac&scene=126&sessionid=0

1/7 问题描述

在SM30保存时检查数据，你可能会直接修改生成的屏幕，比如Field后面写个Module xx ON REQUEST，或者在MODULE LISTE_AFTER_LOOP.前写一个自己的MODULE，执行你的检查代码。但：

1.当SM30维护器重新生成的时候，屏幕的逻辑流都会重建，导致我们修改的逻辑流都没了；

2.我们在列表屏点退出，系统会提示“是否保存数据”，如果点“是”，数据可能还保存上，绕过了我们的检查代码。

2/7 解决方案

更合理的做法是，利用SM30提供的事件出口（如果你用过事件出口，也不要着急退出，下面可能有你没用过的知识）。如下：

然后在弹出的屏幕中，选择事件01，并创建一个检查的FORM，如：FRM_CHECK。

之后，点击“编辑器”列的代码编辑按钮，系统会提示你创建一个INCLUDE程序来包括这个FORM。

3/7 新的问题

之后，写个测试代码如下：

FORM frm_check.
  MESSAGE '错误' TYPE 'E'.
ENDFORM.

激活所有对象，编辑一下数据，点保存，测试一下效果。结果意外发生了……如下图：

虽然系统报了错误，但从SM30的列表屏幕中退出来了，我们更希望是能在列表屏提示错误。

4/7 问题分析

1.系统退回到了SM30的初始界面，一定是执行了LEAVE命令，保存前输入/H，然后保存，再按命令打断点，如下：

然后，继续执行。果然系统执行到了LEAVE代码处，如下：

2.可为什么我们保存成功的时候，系统并没有停留在SM30的初始界面，而是在列表屏呢？这说明，系统执行了LEAVE后，又执行了类似CALL SCREEN之类的命令，跳转到了列表屏。

于是再加一个命令断点：CALL SCREEN，重新执行测试，发现系统果然又执行了CALL SCREEN的命令，如下：

3.那我们怎么才能让系统既报错误，又能重新执行这个CALL SCREEN的命令呢？

之前我们报的E消息，程序执行到这里就停止了。程序停止保存动作是我们想要的结果，但这个E类型消息满足不了我们的要求，所以我们应该考虑RAISE异常。

于是我们看看程序堆栈中是不是有函数调用，函数中是不是有EXCEPTION参数，如下：

5/7 最终方案

通过上面的程序堆栈可以看出，我们自己写的检查FORM的代码，是在这个FUNCTION中调用的，而且这个FUNCTION提供了异常saving_correction_failed的异常。所以我们改一下检查的代码：

FORM frm_check.
  MESSAGE '错误' TYPE 'S' DISPLAY LIKE 'E'.
  RAISE saving_correction_failed.
ENDFORM.

再重新执行测试一下，果然没有问题了，错误消息完美的在列表屏中显示出来了：

6/7 更多知识

SM30维护器函数有两个比较重要的公共内表，分别是EXTRACT和TOTAL。

EXTRACT指的是当前TableControl里的数据。比如你点新条目时，输入了两行新数据，那么EXTRACT就只有两行。所以进行事件增强前，一定要想好是要用哪个内表。

TOTAL指的是所有数据，包括删除还未保存的行项目。

循环EXTRACT的时候，<XACT> <VIM_EXTRACT_STRUC>会发生变化；

循环TOTAL的时候，<ACTION> <VIM_TOTAL_STRUC>会变化。

其中<XACT>和<ACTION>代表的是循环到的行的操作状态（比如D代表删除），而另外两个则是工作区。

使用方法：

DATA: ls_sl01 TYPE ysl01. "YSL01是表名
  LOOP AT total.
    MOVE-CORRESPONDING <vim_total_struc> TO ls_sl01.
  ENDLOOP.

7/7 总结

我的文章基本不会只罗列解决方案，而是会把解决问题的思路讲清楚。毕竟会一个知识点那只是会了术，而会了方法掌握了策略才是得了更高一级的法。

我的SE38插件工具箱——视频介绍：

https://www.bilibili.com/video/BV1hP4y1N7Qz/

联系286503700获取

ABAP文章汇总：
https://mp.weixin.qq.com/s/djmMeM0qfDxPPwxbjuJABA
Excel文章汇总：
https://mp.weixin.qq.com/s/NwJ0SzIrn9hVmaCMo-UYyA
网盘永久链接：
https://mp.weixin.qq.com/s/f_WwKZdwM-vPEstTjjz_eQ

关注公众号，点下方菜单打开上面的链接，更方便哦。

笔者微信：286503700（QQ同号）

如果喜欢，谢谢转发。