[ABAP] POD(Proof of Delivery) 업데이트 BAPI (WS_DELIVERY_UPDATE_2)

🚩 코드

  DATA : LS_VBKOK_WA TYPE VBKOK,
         LV_DELIVERY TYPE LIKP-VBELN,
         LV_PGI      TYPE XFELD,
         LT_VBPOK    TYPE TABLE OF VBPOK,
         LT_PROT     TYPE TABLE OF PROTT.


"(1) 선택한 납품문서의 아이템 정보를 다 불러온다.
  SELECT VBELN,
         POSNR,
         MATNR,
         CHARG,
         LFIMG,
         VRKME
    FROM LIPS
   WHERE VBELN = 'ALV에서 선택한 납품문서'
   INTO TABLE @DATA(LT_LIPS).


  LS_VBKOK_WA-VBELN_VL = 'ALV에서 선택한 납품문서'.
  LS_VBKOK_WA-KZPOD = 'D'.
  LS_VBKOK_WA-PODAT = '입력받은 날짜'.
  LS_VBKOK_WA-POTIM = '입력받은 시간'.
  LS_VBKOK_WA-WABUC = 'X'.
  LV_DELIVERY = 'ALV에서 선택한 납품문서'.


"(2) LT_VBPOK에 LIPS 데이터 입력이 꼭 필요하다.
  LOOP AT LT_LIPS ASSIGNING FIELD-SYMBOL(<FS_LIPS>).
    APPEND VALUE #( VBELN_VL = <FS_LIPS>-VBELN
                    POSNR_VL = <FS_LIPS>-POSNR
                    MATNR    = <FS_LIPS>-MATNR
                    CHARG    = <FS_LIPS>-CHARG
                    LFIMG    = <FS_LIPS>-LFIMG
                    VRKME    = <FS_LIPS>-VRKME ) TO LT_VBPOK.
  ENDLOOP.


"(3) POD 업데이트.
  CALL FUNCTION 'WS_DELIVERY_UPDATE_2'
    EXPORTING
      VBKOK_WA                = LS_VBKOK_WA
      SYNCHRON                = GC_X
      COMMIT                  = GC_X
      DELIVERY                = LV_DELIVERY
      NICHT_SPERREN_1         = GC_Y
    IMPORTING
      EF_ERROR_IN_GOODS_ISSUE = PV_PGI
    TABLES
      VBPOK_TAB               = LT_VBPOK
      PROT                    = LT_PROT.