*&---------------------------------------------------------------------*
*&  Include           ZXMCBU03                                         *
*&---------------------------------------------------------------------*
*"----------------------------------------------------------------------
*"*"Lokale Schnittstelle:
*"       IMPORTING
*"             VALUE(ZEITP) LIKE  TMC5-ZEITP OPTIONAL
*"             VALUE(MODUS_I) LIKE  MCCONTROL-MODUS OPTIONAL
*"       TABLES
*"              XMCBEST STRUCTURE  MCBEST
*"              XMCMSEG STRUCTURE  MCMSEG
*"----------------------------------------------------------------------
 
 
loop at xmcmseg.
select single * from mbew
        where BWKEY = xmcmseg-werks
        and   matnr = xmcmseg-matnr.
 
if sy-subrc = 0.
 
   XMCMSEG-ZZGSBEST = MBEW-LBKUM .                          "Previous Qty
   XMCMSEG-ZZSALK3  = MBEW-SALK3 .                          "Previous Value
 
   XMCMSEG-ZZGSBEST = XMCMSEG-ZZGSBEST + XMCMSEG-BVBEW.     "New Qty
   XMCMSEG-ZZSALK3  = XMCMSEG-ZZSALK3 + XMCMSEG-BWERTV .    "New Value.
 
   IF MBEW-VPRSV = 'V'.
     IF XMCMSEG-ZZGSBEST ne 0.
       XMCMSEG-ZZVERPR  = XMCMSEG-ZZSALK3 / XMCMSEG-ZZGSBEST.  "New MAP
     ELSE.
       XMCMSEG-ZZVERPR = MBEW-VERPR.
     ENDIF.
   ELSE .
     XMCMSEG-ZZSTPRS  = MBEW-STPRS .                         "Previous STP
   ENDIF .
 
   XMCMSEG-ZZVPRSV  = MBEW-VPRSV.                           "MAP/Std
 
   MODIFY XMCMSEG.
ENDIF.
 
endloop.