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