MB1A bapi测试

最新推荐文章于 2024-07-15 10:14:09 发布

szq_zhengzhou

最新推荐文章于 2024-07-15 10:14:09 发布

阅读量1.1k

点赞数

CC 4.0 BY-SA版权

分类专栏： abap 文章标签： header date 测试

本文链接：https://blog.youkuaiyun.com/szq_zhengzhou/article/details/4084584

abap 专栏收录该内容

130 篇文章

订阅专栏

本文介绍SAP系统中货物移动代码的使用方法及具体示例。通过代码演示了如何创建货物发出流程，并详细解释了各参数的意义。适用于希望了解SAP物料管理模块的初学者和技术人员。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

* BAPI_TEST FOR MB1A

*& T158G 有具体的代码与事物码对应关系
* GMCODE  01 - MB01 - Goods Receipts for Purchase Order
*         02 - MB31 - Goods Receipts for Prod Order
*         03 - MB1A - Goods Issue
*         04 - MB1B - Transfer Posting
*         05 - MB1C - Enter Other Goods Receipt
*         06 - MB11
*  B - Goods movement for purchase order
*  F - Goods movement for production order
*  L - Goods movement for delivery note
*  K - Goods movement for kanban requirement (WM - internal only)
*  O - Subsequent adjustment of "material-provided" consumption
*  W - Subsequent adjustment of proportion/product unit material
*
REPORT zbapi_mb1a_test.

DATA: BEGIN OF gmhead.
        INCLUDE STRUCTURE bapi2017_gm_head_01.
DATA: END OF gmhead.

DATA: BEGIN OF gmcode.
        INCLUDE STRUCTURE bapi2017_gm_code.
DATA: END OF gmcode.

DATA: BEGIN OF mthead.
        INCLUDE STRUCTURE bapi2017_gm_head_ret.
DATA: END OF mthead.

DATA: BEGIN OF itab OCCURS 100.
        INCLUDE STRUCTURE bapi2017_gm_item_create.
DATA: END OF itab.

DATA: BEGIN OF errmsg OCCURS 10.
        INCLUDE STRUCTURE bapiret2.
DATA: END OF errmsg.

DATA: wmenge LIKE iseg-menge,
      documnet_num LIKE mseg-mblnr.

START-OF-SELECTION.
  gmhead-pstng_date = sy-datum.
  gmcode-gm_code = '03'.

  itab-move_type  = '261'.
  itab-plant      = '1000'.
  itab-material   = '5010-04577'.
  itab-entry_qnt = 1.
  itab-reserv_no = '0035677912'.
  itab-res_item  = '1515'.
  itab-stge_loc   = 'K100'.
  APPEND itab.

  CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
    EXPORTING
      goodsmvt_header  = gmhead
      goodsmvt_code    = gmcode
      goodsmvt_headret = mthead
    IMPORTING
      materialdocument = documnet_num
    TABLES
      goodsmvt_item    = itab
      return           = errmsg.

   LOOP AT errmsg WHERE type = 'E' OR
                       type = 'A'.
    WRITE:/ errmsg-message.

  ENDLOOP.

  IF sy-subrc <> 0.
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
      EXPORTING
        wait = 'X'.
    WRITE: documnet_num.
  ENDIF.