如何逆转POD和PGI状态？

Question

有人能建议功能模块逆转POD状态和PGI状态吗？

我用WS_DELIVERY_UPDATE_2来更新A或B到C的POD状态和PGI，但是如何逆转呢？

是否可以像C一样将A状态从C逆转到A，就像VL09一样将C状态逆转到A。

这段代码更新POD状态，但我不知道如何逆转它

*** updating PGI status ***

ls_vbkok-wabuc = 'X'.
ls_vbkok-wadat_ist = sy-datum.
ls_vbkok-wauhr = sy-uzeit.
ls_vbkok-wadat = plandate.
ls_vbkok-kzwad = 'X'.

CLEAR: ls_vbkok-kzpod, ls_vbkok-podat, ls_vbkok-potim.

CALL FUNCTION 'WS_DELIVERY_UPDATE_2'
  EXPORTING
    vbkok_wa = ls_vbkok
    synchron = 'X'
    commit = 'X'
    delivery = ls_likp-vbeln
    update_picking = 'X'
  TABLES
    prot = lt_prot.

*** updating POD status ***

ls_vbkok-kzpod = 'D'.
ls_vbkok-podat = sy-datum.
ls_vbkok-potim = sy-uzeit.

CALL FUNCTION 'WS_DELIVERY_UPDATE_2'
  EXPORTING
    vbkok_wa = ls_vbkok
    synchron = 'X'
* NO_MESSAGES_UPDATE_1 = ' '
    commit = 'X'
    delivery = ls_likp-vbeln
* update_picking = 'X' "test stock
* nicht_sperren_1 = 'Y'
  TABLES
    vbpok_tab = lt_vbpok
    prot = lt_prot.

CLEAR: lt_vbpok, ls_vbpok, lt_prot, ls_likp.

诚挚的问候

Answer 1

最近，我遇到了一个问题，我使用了模块函数WS_DELIVERY_UPDATE_2，为了测试，我不得不将其转换到状态'A‘。

为了逆转状态，我执行了事务VL09。

在阅读了您的问题之后，我检查了该事务的代码，即RVV50L09，并找到了模块函数WS_REVERSE_GOODS_ISSUE。

希望能帮上忙。

​

​

Answer 2

检查POD_STATUS_MAINTAIN子例程中的FV50XFPD包含。

它使用以下FM恢复POD状态：

lips-kzpod = 'B'.

CALL FUNCTION 'LIPS_STATUS_MAINTAIN'
  EXPORTING
    f_likp   = likp
    f_posnr  = lips-posnr
    land1_we = kuwev-land1
  TABLES
    fxlips   = xlips
    fxvbapf  = xvbapf
    fxvbup   = xvbup
    fyvbup   = yvbup
    fxvbfa   = xvbfa.

关于PGI，问另一个问题。