ABAP 关于 delete adjacent duplicates from的小心得

前一段时间调试一个程序的，半天没发现问题在哪里，经过测试才发现

delete adjacent duplicates from itab 和 delete adjacent duplicates from itab comparing all fields还是有区别的：

前者相邻两行数据，如果除金额字段以外的其他字段都相同，则去重复删除其中一行；

后者相邻两行数据，如果所有对应的字段都相同（包含金额字段），则去重复删除其中一行。

 

以下文檔地址

使用DELETE ADJACENT FORM itab太坑爹了，它的完整语句是

DELETE ADJACENT DUPLICATE  FROM <itab> [COMPARING <comp>].

系统从内表 <itab> 中删除所有 邻近重复条 目。所以在使用时就必须先排序，如果不排序后果是很严重的，在本博客前面有相关的案例。

小林太懒了，所以每次都只写DELETE ADJACENT DUPLICATE  FROM <itab>，如DELETE ADJACENT DUPLICATE  FROM  itab_sf02.就好了。结果有今天的tab_sf02表里有金额字段，也照样想这样删掉重复行，可是，在如下图的情况就出问题了

注意了，后两行的数据是不一样的，因为他们金额不一样以吧。

执行DELETE ADJACENT DUPLICATE  FROM  itab_sf02后，呜呼，后两行只变成了一行了！

 

解决方案：要对全部字段进行比较，如果全部字段相同则删除，即

DELETE ADJACENT DUPLICATE  FROM  itab_sf02 COMPARING ALL FIELDS.

注意：

如果没有 COMPARING 选项，则标准关键字段 的内容必须相同（默认的内表关键字有F、I和P型），金额型不算，所以除金额型外其他相同的都被咔嚓(删除)了。

COLLECT语句也有类似的功能，除了金额型字段外其他的字段内容相同，则去掉相同行并把相同行的金额值累加到留下来的一行。