SAP 基本单位与物料计量单位间的转换

READ TABLE gt_meins INTO gw_meins  WITH KEY matnr = wa_table01-matnr BINARY SEARCH.

• IF sy-subrc = 0.

•  wa_items-activityun = gw_meins-meins.
  

• ENDIF.

CALL FUNCTION 'MD_CONVERT_MATERIAL_UNIT'
  EXPORTING
    i_matnr              = wa_table01-matnr"物料号
    i_in_me              = gw_meins-meins"单位
    i_out_me             = 'TO'"凭证使用单位
    i_menge              = wa_items-actvty_qty"转换前的数量
  IMPORTING
    e_menge              = wa_items-actvty_qty"转换后的数量
  EXCEPTIONS
    error_in_application = 1
    error                = 2
    OTHERS               = 3.

wa_items-activityun =  'TO' .                 "总计单位

• end add 数量单位不能写死 取物料号对应单位 2018-11-1
  APPEND wa_items TO t_items .
  CLEAR:wa_items,gw_meins.
  ENDLOOP.

• CALL FUNCTION ‘BAPI_ACC_ACTIVITY_ALLOC_POST’
  EXPORTING
  doc_header = wa_header

• IGNORE_WARNINGS       = ' '
  

  IMPORTING
  doc_no = l_doc
  TABLES
  doc_items = t_items "实际过帐
  return = t_return "返回参数

• CRITERIA   =
  

• CUSTOMER_FIELDS       =
  

  .
  zcl_utilities_message_handler=>bapi_return_to_string(
  EXPORTING
  it_return = t_return " Return parameter table

•      i_separator       = '/'    " Separator
  

  IMPORTING
  e_error = lv_error " Error Flag

•      e_warning         =     " Warning Flag
  

  e_message = lv_error_message " Error Message

•      e_warning_message =     " Warning Message
  

  ).
  *—message
  LOOP AT t_return INTO wa_return.
  ls_msg-msgty = wa_return-type.
  ls_msg-msgid = wa_return-id.
  ls_msg-msgno = wa_return-number.
  ls_msg-msgv1 = wa_return-message_v1.
  ls_msg-msgv2 = wa_return-message_v2.
  ls_msg-msgv3 = wa_return-message_v3.
  ls_msg-msgv4 = wa_return-message_v4.
  APPEND ls_msg TO gt_msg.
  ENDLOOP.

• IF lv_error IS INITIAL.
  CALL FUNCTION ‘BAPI_TRANSACTION_COMMIT’

•   EXPORTING
  

•     WAIT          =
  

•   IMPORTING
  

•     RETURN        =
  .
  

  PERFORM frm_next_do USING l_doc.

  ELSE.
  CALL FUNCTION ‘BAPI_TRANSACTION_ROLLBACK’

•   IMPORTING
  

•     RETURN        =
  .
  

  ENDIF.

  CALL FUNCTION ‘RSDC_SHOW_MESSAGES_POPUP’
  EXPORTING
  i_t_msg = gt_msg
  i_txt = text-001
  i_with_s_on_empty = rs_c_false
  i_one_msg_direct = rs_c_false
  i_one_msg_type_s = rs_c_false

• IMPORTING