UNIT_CONVERSION - ooxxvv/MySAPnotes GitHub Wiki
PageOutline {{{#!comment -------------------- 以上的部份是固定的,不要變動 ----- --------------------------------------- 在建立連結時,請標明連結的頁面類型,例如:wiki:WikiStart,而不要只用 WikiStart ----- }}}
UNIT_CONVERSION
- 單位換算
- 可輸入一般常見的單位 (例:G, KG...) 直接換算
Code
{{{#!abap FORM exchange_qty USING fi_matnr "Material fi_menge "Qty fi_bstme "Unit CHANGING fo_menge "Qty fo_meins. "Unit DATA: l_matnr LIKE mara-matnr, l_meinh LIKE marm-meinh, l_meins LIKE mara-meins, l_mgame LIKE rseg-menge.
CLEAR: fo_menge, fo_meins.
l_matnr = fi_matnr. l_meinh = fi_bstme.
CALL FUNCTION 'UNIT_CONVERSION' EXPORTING matnr = l_matnr meinh = l_meinh mgame = fi_menge IMPORTING o_meins = l_meins o_mgame = l_mgame EXCEPTIONS conversion_not_found = 1 different_dimension = 2 division_by_zero = 3 overflow = 4 t006d_entry_missing = 5 t006_entry_missing = 6 OTHERS = 7.
IF sy-subrc <> 0. fo_menge = fi_menge. fo_meins = fi_bstme. ELSE. fo_menge = l_mgame. fo_meins = l_meins. ENDIF.
ENDFORM. " EXCHANGE_QTY }}}