物料转移过账BAPI_GOODSMVT_CREATE

最新推荐文章于 2025-07-17 15:22:33 发布

zjut_xiongfeng

最新推荐文章于 2025-07-17 15:22:33 发布

阅读量1.9k

点赞数

CC 4.0 BY-SA版权

分类专栏： ABAPTM MM 文章标签： command reference output input table date

本文链接：https://blog.youkuaiyun.com/zjut_xiongfeng/article/details/4729018

ABAPTM 同时被 2 个专栏收录

58 篇文章

订阅专栏

5 篇文章

订阅专栏

物料转移过账BAPI_GOODSMVT_CREATE

REPORT  zppmm_mb1b.
TABLES:mseg,
       mkpf,
       rm07m,
       t158b,
       t001l,
       msegk.

DATA: mat_doc LIKE bapi2017_gm_head_ret-mat_doc.

DATA:save_code LIKE sy-ucomm,
     ok_code LIKE sy-ucomm,
     loc_msg(50),
     gmnga LIKE afru-gmnga,
     mtsnr LIKE  rm07m-mtsnr,
     errflag..

DATA:BEGIN OF gt_afpo OCCURS 0.
        INCLUDE STRUCTURE afpo.
DATA:END OF gt_afpo.

DATA:gmhead LIKE bapi2017_gm_head_01.

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.

INITIALIZATION.
  t001l-lgort = '1051'.
  mseg-lgort = '1050'.
  mseg-werks = '1000'.
  mkpf-bldat = sy-datum.
  mkpf-budat = sy-datum.
  t158b-bwart = '311'.
  rm07m-sobkz = 'E'.
  rm07m-werks = '1000'.
  rm07m-lgort = '1050'.
  mseg-erfme = 'PC'.
  gmcode-gm_code = '04'.                                    "MB1B
  CALL SCREEN 100.

*&----------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&-----------------------------------------------------*
*       text
*--------------------------------------------------------*
MODULE status_0100 OUTPUT.
  SET PF-STATUS 'FOR0100'.
  SET TITLEBAR '100'.

ENDMODULE.                 " STATUS_0100  OUTPUT
*&--------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&----------------------------------------------------*
*       text
*-----------------------------------------------------*
MODULE user_command_0100 INPUT.
  save_code = ok_code.
  CLEAR ok_code.
  CASE save_code.
    WHEN 'SAVE'.
      PERFORM form_save.
    WHEN 'EXIT' OR 'BACK'.
      LEAVE TO SCREEN 0.
    WHEN  'CLOSE' .
      LEAVE PROGRAM.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100  INPUT
*&-----------------------------------------------------*
*&      Form  FORM_SAVE
*&-------------------------------------------------*
*       text
*---------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*---------------------------------------------------*
FORM form_save .
  IF mkpf-bldat = ''
  OR mkpf-budat = ''
  OR rm07m-mtsnr = ''
  OR mseg-matnr = ''
  OR mseg-lgort = ''
  OR mseg-erfmg = ''
  OR mseg-erfme = ''
  OR t001l-lgort = ''
  OR msegk-mat_kdauf = ''
  OR msegk-mat_kdpos = ''.
    MESSAGE i000(znyj13) WITH '信息不完整'.
    RETURN.
  ENDIF.
  IF gmnga < mseg-erfmg.
    MESSAGE i000(znyj13) WITH '移动数量应小于确认数量'.
    mseg-erfmg = ''.
    RETURN.
  ENDIF.
  gmhead-pstng_date = sy-datum."mkpf-bldat.
  gmhead-doc_date = sy-datum."mkpf-budat.
  gmhead-ref_doc_no = rm07m-mtsnr.
  gmhead-pr_uname = sy-uname.
  gmhead-header_txt = mkpf-bktxt.
*  APPEND gmhead.

  itab-material = mseg-matnr .
  itab-plant = '1000'.
  itab-stge_loc = mseg-lgort.
  itab-move_type = t158b-bwart."rm07m-bwartwa.
  itab-spec_stock = rm07m-sobkz.
  itab-entry_qnt = mseg-erfmg.
  itab-entry_uom = mseg-erfme.
*  itab-batch = mseg-charg.
*  itab-orderid = rm07m-mtsnr.
*  itab-order_itno = msegk-mat_kdpos.
  itab-move_mat = mseg-matnr.
  itab-move_plant = '1000'.
  itab-move_stloc = t001l-lgort .
  itab-val_sales_ord = msegk-mat_kdauf.
  itab-val_s_ord_item = msegk-mat_kdpos.
  itab-nb_slips = 1.

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

  LOOP AT errmsg.
    CLEAR loc_msg.
    CONCATENATE '过帐成功!' errmsg-message INTO loc_msg.
    IF errmsg-type EQ 'E'.

      MESSAGE errmsg-message TYPE 'E'.
      errflag = 'X'.
    ELSE.
      MESSAGE loc_msg TYPE 'S'.
    ENDIF.
  ENDLOOP.

  IF errflag IS INITIAL.
    COMMIT WORK AND WAIT.
    CLEAR loc_msg.
    IF sy-subrc NE 0.

      MESSAGE '过帐操作出现错误,请稍后重试!' TYPE 'E'.
      EXIT.
    ELSE.

      CONCATENATE '物料凭证:' mat_doc '已成功创建!' INTO loc_msg.
      MESSAGE i000(znyj13) WITH loc_msg.

      gmhead-ref_doc_no = ''.
      gmhead-header_txt = ''.
      mseg-matnr = ''.
      msegk-mat_kdauf = ''.
      msegk-mat_kdpos = ''.
      mseg-erfmg = ''.
      rm07m-mtsnr = ''.
      gmnga = ''.
      mkpf-bktxt = ''.
    ENDIF.
  ELSE.
    MESSAGE '这不是正确的发料单或者已经创建凭证!' TYPE 'E'.
  ENDIF.

  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
    EXPORTING
      wait = 'X'.

ENDFORM.                    " FORM_SAVE
*&-----------------------------------------------*
*&      Module  RM07M-MTSNR  INPUT
*&----------------------------------------------*
*       text
*------------------------------------------------*
MODULE rm07m-mtsnr INPUT.
  CONCATENATE '0000' rm07m-mtsnr INTO mtsnr.
*  SELECT SINGLE gmnga INTO gmnga FROM afru WHERE aufnr = rm07m-mtsnr.
  IF sy-subrc = 0.
    SELECT  * INTO CORRESPONDING FIELDS OF TABLE gt_afpo
      FROM afpo
      WHERE aufnr = mtsnr.
    IF sy-subrc = 0.
      READ TABLE gt_afpo INDEX 1.
      msegk-mat_kdauf = gt_afpo-kdauf.
      msegk-mat_kdpos = gt_afpo-kdpos.
      mseg-matnr = gt_afpo-matnr.
      gmnga = gt_afpo-wemng.
    ENDIF.
  ELSE.
    CONCATENATE '订单: ' rm07m-mtsnr ' 不存在!' INTO loc_msg.
    MESSAGE i000(znyj13) WITH loc_msg.

    RETURN.
  ENDIF.
ENDMODULE.                 " RM07M-MTSNR  INPUT

PROCESS BEFORE OUTPUT.
MODULE STATUS_0100.
*
PROCESS AFTER INPUT.
MODULE USER_COMMAND_0100.
FIELD RM07M-MTSNR MODULE RM07M-MTSNR ON REQUEST.

* BAPI TO Upload Inventory Data
*
* GMCODE Table T158G - 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
*
* Domain: KZBEW - Movement Indicator
*      Goods movement w/o reference
* 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

GMCODE Table T158G - 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