메뉴 건너뛰기

SAP 한국 커뮤니티

activeman님께서 알려주신 테이블을 이용해 아래처럼 수정을 하니 STLAL의 값은 가져올 수 있었습니다.


그런데 STLAL = '02', '03' 일때는 'CS_BOM_EXPLOSION'을 돌아도 결과값은 나오지 않습니다.


분명히 BOM은 존재하는데... 제가 무엇을 빼먹은 부분이 있는가요?


 


*---------------------------------------------------------------------*
*      Form  BOM_EXP
*---------------------------------------------------------------------*
FORM BOM_EXP.
  REFRESH : IT_01, IT_05.
  CLEAR : IT_01, IT_05.


  SELECT *
  INTO CORRESPONDING FIELDS OF TABLE IT_05 " 추가
  FROM MAST " 추가
    WHERE MAST~MATNR IN S_MATNR " 추가
      AND MAST~WERKS IN S_WERKS. " 추가


  LOOP AT IT2_01. " 추가
    LOOP AT IT_05 WHERE MATNR = IT2_01-MATNR. " 추가
      IT2_01-STLAL = IT_05-STLAL. " 추가
      MODIFY IT2_01. " 추가
    ENDLOOP. " 추가
  ENDLOOP. " 추가


  LOOP AT IT2_01.
    CLEAR : TEMP_STBP.
    READ TABLE IT2_01 INDEX SY-TABIX.
    WRITE IT2_01-WERKS TO PA_WERKS.
    WRITE IT2_01-MATNR TO PA_MATNR.
    WRITE IT2_01-STLAL TO PA_STLAL.


    IT_01-MATNR      = IT2_01-MATNR.
    IT_01-MAKTX      = IT2_01-MAKTX.
    IT_01-MTART      = IT2_01-MTART.
    IT_01-WERKS      = IT2_01-WERKS.
    IT_01-GI_03_QTY  = IT2_01-GI_03_QTY.
    IT_01-MEINS      = IT2_01-MEINS.
    IT_01-GI_03_FACT = IT2_01-GI_03_FACT.
    IT_01-WAERS      = IT2_01-WAERS.
    IT_01-STUFE      = '0'.
    IT_01-STLAL      = IT2_01-STLAL.
    IT_01-MATNR_C    = IT2_01-MATNR.
    APPEND IT_01.


    PERFORM BOM_EXP1 TABLES IT_01
            USING PA_MATNR PA_WERKS PA_STLAL SY-DATUM CHANGING LAST.
  ENDLOOP.


ENDFORM.


*---------------------------------------------------------------------*
*      Form  BOM_EXP
*---------------------------------------------------------------------*
FORM BOM_EXP1 TABLES P_BOM_EXPLODED STRUCTURE IT_01
     USING P_IDNRK P_WERKS P_STLAL P_DATUV CHANGING P_LAST.


  CALL FUNCTION 'CS_BOM_EXPLOSION'
    EXPORTING
      CAPID = 'PP01'
      DATUV = P_DATUV
      MTNRV = P_IDNRK
      WERKS = P_WERKS
      STLAL = P_STLAL
      MEHRS = 'X'
    TABLES
      STBP = IT_STBP
      STBD = IT_STBD
      STBE = IT_STBE
      STBK = IT_STBK
      STBM = IT_STBM
      STBT = IT_STBT
    EXCEPTIONS
      ALT_NOT_FOUND         = 1
      CALL_INVALID          = 2
      MISSING_AUTHORIZATION = 4
      NO_BOM_FOUND          = 5
      NO_PLANT_DATA         = 6
      NO_SUITABLE_BOM_FOUND = 7
      CONVERSION_ERROR      = 8
      OTHERS                = 9.


    LOOP AT IT_STBP.
      TEMP_STBP-OBJNR = IT_STBP-OBJNR.
      TEMP_STBP-WERKS = P_WERKS.
      TEMP_STBP-STLAL = IT_STBP-STLAL.
      APPEND TEMP_STBP.
    ENDLOOP.


    IF SY-SUBRC <> 0.
      P_LAST = 'X'.
    ELSE.
      LOOP AT TEMP_STBP.
        IT_01-MATNR      = IT2_01-MATNR.
        IT_01-MAKTX      = IT2_01-MAKTX.
        IT_01-MTART      = IT2_01-MTART.
        IT_01-WERKS      = IT2_01-WERKS.
        IT_01-GI_03_QTY  = IT2_01-GI_03_QTY.
        IT_01-MEINS      = IT2_01-MEINS.
        IT_01-GI_03_FACT = IT2_01-GI_03_FACT.
        IT_01-WAERS      = IT2_01-WAERS.
        IT_01-STUFE      = ''.
        IT_01-STLAL      = TEMP_STBP-STLAL.
        IT_01-MATNR_C    = TEMP_STBP-OBJNR.
        APPEND IT_01.
      ENDLOOP.


      LOOP AT TEMP_STBP. " 추가
        LOOP AT IT_05 WHERE MATNR = TEMP_STBP-OBJNR. " 추가
          TEMP_STBP-OBJNR = IT_05-MATNR. " 추가
          TEMP_STBP-WERKS = IT_05-WERKS. " 추가
          TEMP_STBP-STLAL = IT_05-STLAL. " 추가
          COLLECT TEMP_STBP. " 추가
        ENDLOOP. " 추가
      ENDLOOP. " 추가


      DELETE TEMP_STBP WHERE STLAL = '01'.
      DELETE TEMP_STBP WHERE STLAL = ''.


      LOOP AT TEMP_STBP.
        READ TABLE TEMP_STBP INDEX SY-TABIX.
        WRITE TEMP_STBP-WERKS TO PA_WERKS.
        WRITE TEMP_STBP-OBJNR TO PA_MATNR.
        WRITE TEMP_STBP-STLAL TO PA_STLAL.


        PERFORM BOM_EXP1 TABLES P_BOM_EXPLODED
                USING PA_MATNR PA_WERKS PA_STLAL P_DATUV CHANGING P_LAST.


        CLEAR P_LAST.
      ENDLOOP.
    ENDIF.
