Monday, September 23, 2013

SAP Enhancement of backflush .

用途:对指定的MRP Controller的物料,在反冲时,不应用报废率,而只使用标准的数量去反冲消耗。
Class :ZCL_IM_CL_PP_CONF_GMVT
Methoed IF_EX_WORKORDER_GOODSMVT~BACKFLUSH
code:

method IF_EX_WORKORDER_GOODSMVT~BACKFLUSH.
  data:zMSEG type IMSEG,
       zausch type DECIMALS 4,
       zdispo type dispo.

  TYPES:
    BEGIN OF LTY_STPO,
      AUSCH TYPE STPO-AUSCH,
      DATUV TYPE STPO-DATUV,
    END OF LTY_STPO.
  DATA:
        LT_STPO TYPE STANDARD TABLE OF LTY_STPO,
        LS_STPO TYPE LTY_STPO.

* call :1244666 disable the scrap rate for confiramtion for plant 8900
  "I_ORDER_HEADER-stlnr.AUSCH scrap
  if I_ORDER_HEADER-WERKS '8900'.
    loop at CT_COMPONENTS into zmseg.
      SELECT SINGLE dispo into zdispo from marc where matnr zmseg-MATNR and dispo in ('713','714','715','T04','T06','T08','T11','T22').
      if zdispo is NOT INITIAL.
       SELECT SINGLE AUSCH INTO zausch FROM RESB WHERE RSNUM zmseg-RSNUM AND MATNR zmseg-MATNR.
         zausch +  zausch / 100.
        zmseg-erfmg zmseg-erfmg / zausch .
        clear:zausch.
        MODIFY CT_COMPONENTS from zmseg TRANSPORTING erfmg.
        endif.
        clear:zdispo.

      endloop.
    endif.
endmethod.

No comments:

Post a Comment