METHOD IF_EX_MD_CHANGE_MRP_DATA~CHANGE_MDPSX_MARD .

  DATA: L_SUM TYPE LQUA-GESME,
        L_MARD TYPE MARD.

  CLEAR: L_SUM.

  LOOP AT IM_MARD INTO L_MARD.

    CLEAR: L_SUM.

    SELECT SUM( GESME ) INTO L_SUM
       FROM LQUA
       WHERE MATNR = L_MARD-MATNR
        AND WERKS = L_MARD-WERKS
        AND ( LGTYP = '008' OR LGTYP = '009' ).

    L_SUM = ABS( L_SUM ).

    IF L_SUM <> 0.
      CH_CHANGED = 'X'.
      IF CH_MDPS-MNG01 > L_SUM.
        CH_MDPS-MNG01 = CH_MDPS-MNG01 - L_SUM .
      ELSE.
        CH_MDPS-MNG01 = 0.
      ENDIF.
    ENDIF.

  ENDLOOP.

ENDMETHOD.