ENDFORM.

번호 제목 글쓴이 날짜 조회 수
1307 <b>[완료]</b>아밥 덤프 질문입니다~알려주세요~ [6] pdj 2008.03.07 1323
1306 [요청]PA인포타입 과 pD인포타입 생성시 질문입니다. kkk 2008.03.07 1788
1305 <b>[완료]</b>Web dynpro 사용과 sap의 개발툴에 대한 비전에 대해서 [2] activeman 2008.03.07 1643
1304 [요청]netweaver를 깔고 비밀 번호를 몇번 잘 못 쳤더니 passwrd logon no longer- too many failed attempts 라고 나오네요 [3] starter 2008.03.07 1302
1303 <b>[완료]</b>테이블 구조가 다른 테이블을 append 시 문의 [5] hogun 2008.03.07 1928
1302 <b>[완료]</b>HEADER에 해당컬럼만 찍으려 할때 문의드립니다. [5] 풍뎅이 2008.03.06 1241
1301 [요청]WDA 질문입니다. SUB TOTAL을 제어할수 있는 방법을 알고 계시나요?? [2] 기절하고파 2008.03.06 1882
1300 [요청]합계 로직 문의 (같은 키필드값 기준으로 한 수량들의 합계) [6] hogun 2008.03.06 3559
1299 <b>[완료]</b>지수문자를 정수문자로 변경하는 함수에 관하여 문의드립니다. [2] 풍뎅이 2008.03.06 3120
1298 <b>[완료]</b>Itab에 있는 값을 itab으로 넘기는 쉬운 방법... [3] 김지성 2008.03.06 1111
1297 [요청]ALV REFRESH 후 소팅이 틀어집니다. SAMBATIME 2008.03.06 1745
1296 <b>[완료]</b>General ALV GRID EVENT 중 DATA_CHANGED 여줘볼 것이 있습니다. [3] 비안개 2008.03.06 3195
1295 [요청]SAPNW7.0ABAPTrialSP12 설치성공했습니다. [3] 탄꽁 2008.03.06 1188
1294 <b>[완료]</b>BAPI에 대해서 알고 싶습니다... [2] 아밥입문자 2008.03.06 1747
1293 <b>[완료]</b>select-options 질문드립니다.... [14] BEST!! 2008.03.06 1524
1292 [요청]required entry not made 라는 메세지에 대해 [2] 앙리 2008.03.05 1184
1291 [요청]RFC에대해서 알고싶은데요 예제있으시면... r333 2008.03.05 1716
1290 [요청]예약어를 대문자로 자동변환하는 메뉴를 알고 싶습니다. [1] 풍뎅이 2008.03.05 2281
1289 [요청]ABAP CLASS 에도 디자인 패턴을 적용하고 싶은데요.....아시는분 있으시면 도움을 요청합니다. [3] 윤군친구 2008.03.05 1547
1288 <b>[완료]</b>ALV에서 스크린 없이 펑션으로 만들었을경우..... [2] 아밥입문자 2008.03.05 1775