VLPOD 测试代码

*&---------------------------------------------------------------------*
*& Report YWWZ_TEST902
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ywwz_test902.

DATA:ls_vbkok_wa TYPE vbkok.
DATA:lv_delivery TYPE likp-vbeln.

DATA:lt_prot_log  TYPE TABLE OF prott,
     lt_vbpok_tab TYPE TABLE OF vbpok.

ls_vbkok_wa-vbeln_vl = '8000000194'.
lv_delivery = '8000000194'.

ls_vbkok_wa-podat = sy-datum.
ls_vbkok_wa-potim = sy-uzeit.
ls_vbkok_wa-kzpod = 'D'."D/B
ls_vbkok_wa-wabuc = 'X'.
*ls_vbkok_wa-BORGR_KZPOD = 'X'.

SELECT *
  FROM lips WHERE vbeln = @lv_delivery
  INTO TABLE @DATA(lt_lips).

LOOP AT lt_lips INTO DATA(ls_lips).

  lt_vbpok_tab = VALUE #( BASE lt_vbpok_tab
                          (
      vbeln_vl = ls_lips-vbeln
      posnr_vl = ls_lips-posnr
      matnr    = ls_lips-matnr
      charg    = ls_lips-charg
      lfimg    = ls_lips-lfimg
      vrkme    = ls_lips-vrkme
      lgmng    = ls_lips-lgmng
      meins    = ls_lips-meins
                          )
                          ).

ENDLOOP.


BREAK-POINT.

CALL FUNCTION 'WS_DELIVERY_UPDATE_2'
  EXPORTING
    vbkok_wa  = ls_vbkok_wa
    commit    = 'X'
    delivery  = lv_delivery
  TABLES
    vbpok_tab = lt_vbpok_tab
    prot      = lt_prot_log.


BREAK-POINT.