MB51选择屏幕与报表增强
1、文档说明
如之前文档《MIGO新增页签增强》,在MIGO中增强自定义字段,那么在查询MB51时,想通过自定义字段进行筛选,并将数据展示到报表中,就需要对MB51进行增强。
此处需要说明,文档《MIGO新增页签增强》中是将自定义字段存入自建表中,读者也可以自己研究,是否能将字段存入标准表MSEG中。两种做法不同,则在本篇文档中的做法也有一定区别,请读者予以辨别。
2、增强实施
2.1、增强字段
文档《MIGO新增页签增强》中将MIGO增强字段存储在表ZTPP001中
因为需要将数据展示在报表中,所以要在标准表中增强该字段
MSEG
MATDOC
此处请注意,如果增强的字段和MIGO中增强的字段名称一致,则需要修改MIGO增强页签中的一段逻辑
文档《MIGO新增页签增强》中在增强方法IF_EX_MB_MIGO_BADI~POST_DOCUMENT中,将MIGO增强的字段存表时,为了得到物料凭证、年度、行项目的值,曾使用MOVE-CORRESPONDING,将MSEG结构的数据传递到自建表的内表中。如果MSEG增强字段和ZTPP001字段名一致,就会使ZTPP001的ZNUM被MSEG的ZNUM(空值)覆盖掉,所以此处可以单独将物料凭证、年度、行项目赋值给ZTPP001的内表。当然,读者也可以定义不一样的字段名,避免覆盖的情况。
2.2、配置选择屏幕
可以通过配置,为MB51新增筛选和展示字段
TCODE:SPRO
新增对应字段,其中选择字段:显示在选择屏幕中,输出字段:显示在报表中
保存之后,重新执行MB51,标准代码则自动更新,此时单据号字段就显示在选择屏幕上
查看包含文件RM07DOCS_GENERATED,可以看到代码更新的时间
选择屏幕代码中也已经自动添加了ZNUM
2.3、隐式增强
在RM07DOCS_GENERATED的子例程FORM DATA_SELECTION_NEW开头位置创建隐式增强
代码如下
"--------------------@斌将军-------------------- IF sy-tcode = 'MB51'. IF znum[] IS NOT INITIAL."当选择屏幕筛选字段有值 SELECT mblnr, mjahr, zeile, znum FROM ZTPP001 INTO TABLE @DATA(lt_ztpp001) WHERE znum IN @znum. "将物料凭证、年度、行项目赋值到对应的筛选字段中 LOOP AT lt_ztpp001 INTO DATA(ls_ztpp001). mblnr-low = ls_ztpp001-mblnr. mblnr-sign = 'I'. mblnr-option = 'EQ'. APPEND mblnr. CLEAR mblnr. mjahr-low = ls_ztpp001-mjahr. mjahr-sign = 'I'. mjahr-option = 'EQ'. APPEND mjahr. CLEAR mjahr. zeile-low = ls_ztpp001-zeile. zeile-sign = 'I'. zeile-option = 'EQ'. APPEND zeile. CLEAR zeile. CLEAR:ls_ztpp001. ENDLOOP. "标准表中该字段是空的,并不存值,所以此处要清空, "避免标准代码用此字段筛选查询MSEG表,导致数据为空,所以此处要清空 CLEAR znum[]. ENDIF. ENDIF. "--------------------@斌将军--------------------
同样的代码,增强到以下子例程的开头处
FORM DATA_SELECTION
FORM DATA_SELECTION_VIA_MATNR
FORM DATA_SELECTION_VIA_BUDAT
在RM07DOCS的FORM detail_list中创建隐式增强,将该字段数据赋值到ALV中
代码如下
"--------------------@斌将军-------------------- ENHANCEMENT 5 ZEMM_MB51_APPEND. "active version IF list[] IS NOT INITIAL. DATA(lt_list) = list[]. SELECT ztpp001~mblnr, ztpp001~mjahr, ztpp001~zeile, ztpp001~ZNUM FROM ZTPP001 INNER JOIN @lt_list AS LIST ON ztpp001~mblnr = LIST~MBLNR AND ztpp001~mjahr = LIST~mjahr AND ztpp001~zeile = LIST~zeile INTO TABLE @DATA(LT_ZPP001). SORT LT_ZPP001 BY MBLNR MJAHR ZEILE. LOOP AT list ASSIGNING FIELD-SYMBOL(<fs_list>). READ TABLE LT_ZPP001 INTO DATA(LS_ZPP001) WITH KEY mblnr = <fs_list>-MBLNR mjahr = <fs_list>-mjahr zeile = <fs_list>-zeile BINARY SEARCH. IF SY-SUBRC EQ 0. <fs_list>-ZNUM = LS_ZPP001-ZNUM. ENDIF. ENDLOOP. ENDIF. ENDENHANCEMENT. "--------------------@斌将军--------------------
2.4、测试效果
输入单据号
数据表中存储的数据
运行结果
2.5、问题说明
此方法实现的屏幕筛选,并不能像常规一样,多个筛选条件取交集,而是与其他筛选字段取并集。读者可以根据项目情况,灵活更改代码实现需求。
3、MB51代码重置
正常情况下,如上文中配置完屏幕字段后,运行MB51,对应的MB51源码就能更新。但是也存在个例,运行MB51时,源代码没有更新过来,选择屏幕中并没有对应的字段
推测原因,有系统本身的原因,也有可能是开发的增强与MB51要更新的代码出现了冲突,导致更新失败。
例如:有的选择屏幕字段,是直接增强上去的,而不是配置的,导致配置的字段与原本增强的字段重复,所以更新失败
解决方法一:
注释选择屏幕中自开发的增强字段和相关的增强,然后运行MB51,保证程序不DUMP的情况下,程序就会自动再更新源码
解决方法二:
如果仍然不能更新,则采用以下办法,根据官方提供的程序,手动执行更新
首先注释与选择屏幕相关的自开发增强逻辑,保证源码被重置时,使用到选择屏幕等字段的相关逻辑不报错,保证MB51的正常运行
找到官方NOTE:
根据官方源码,创建并执行程序
对比前后的RM07DOCS_GENERATED,可以发现选择屏幕等源代码全部都没了
执行事务代码MB51,重新生成对应代码
配置的字段就更新进来了
定期更文,欢迎关注