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