SAP ABAP内表分组GROUP使用

按业务单号等字段分组处理内表

  DATA:
    L_FLG_FIRST TYPE CHAR01.
  LOOP AT GT_ZTFI0259 INTO GS_ZTFI0259
                    GROUP BY ( FKDNR   = GS_ZTFI0259-FKDNR
                               SIZE  = GROUP SIZE
                               INDEX = GROUP INDEX )
                   ASCENDING
                   REFERENCE INTO DATA(GROUP_REF).
    LOOP AT GROUP GROUP_REF INTO DATA(LS_GROUP_REF).
      IF L_FLG_FIRST = SPACE.
        L_FLG_FIRST = ABAP_TRUE.
        IF LS_GROUP_REF-FKDNR <> SPACE.
          DELETE FROM ZTFI0259 WHERE FKDNR = LS_GROUP_REF-FKDNR.
        ENDIF.
      ENDIF.
      LS_GROUP_REF-ERNAM = SY-UNAME.          "创建人
      LS_GROUP_REF-ERDAT = SY-DATUM.          "创建日期
      LS_GROUP_REF-ERZET = SY-UZEIT.          "创建时间
      INSERT ZTFI0259 FROM LS_GROUP_REF.
    ENDLOOP.
    CLEAR L_FLG_FIRST.
  ENDLOOP.
  COMMIT WORK AND WAIT.