ABAP 내부 테이블 중복 제거
1856 단어 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
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
[ABAP]반각·전각·혼재 체크 Ver1.1(Whether Text is SBC only, DBC only or Mixed)처음 게시 할 때부터 더 간단한 쓰기를 기억했으므로 코드와 기사를 업데이트했습니다 유니코드 환경에서의 반각·전각 혼합 체크가 됩니다. 이번에는 CL_ABAP_LIST_UTILITIES의 메소드와 STRLEN을 사용하...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.