ABAP 删除内表重复数据

内表要进行排序 然后删除重复行

SORT <内表> BY <字段> [ascending/descending].

DELETE ADJACENT DUPLICATES FROM <内表> COMPARING ALL FIELDS.


*&---------------------------------------------------------------------*
*& Form FM_BUTTON_PRT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM FM_BUTTON_PRT.
LOOP AT IT_DATA INTO WA_DATA.
IF WA_DATA-SEL = 'X'.
WA_SELS-PUR_NUM = WA_DATA-PUR_NUM.
WA_SELS-CRT_DATE = WA_DATA-CRT_DATE.
WA_SELS-VEND_NUM = WA_DATA-VEND_NUM.
WA_SELS-PAY_KEY = WA_DATA-PAY_KEY .
WA_SELS-MAT_NUM = WA_DATA-MAT_NUM .
WA_SELS-PUR_TXT = WA_DATA-PUR_TXT .
WA_SELS-PLT_NUM = WA_DATA-PLT_NUM .
WA_SELS-STOR_LOC = WA_DATA-STOR_LOC.
APPEND WA_SELS TO IT_SELS.
ENDIF.
ENDLOOP.
LOOP AT IT_DATA INTO WA_DATA.
IF WA_DATA-SEL = 'X'.
WA_PURNM-PURNM = WA_DATA-PUR_NUM.
APPEND WA_PURNM TO IT_PURNM.
SORT IT_PURNM BY PURNM ASCENDING.
DELETE ADJACENT DUPLICATES FROM IT_PURNM COMPARING ALL FIELDS.
ENDIF.
ENDLOOP.
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING
FORMNAME = 'ZXLI_TEST_002'
IMPORTING
FM_NAME = L_FM_NAME
EXCEPTIONS
NO_FORM = 1
NO_FUNCTION_MODULE = 2
OTHERS = 3.
CALL FUNCTION L_FM_NAME
TABLES
IT_DATA = IT_SELS
IT_PURNM = IT_PURNM.
CLEAR IT_SELS[].

ENDFORM. "FM_BUTTON_PRT
  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值