创建IM盘点凭证，录入数量，修改数量

  *& 创建IM盘点凭证，录入数量，修改数量

REPORT  ztest_inventory.
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.
*& 产生盘点凭证
PERFORM create_inventory_document.
*&录入盘点数量
PERFORM record_quantity.
*& 更改数量
PERFORM change_quantity.
*&---------------------------------------------------------------------*
*&      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 = '1000'.
  l_head-stge_loc = 'X601'.
  l_head-doc_date = sy-datum.
  l_head-plan_date = sy-datum.

  item-material = '1000-00066'.
  APPEND 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
*&---------------------------------------------------------------------*
*&      Form  RECORD_QUANTITY
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM record_quantity .

  REFRESH:ret_msg.
  g_invdoc = '0100045002'."(The length is 10)
  it_item-item = '001'.
  it_item-material = '1000-00066'.
  it_item-entry_qnt = 1.
  it_item-entry_uom = 'TAI'."(the measure is inner format)
  APPEND it_item.

  CALL FUNCTION 'BAPI_MATPHYSINV_COUNT'
    EXPORTING
      physinventory = g_invdoc
      fiscalyear    = 2010
      count_date    = sy-datum
    TABLES
      items         = it_item
      return        = ret_msg.

  PERFORM commit_operation.

ENDFORM.                    " RECORD_QUANTITY
*&---------------------------------------------------------------------*
*&      Form  CHANGE_QUANTITY
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM change_quantity .
  CALL FUNCTION 'BAPI_MATPHYSINV_CHANGECOUNT'
    EXPORTING
      physinventory             = g_invdoc
      fiscalyear                = '2010'
*   PERCENTAGE_VARIANCE       =
    TABLES
      items                     = it_item
      return                    = ret_msg
*   SERIALNUMBERS             =
            .

  PERFORM commit_operation.

ENDFORM.                    " CHANGE_QUANTITY