需求说明:
检查供应商的地址里的街道(Street)字段是否超长(最长20个字符)。
输入一些必输字段,进入debug模式。
在debug模式里,设置动态断点 “call customer-function”.
点击F8,直接停在call customer-function语句上。
点击program 按钮,进入当前程序。
双击“001”,进入exit function module.
点击功能模块文档,了解功能说明和注意事项。
双击以‘Z‘开头的include,点回车创建include程序。
在Include ‘ZXSZARU01’添加如下代码,并激活。
IF sy-uname = '你的用户名'. BREAK-POINT. DATA: l_error TYPE addr_error. IF x_dialog_allowed IS NOT INITIAL. IF STRLEN( x_adrc_struc-street ) > 20. y_retcode = 'E'. l_error-msg_id = 'Z1'. l_error-msg_type = 'E'. l_error-msg_number = 201. l_error-tablename = 'ADDR1_DATA'. l_error-fieldname = 'STREET'. APPEND l_error TO error_table.
ELSE. y_adrc_struc = x_adrc_struc. ENDIF. ENDIF. ENDIF.
进入事务‘CMOD’, 创建一个Project。
添加描述。
进入事务‘SMOD‘,查找Enhancement。
在‘Component name‘输入exit FM名字‘EXIT_SAPLSZAR_001’。
在‘CMOD’中输入找到的Enhancement Name。
保存Project ‘ZGMX_Ven’.
激活Project ‘ZGMX_Ven’.
测试:再次运行事务‘MK01’, 在street字段里输入21个字符,显示系统提示。