1.SE38复制RGGBR000到程序ZRGGBR000,include不用复制
2.新增出口编号
代码如下,注意不要复制UM001那个,那个param不是财务校验的参数。写错了会找不到这个出口。
exits-name = 'Z901'. "matrix validation:
exits-param = c_exit_param_none. "complete data used in exit.
exits-title = '车型字段校验'. "Example EIS
APPEND exits.
3. 添加Z901对应的form,与替代不同,这个form需要加参数CHANGING b_result,这个 b_result就是代表校验的结果,b_result = B_TRUE 代表不报错,b_result = B_FALSE代表报错,报错信息不用在代码里面体现,信息是财务顾问配置的。代码的位置一定要写在INCLUDE RGGBS_AR_FORMS.的后面,因为这个include里面定义了bseg及bkpf,写在前面识别不到这两个表,不能用这两个表的参数
代码如下,具体判断修改为自己的代码,参数可以使用bseg及bkpf
FORM Z901 CHANGING b_result."
IF BSEG-ZZCX IS NOT INITIAL .
IF BSEG-ZZCX <> '通用车型' .
SELECT SINGLE SERIES_AND_DEVELOPMENT_COD FROM ZCAR_TYPE WHERE SERIES_AND_DEVELOPMENT_COD = @BSEG-ZZCX INTO @DATA(LV_TYPE) .
IF SY-SUBRC = 0.
b_result = B_TRUE .
ELSE .
b_result = B_FALSE .
ENDIF.
ELSE .
b_result = B_TRUE .
ENDIF.
ELSE .
b_result = B_TRUE .
ENDIF.
ENDFORM .
4.激活程序后GCX2配置程序,把校验的程序修改为刚刚复制的程序(这一步一般财务顾问操作)
5.OB28配置启用校验的公司(财务顾问操作)
6.GGB0配置检验规则,校验文本(财务顾问配置)