SAP VL02N 交货单过账函数 WS_DELIVERY_UPDATE

SAP VL02N 交货单过账函数 WS_DELIVERY_UPDATE

前言

用BDC模拟VL02N过账也可以，并不复杂
只不过用SAP提供的Function Module在扩展性上要好一些

代码总览

测试报表

TABLES: likp.

DATA: gs_likp   TYPE likp,
      gt_lips   TYPE STANDARD TABLE OF lips,
      gs_lips   TYPE lips,
      gs_return TYPE zcommon_return.

SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE TEXT-001.
  SELECT-OPTIONS: s_vbeln FOR likp-vbeln MEMORY ID vbe.
SELECTION-SCREEN END OF BLOCK blk1.

START-OF-SELECTION.

  SELECT SINGLE * FROM likp WHERE vbeln IN @s_vbeln INTO CORRESPONDING FIELDS OF @gs_likp.
  gs_likp-wadat_ist = gs_likp-wadat.

  SELECT * FROM lips WHERE vbeln IN @s_vbeln INTO CORRESPONDING FIELDS OF TABLE @gt_lips.

  CALL FUNCTION 'ZSDFM01_DELIVERY'
    EXPORTING
      wa_likp   = gs_likp
    IMPORTING
      wa_return = gs_return
    TABLE