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 }}}

{{{#!comment -------------------- 以下的部份是固定的,不要變動 ----- }}}