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.