메뉴 건너뛰기

SAP 한국 커뮤니티

BAPI_MATERIAL_AVAILABILITY 가용성체크시에 사용하세요.

노름마치 2007.12.10 21:36 조회 수 : 6305 추천:3

 FUNCTION zle_pda_available_qty.
*"----------------------------------------------------------------------
*"*"Local interface:
*"  IMPORTING
*"     REFERENCE(I_WERKS) TYPE  WERKS_D
*"     REFERENCE(I_MATNR) TYPE  MATNR
*"  TABLES
*"      O_TAB STRUCTURE  ZLES0060 OPTIONAL
*"----------------------------------------------------------------------


  CHECK i_werks >< '' AND i_matnr >< ''.


*" 가용재고 추출용......................
  DATA: l_atp     LIKE bapicm61v-wkbst.
  DATA: it_wmdvex TYPE bapiwmdve OCCURS 0 WITH HEADER LINE,
        it_wmdvsx TYPE bapiwmdvs OCCURS 0 WITH HEADER LINE.


  DATA: l_tabix   LIKE sy-tabix.
  DATA: g_qty1    TYPE cdseq.
  DATA: g_qty2    TYPE cdseq.


  CLEAR   it_zles0060.
  REFRESH it_zles0060.


*" 현재재고 추출.......................
  SELECT mard~matnr AS matnr
         mard~labst AS stock_qty
         makt~maktx AS maktx
         mara~meins AS meins
         APPENDING CORRESPONDING FIELDS OF TABLE it_zles0060
         FROM mard INNER JOIN mara
           ON mard~mandt = mara~mandt
          AND mard~matnr = mara~matnr
        INNER JOIN makt
           ON mard~mandt = makt~mandt
          AND mard~matnr = makt~matnr
          AND makt~spras = sy-langu
        WHERE mard~werks = i_werks
          AND mard~lgort = '2000'
          AND mard~matnr = i_matnr
          AND mard~labst > 0.


  CHECK NOT it_zles0060[] IS INITIAL.


*" 가용재고 추출.......................
  CLEAR   : it_wmdvsx, it_wmdvex, l_atp.
  REFRESH : it_wmdvsx, it_wmdvex.


  LOOP AT it_zles0060.
    l_tabix = sy-tabix.


    CLEAR l_atp.
    CALL FUNCTION 'BAPI_MATERIAL_AVAILABILITY'
      EXPORTING
        plant      = i_werks             " 플랜트
        material   = it_zles0060-matnr   " 자재코드
        unit       = it_zles0060-meins   " 단위
        check_rule = 'RP'
        stge_loc   = '2000'              " 저장위치
      IMPORTING
        av_qty_plt = l_atp
      TABLES
        wmdvsx     = it_wmdvsx
        wmdvex     = it_wmdvex.


    IF sy-subrc IS INITIAL.
      READ TABLE it_wmdvex  INDEX 1.
      IF sy-subrc IS INITIAL.
        it_zles0060-avail_qty = it_wmdvex-com_qty. " 가용재고
      ENDIF.
    ENDIF.


    MODIFY it_zles0060 INDEX l_tabix.
  ENDLOOP.


*" 최종 테이블로 MOVE......................
  LOOP AT it_zles0060.
    MOVE-CORRESPONDING it_zles0060 TO o_tab.
    CLEAR : g_qty1, g_qty2.
    o_tab-avail_qty = g_qty1 = it_zles0060-avail_qty.
    o_tab-stock_qty = g_qty2 = it_zles0060-stock_qty.
    APPEND o_tab.
    CLEAR: o_tab, it_zles0060.
  ENDLOOP.


  FREE it_zles0060.


ENDFUNCTION.

번호 제목 글쓴이 날짜 조회 수
547 ABAP TUNNING sapjoy 2012.03.12 234723
546 New function vs Old function(obsolete) sapjoy 2014.03.31 127772
545 테이블Active시 (Warnings Occurred During Activation) 안나오게하는방법 [6] 양키 2012.03.29 99709
544 자주 사용하는 String 조작 명령어 [7] 양키(이경환) 2015.01.13 34950
543 collect 구문 [4] sapjoy 2006.12.03 27038
542 사용자 패스워드 변경 함수, 창 [11] sapjoy 2009.12.21 25825
541 R/3 용어 정의 Definitions [4] sapjoy 2007.01.23 23898
540 BAPI_PR_CREATE 구매요청 생성시에 사용하세요 [2] 노름마치 2007.12.10 23707
539 SELECT statement D.Y.Kim 2007.07.20 23647
538 문자열에 있는 값이 숫자만으로 되어있는지 문자가 포함됐는지 체크하는 함수 [3] 꿀단지 2011.10.11 19906
537 LIKE와 TYPE의 차이 [13] sapjoy 2006.12.06 19723
536 숫자입력 체크(Numeric character check) [1] 양키(이경환) 2014.01.28 19637
535 SDN -> SCN 변경되면서 Contents별로 바뀐 LINK 모음 [13] Wise 멘토 2012.07.06 19045
534 ALV LIST 진행시 LAYOUT 속성값 [18] kwon09 2007.04.11 17363
533 ABAP 핵심정리 [23] SARA 2007.03.14 17338
532 인터널 테이블 라인수 lines [8] sapjoy 2014.01.20 17272
531 ABAP 구문 총정리 [39] file Wise 멘토 2008.11.24 17171
530 FOR ALL ENTRIES IN 구문 사용시 select 필드 선택시 주의사항. [7] 나침반친구 2007.03.13 17031
529 SYST 시스템 변수 정리 [5] 아밥뽀 2014.08.23 17006
528 프로그램 정보(프로그램 리스트, PROGRAM LIST, PROGRAM TABLE) [3] sapjoy 2007.02.23 16840