取实际成本的一段代码

admin

FUNCTION ZFM_GET_MATERIAL_COSTING.
*"----------------------------------------------------------------------
*"*"本地接口：
*"  IMPORTING
*"     VALUE(I_WERKS) TYPE  WERKS_D
*"     VALUE(I_YEAR) TYPE  GJAHR
*"     VALUE(I_PERIOD) TYPE  MONAT
*"     VALUE(I_MATNR_LOW) TYPE  MATNR
*"     VALUE(I_MATNR_HIGH) TYPE  MATNR OPTIONAL
*"  TABLES
*"      T_COST STRUCTURE  ZFIS001
*"----------------------------------------------------------------------

  TYPES:BEGIN OF TY_KEKO,
          MATNR LIKE KEKO-MATNR,
          KALNR LIKE KEKO-KALNR,
        END OF TY_KEKO.

  DATA:IT_KEKO TYPE TABLE OF TY_KEKO WITH HEADER LINE.
  RANGES : LR_MATNR FOR IT_KEKO-MATNR.

  CLEAR : LR_MATNR[],LR_MATNR.
  LR_MATNR-SIGN = 'I'.
  LR_MATNR-OPTION = 'BT'.
  LR_MATNR-LOW = I_MATNR_LOW.
  IF I_MATNR_HIGH IS INITIAL.
    LR_MATNR-HIGH = I_MATNR_LOW.
  ELSE.
    LR_MATNR-HIGH = I_MATNR_HIGH.
  ENDIF.
  APPEND LR_MATNR.

  CLEAR : IT_KEKO.
  SELECT MATNR
         KALNR
    INTO CORRESPONDING FIELDS OF TABLE IT_KEKO
    FROM KEKO
   WHERE MATNR IN LR_MATNR[]
     AND WERKS = I_WERKS.

  CHECK IT_KEKO[] IS NOT INITIAL.
  SORT IT_KEKO BY MATNR KALNR.
  DELETE ADJACENT DUPLICATES FROM IT_KEKO.

  CLEAR:T_COST[],T_COST.
  LOOP AT IT_KEKO.
    CLEAR T_COST.
    SELECT CKMLPRKEKO~PRTYP
           CKMLPRKEKO~LOSGR
           CKMLPRKEKO~MEINS
           CKMLPRKEPH~KST001
      CKMLPRKEPH~KST002
           CKMLPRKEPH~KST003
      CKMLPRKEPH~KST004
           CKMLPRKEPH~KST005
      CKMLPRKEPH~KST006
           CKMLPRKEPH~KST008 AS KST007
      INTO CORRESPONDING FIELDS OF T_COST
      FROM CKMLPRKEPH
      INNER JOIN CKMLPRKEKO ON CKMLPRKEKO~KALNR = CKMLPRKEPH~KALNR
                           AND CKMLPRKEKO~BDATJ = CKMLPRKEPH~BDATJ
                           AND CKMLPRKEKO~POPER = CKMLPRKEPH~POPER
                           AND CKMLPRKEKO~PRTYP = CKMLPRKEPH~PRTYP
                           AND CKMLPRKEKO~PRTYP = CKMLPRKEPH~PRTYP
                           AND CKMLPRKEKO~UNTPER = CKMLPRKEPH~UNTPER
                           AND CKMLPRKEKO~CURTP = CKMLPRKEPH~CURTP
     WHERE CKMLPRKEPH~KALNR = IT_KEKO-KALNR
       AND CKMLPRKEPH~BDATJ = I_YEAR
       AND CKMLPRKEPH~POPER = I_PERIOD
       AND CKMLPRKEPH~KKZST = ''
       AND CKMLPRKEPH~CURTP = '10'.
      T_COST-MATNR = IT_KEKO-MATNR.
      T_COST-WERKS = I_WERKS.
      T_COST-BDATJ = I_YEAR.
      T_COST-POPER = I_PERIOD.
      APPEND T_COST.
      CLEAR T_COST.
    ENDSELECT.
  ENDLOOP.



ENDFUNCTION.