DEMO:交货单过账WS_DELIVERY_UPDATE

货铺QQ群号：834508274

进群统一修改群名片，例如BJ_ABAP_森林木。群内禁止发广告及其他一切无关链接，小程序等，进群看公告，谢谢配合
不修改昵称会被不定期踢除，谢谢配合

交货单过账 

BAPI_OUTB_DELIVERY_CONFIRM_DEC 会有冲销不掉的问题。

一般使用WS_DELIVERY_UPDATE

DEMO比较简单：

TABLES:LIKP,LIPS.

PARAMETERS:P_VBELN TYPE VBELN_VL.

DATA:LT_LIKP            TYPE TABLE OF LIKP.

DATA:LS_LIKP            LIKE LINE  OF LT_LIKP.

DATA:LT_LIPS            LIKE TABLE OF LIPS.

DATA:LS_LIPS            LIKE LINE  OF LT_LIPS.

DATA:LS_VBKOK           TYPE          VBKOK.

DATA:LT_VBPOK_TAB       TYPE TABLE OF VBPOK .

DATA LT_PROT            LIKE TABLE OF PROTT .

DATA:LS_VBPOK_TAB       LIKE LINE  OF LT_VBPOK_TAB.

DATA LS_PROT            LIKE LINE  OF LT_PROT.

*& get delivery data

SELECT SINGLE * INTO  LS_LIKP FROM LIKP

  WHERE VBELN  = P_VBELN.

SELECT * INTO TABLE LT_LIPS FROM LIPS

  WHERE VBELN  = P_VBELN.

CLEAR LS_VBKOK.

LS_VBKOK-VBELN_VL           = LS_LIKP-VBELN.

LS_VBKOK-WABUC              = 'X'.

LS_VBKOK-WADAT_IST          = LS_LIKP-BLDAT.

CLEAR LS_LIPS.

CLEAR LT_VBPOK_TAB[].

CLEAR LS_VBPOK_TAB.

LOOP AT LT_LIPS INTO LS_LIPS..

  LS_VBPOK_TAB-VBELN_VL        = LS_LIPS-VBELN.      "Delivery number

  LS_VBPOK_TAB-POSNR_VL        = LS_LIPS-POSNR.

  LS_VBPOK_TAB-VBELN           = LS_LIPS-VGBEL .     "SO

  LS_VBPOK_TAB-POSNN           = LS_LIPS-VGPOS.

  LS_VBPOK_TAB-MATNR           = LS_LIPS-MATNR.

  LS_VBPOK_TAB-PIKMG           = LS_LIPS-LFIMG  .

  APPEND LS_VBPOK_TAB TO LT_VBPOK_TAB.

  CLEAR LS_LIPS.

  CLEAR LS_VBPOK_TAB.

ENDLOOP.

CALL FUNCTION 'WS_DELIVERY_UPDATE'
  EXPORTING
    VBKOK_WA       = LS_VBKOK
    DELIVERY       = P_VBELN
    UPDATE_PICKING = 'X'
  TABLES
    VBPOK_TAB      = LT_VBPOK_TAB
    PROT           = LT_PROT.

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
  EXPORTING
    WAIT = 'X'.