MB51选择屏幕与报表增强

"--------------------@斌将军--------------------
IF sy-tcode = 'MB51'.
  IF znum[] IS NOT INITIAL."当选择屏幕筛选字段有值
    SELECT
      mblnr,
      mjahr,
      zeile,
      znum
      FROM ZTPP001
      INTO TABLE @DATA(lt_ztpp001)
      WHERE znum IN @znum.
    "将物料凭证、年度、行项目赋值到对应的筛选字段中
    LOOP AT lt_ztpp001 INTO DATA(ls_ztpp001).
      mblnr-low = ls_ztpp001-mblnr.
      mblnr-sign = 'I'.
      mblnr-option = 'EQ'.
      APPEND mblnr.
      CLEAR mblnr.
      mjahr-low = ls_ztpp001-mjahr.
      mjahr-sign = 'I'.
      mjahr-option = 'EQ'.
      APPEND mjahr.
      CLEAR mjahr.
      zeile-low = ls_ztpp001-zeile.
      zeile-sign = 'I'.
      zeile-option = 'EQ'.
      APPEND zeile.
      CLEAR zeile.
      CLEAR:ls_ztpp001.
    ENDLOOP.
    "标准表中该字段是空的，并不存值，所以此处要清空，
    "避免标准代码用此字段筛选查询MSEG表，导致数据为空，所以此处要清空
    CLEAR znum[].
  ENDIF.
ENDIF.
"--------------------@斌将军--------------------

"--------------------@斌将军--------------------
ENHANCEMENT 5  ZEMM_MB51_APPEND.    "active version
IF list[] IS NOT INITIAL.
  DATA(lt_list) = list[].

  SELECT
    ztpp001~mblnr,
    ztpp001~mjahr,
    ztpp001~zeile,
    ztpp001~ZNUM
  FROM ZTPP001
  INNER JOIN @lt_list AS LIST ON ztpp001~mblnr = LIST~MBLNR
                          AND ztpp001~mjahr = LIST~mjahr
                          AND ztpp001~zeile = LIST~zeile
  INTO TABLE @DATA(LT_ZPP001).

  SORT LT_ZPP001 BY MBLNR MJAHR ZEILE.

  LOOP AT list ASSIGNING FIELD-SYMBOL(<fs_list>).
    READ TABLE LT_ZPP001 INTO DATA(LS_ZPP001) WITH KEY mblnr = <fs_list>-MBLNR
                                                        mjahr = <fs_list>-mjahr
                                                        zeile = <fs_list>-zeile BINARY SEARCH.
    IF SY-SUBRC EQ 0.
      <fs_list>-ZNUM = LS_ZPP001-ZNUM.
    ENDIF.
  ENDLOOP.

ENDIF.
ENDENHANCEMENT.
"--------------------@斌将军--------------------