本文共 701 字，大约阅读时间需要 2 分钟。

DATA: header LIKE bapi2017_gm_head_01,

      code LIKE bapi2017_gm_code,       return LIKE bapiret2 OCCURS 0 WITH HEADER LINE,       item LIKE bapi2017_gm_item_create OCCURS 0 WITH HEADER LINE,       ret_doc LIKE bapi2017_gm_head_ret. START-OF-SELECTION.

  CLEAR: header,code,item,item[],return.

  header-pstng_date = sy-datum.

  code-gm_code = ‘04′.

  item-material = ‘2102010182′.

  item-plant = ‘1120′.   item-stge_loc = ‘1711′.   item-move_type = ‘411′.   item-spec_stock = ‘K’.   item-vendor = ‘0002511006′.   item-entry_qnt = 12.   APPEND item.

  CALL FUNCTION ‘BAPI_GOODSMVT_CREATE’

    EXPORTING       goodsmvt_header  = header       goodsmvt_code    = code     IMPORTING       goodsmvt_headret = ret_doc     TABLES       goodsmvt_item    = item       return           = return.

  COMMIT WORK AND WAIT.

转载地址：http://fyhaf.baihongyu.com/