ABAP 新特性 loop 循环 分类汇总后再循环

*****进处理选中的非换货返回项
  LOOP AT  gt_itab ASSIGNING FIELD-SYMBOL(<ls_savepo>) WHERE chk = 'X' AND hh_mark_son <> 'X'
          GROUP BY ( lifnr = <ls_savepo>-lifnr
                     werks = <ls_savepo>-werks
                     zzvmi_type = <ls_savepo>-zzvmi_type
                     lgort = <ls_savepo>-lgort
                     zzbond = <ls_savepo>-zzbond
                     umson = <ls_savepo>-umson

    "LIFNR WERKS ZZVMI_TYPE lgort ZZBOND UMSON GP_MARK ZZOTM_LIFNR
                     gp_mark = <ls_savepo>-gp_mark
                     zzotm_lifnr = <ls_savepo>-zzotm_lifnr
                     zzyiyuan_reason = <ls_savepo>-zzyiyuan_reason
                     tdline = <ls_savepo>-tdline    "抬头备注
                     "BSART = <LS_SAVEPO>
                      )
          ASSIGNING FIELD-SYMBOL(<ls_group>).
    "行号刷新
    CLEAR lv_ebelp.

    MOVE-CORRESPONDING <ls_group> TO ls_po_info .


    LOOP AT GROUP <ls_group> ASSIGNING FIELD-SYMBOL(<ls_gitem>).

endloop.

endloop.

posted @ 2022-12-04 20:28  我肉山  阅读(432)  评论(0)    收藏  举报