SAP盘点：创建盘点凭证BAPI_MATPHY…

前台：MI01

输入工厂，库存地点，在记账冻结打X，具体什么意思F1查看

回车后，填写物料，回车，项目号会自动变更

BAPI：BAPI_MATPHYSINV_CREATE_MULT

查找bapi参见：http://blog.sina.com.cn/s/blog_c0978c9b0102uxji.html

*&---------------------------------------------------------------------*
*&创建盘点凭证 MI01
*&---------------------------------------------------------------------*

TABLES:MARA.

DATA: IT_ITEM     LIKE TABLE  OF BAPI_PHYSINV_COUNT_ITEMS WITH HEADER LINE,
          RET_MSG   LIKE TABLE OF BAPIRET2                             WITH HEADER LINE,
         G_INVDOC   LIKE IKPF-IBLNR.
*&--------------------------------------------------------------------*
*&  SEKECTION-SCREEN
*&--------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK BLK1 WITH FRAME TITLE TEXT-001.

PARAMETERS:P_WERKS LIKE MARD-WERKS      DEFAULT 'RYL5',
                    P_LGORT LIKE MARD-LGORT      DEFAULT '3100',
                   P_MATNR LIKE MARD-MATNR     DEFAULT '0609990060199112',
                   P_DATE  LIKE SY-DATUM            DEFAULT '20140618'.
SELECTION-SCREEN END OF BLOCK BLK1.

*&---------------------------------------------------------------------*
*&  START-OF-SELECTION
*&---------------------------------------------------------------------*
START-OF-SELECTION.
*& 创建盘点凭证
  PERFORM CREATE_INVENTORY_DOCUMENT.

*&---------------------------------------------------------------------*
*&      Form  CREATE_INVENTORY_DOCUMENT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM CREATE_INVENTORY_DOCUMENT .

  DATA:L_HEAD TYPE BAPI_PHYSINV_CREATE_HEAD,
       ITEM   LIKE TABLE OF BAPI_PHYSINV_CREATE_ITEMS WITH HEADER LINE .

  L_HEAD-PLANT       = P_WERKS.
  L_HEAD-STGE_LOC   = P_LGORT.
  L_HEAD-DOC_DATE  = P_DATE.
  L_HEAD-PLAN_DATE = P_DATE. "盘点日期
  L_HEAD-PLAN_DATE = P_DATE. "凭证日期


*  GS_HEAD-PLANT       = P_WERKS."工厂
*  GS_HEAD-STGE_LOC   = P_LGORT."库存地点
*  GS_HEAD-PLAN_DATE = P_BLDAT."盘点日期
*  GS_HEAD-DOC_DATE = P_GIDAT."凭证日期

*  GS_HEAD-PHYS_INV_NO = P_INVNU."实际库存编号
*  GS_HEAD-PHYS_INV_REF = P_XBLNI."库存盘点参考

*SPEC_STOCK 特殊库存标识
*POST_BLOCK 由于实际盘点而冻结记帐
*FREEZEBOOKINV 冻结帐面库存
*DEL_BATCHES  XLVOCA 包括带有删除标识的批量
*GROUPING_TYPE 分组标准类型

*    GT_ITEM-MATERIAL     = GT_IT_DATA-MATNR.            "物料号码
*    GT_ITEM-BATCH         = GT_IT_DATA-CHARG.             "批次编号
**    GT_ITEM-STOCK_TYPE = GT_IT_DATA-BSTAR.                  "库存类型（1~4）
*    APPEND GT_ITEM.
*    CLEAR GT_ITEM.


  ITEM-MATERIAL  = P_MATNR.
  ITEM-STOCK_TYPE = 1.

  APPEND ITEM.
  CLEAR  ITEM.
  CALL FUNCTION 'BAPI_MATPHYSINV_CREATE_MULT'
    EXPORTING
      HEAD   = L_HEAD
    TABLES
      ITEMS  = ITEM[]
      RETURN = RET_MSG.

  PERFORM COMMIT_OPERATION.

ENDFORM.                    " CREATE_INVENTORY_DOCUMENT
*&---------------------------------------------------------------------*
*&      Form  COMMIT_OPERATION
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM COMMIT_OPERATION .

  READ TABLE RET_MSG WITH KEY TYPE = 'E'.
  IF SY-SUBRC <> 0.
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
      EXPORTING
        WAIT = 'X'.
    READ TABLE RET_MSG INDEX 1.
    IF SY-SUBRC = 0.
      WRITE:/ 'document:',RET_MSG-MESSAGE_V1.
    ENDIF.
  ELSE.
    LOOP AT RET_MSG.
      WRITE:/ 'erro message:',RET_MSG-MESSAGE.
    ENDLOOP.
  ENDIF.

ENDFORM.                    " COMMIT_OPERATION