SAP WS_DELIVERY_UPDATE2更细库存地点LGORT及过账

原创已于 2023-12-25 13:33:20 修改

· 1.4k 阅读

12 ·

版权

文章标签：

#SAP #ABAP #交货单过账 #DN #BAPI

于 2023-12-22 17:00:12 首次发布

SAP技术小知识专栏收录该内容

65 篇文章

订阅专栏

文章描述了一个在正常情况下无法直接更改LGORT的过程，通过标准BADIIF_EX_LE_SHP_DELIVERY_UPDATE中的UPDATE_ITEM方法，可以完成DN变更和过账，且提供了测试Demo。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

WS_DELIVERY_UPDATE2正常情况无法更改LGORT，但是有标准的BADI可以进行变更，这样DN变更和过账可以使用一个BAPI来完成。

增强点：LE_SHP_DELIVERY_UPDATE

方法：IF_EX_LE_SHP_DELIVERY_UPDATE~UPDATE_ITEM

  METHOD if_ex_le_shp_delivery_update~update_item.
      IF is_vbpok-lgort IS NOT INITIAL.
        cs_lips-lgort = is_vbpok-lgort.
      ENDIF.
  ENDMETHOD.

测试demo：

REPORT zprtest_dn_post.

DATA:
  ls_vbkok_wa TYPE vbkok,
  lv_delivery TYPE likp-vbeln,
  lt_prot     TYPE STANDARD TABLE OF prott,
  lt_vbpok    TYPE STANDARD TABLE OF vbpok,
  ls_vbpok    TYPE vbpok,
  ls_prot     TYPE prott.

DATA:
  lv_msg  TYPE string.

DATA:
  lv_vbeln TYPE vbeln VALUE '0070005866'.

SELECT vbeln,
       posnr,
       vgbel,
       vgpos,
       matnr,
       lfimg,
       charg,
       vrkme,
       meins,
       umvkz,
       umvkn,
       lgort
  INTO TABLE @DATA(lt_lips)
  FROM lips
 WHERE vbeln = @lv_vbeln.

ls_vbkok_wa-vbeln_vl  = lv_vbeln.
ls_vbkok_wa-wadat_ist = sy-datlo.
ls_vbkok_wa-wabuc     = abap_true.
ls_vbkok_wa-komue     = abap_true.

lv_delivery = lv_vbeln.

LOOP AT lt_lips INTO DATA(ls_lips).
  ls_vbpok-vbeln_vl = ls_lips-vbeln.
  ls_vbpok-posnr_vl = ls_lips-posnr.
  ls_vbpok-vbeln    = ls_lips-vgbel.
  ls_vbpok-posnn    = ls_lips-vgpos.
  ls_vbpok-pikmg    = ls_lips-lfimg.
  ls_vbpok-matnr    = ls_lips-matnr.
  ls_vbpok-charg    = ls_lips-charg.
  ls_vbpok-vrkme    = ls_lips-vrkme.
  ls_vbpok-meins    = ls_lips-meins.
  ls_vbpok-umvkz    = ls_lips-umvkz.
  ls_vbpok-umvkn    = ls_lips-umvkn.
  ls_vbpok-lgort    = '9999'.
  APPEND ls_vbpok TO lt_vbpok.
  CLEAR ls_vbpok.
ENDLOOP.

CALL FUNCTION 'WS_DELIVERY_UPDATE_2'
  EXPORTING
    vbkok_wa       = ls_vbkok_wa
*   SYNCHRON       = ' '
*   NO_MESSAGES_UPDATE_1               = ' '
*   COMMIT         = ' '
    delivery       = lv_delivery
    update_picking = abap_true
  TABLES
    vbpok_tab      = lt_vbpok
    prot           = lt_prot.

IF lt_prot IS NOT INITIAL.
  LOOP AT lt_prot INTO ls_prot WHERE msgty = 'E'.
    MESSAGE ID ls_prot-msgid
       TYPE ls_prot-msgty
     NUMBER ls_prot-msgno
       WITH ls_prot-msgv1
            ls_prot-msgv2
            ls_prot-msgv3
            ls_prot-msgv4
       INTO DATA(lv_message).

    WRITE:/,lv_message.
  ENDLOOP.

  CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.

*  cl_demo_output=>display( lt_prot ).
ELSE.
  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
    EXPORTING
      wait = 'X'.

  MESSAGE 'Change and Post Successful..' TYPE 'S'.
ENDIF.