<< Click to Display Table of Contents >> Navigation:  All About ABAP Technique > Indonesia > ABAP Tutorial > ABAP Workbench Tools  > Enhancement > Customer Exits > Contoh Customer Exits > Project ZSDWS001 > Funtions Exits > EXIT_SAPLMCBR_001 > ZXMCBU03

*&---------------------------------------------------------------------*
*&  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.