*Контроль сверхпоставки для поставок со ссылкой на MM заказ
*В стандарте отсутствует, см ноту 1848990 - Overdelivery tolerances do not work when creating a delivery for a stock transport order
  data: LT_EKET type table of  EKET,
        l_menge_sum type eket-menge,
        l_wamng_sum type eket-wamng,
        l_delta type eket-menge.


  FIELD-SYMBOLS: <eket> type eket.

  IF is_likp-VBTYP = 'J'. "Входящие поставки нас не интересуют.
    LOOP AT ct_ximseg ASSIGNING <mseg> where ebeln is NOT INITIAL.
      refresh: LT_EKET.
      clear: l_menge_sum,  l_wamng_sum, l_delta.
      CALL FUNCTION 'ME_EKET_SINGLE_READ_ITEM'
        EXPORTING
          PI_EBELN                  = <mseg>-ebeln
          PI_EBELP                  = <mseg>-ebelp
*         PI_BYPASSING_BUFFER       =
*         PI_REFRESH_BUFFER         =
        TABLES
          PTO_EKET                  = LT_EKET
*       EXCEPTIONS
*         ERR_NO_RECORD_FOUND       = 1
*         OTHERS                    = 2
                .
      IF SY-SUBRC <> 0.
* Implement suitable error handling here
      ENDIF.
      loop at LT_EKET ASSIGNING <eket>.
        l_menge_sum = l_menge_sum + <eket>-menge.
        l_wamng_sum = l_wamng_sum + <eket>-wamng.
      endloop.
      l_delta = l_menge_sum - l_wamng_sum.
      if  <mseg>-menge  > l_delta.
        ls_log-vbeln = <mseg>-VBELN.
        ls_log-posnr = <mseg>-POSNR.
        ls_log-msgty = 'E'.
        ls_log-msgid = 'Z3'.
        ls_log-msgno = '029'.
        WRITE l_menge_sum to ls_log-msgv1 LEFT-JUSTIFIED.
        write l_wamng_sum to ls_log-msgv2 LEFT-JUSTIFIED.
        write <mseg>-menge to ls_log-msgv3 LEFT-JUSTIFIED.
        ls_log-msgv4 = ''.
        APPEND ls_log TO ct_log.
      endif.
    endloop.
  ENDIF.