2016년 3월 24일 목요일

[ABAP] 원자재 BOM 산출 FUNCTION


    DATA : LT_STB    LIKE STPOX OCCURS 0 WITH HEADER LINE.

    CLEAR   : LT_STB.
    REFRESH : LT_STB.
*  "MEHRS : ' X'맨하위 원자재를 가져옴/ null일 경우 바로 밑에 있는 원자재만
*  "EMENG : BOM 환산 기준 수량

    CALL FUNCTION 'CS_BOM_EXPL_MAT_V2'
      EXPORTING
        CAPID                       = 'PP01'
        DATUV                       = SY-DATLO
        EMENG                       = 1
        MTNRV                       = GT_DATA-MATNR
        MEHRS                       = ' X'                                              "X일경우맨하위 원자재를 가져옴.
        STLAL                       = GT_DATA-STLAL
        STLAN                       = GT_DATA-STLAN
        WERKS                       = GT_DATA-DWERK
      TABLES
        STB                         = LT_STB
      EXCEPTIONS
        ALT_NOT_FOUND               = 1
        CALL_INVALID                = 2
        MATERIAL_NOT_FOUND          = 3
        MISSING_AUTHORIZATION       = 4
        NO_BOM_FOUND                = 5
        NO_PLANT_DATA               = 6
        NO_SUITABLE_BOM_FOUND       = 7
        CONVERSION_ERROR            = 8
        OTHERS                      = 9.
    READ TABLE LT_STB INDEX 1.
    IF SY-SUBRC EQ 0.
      GT_DATA-IDNRK  = LT_STB-IDNRK.
      GT_DATA-MTART1 = LT_STB-MTART.
    ENDIF.

댓글 없음:

댓글 쓰기