To convert the Unit of Measure to alternate UOM

Hi Friends,

Below function module code help you to convert the unit of measure of a material quantity to another unit of measure.

FUNCTION Z_CONVERT_TO_ALTERNATE_UOM :

Helps to convert the UOM of material quantity based on the parameters # Alternate UOM to be converted to

Material Quantity
Material Number
and export the converted material quantity.

FUNCTION Z_CONV_ALTERNATE_UOM :

Helps to convert the UOM of material quantity based on the parameters # Alternate UOM to be converted to

Current UOM of the material quantity
Material Quantity
Material Number
and export the converted material quantity along the Numerator & Denominator for conversion to base units of measure.

Code:

Main Program Code: SAPLZUOM

*******************************************************************
*   System-defined Include-files.                                 *
*******************************************************************
  INCLUDE LZUOMTOP.                          " Global Data
  INCLUDE LZUOMUXX.                          " Function Modules
*******************************************************************
*   User-defined Include-files (if necessary).                    *
*******************************************************************
* INCLUDE LZUOMF...                          " Subprograms
* INCLUDE LZUOMO...                          " PBO-Modules
* INCLUDE LZUOMI...                          " PAI-Modules
--------------------------------------------------------------------------
Include Program Code:
--------------------------------------------------------------------------
INCLUDE LZUOMTOP.
FUNCTION-POOL ZUOM.

DATA :  WS_C_CF TYPE   P DECIMALS 5,
        WA_C_CF1 TYPE  MARM,
        WA_C_CF2 TYPE  MARM,
        WS_C_MEINS TYPE  MARA.

DATA :  WS_BASE_CF TYPE   P DECIMALS 5,
        WS_CUR_QTY TYPE   P DECIMALS 5,
        WA_BASE_CF1 TYPE  MARM,
        WA_CURR_CF2 TYPE  MARM,
        WS_ALT_CF3  TYPE  MARM,
        WS_BASE_MEINS TYPE MARA-MEINS,
        WS_ALT_UOM    TYPE MARA-MEINS,
        WS_CURR_UOM   TYPE MARA-MEINS.

*****************************************************************
*   THIS FILE IS GENERATED BY THE FUNCTION LIBRARY.             *
*   NEVER CHANGE IT MANUALLY, PLEASE!                           *
*****************************************************************
INCLUDE LZUOMU01.   "Z_CONVERT_TO_ALTERNATE_UOM
INCLUDE LZUOMU02.   "Z_CONV_ALTERNATE_UOM

INCLUDE LZUOMU01.

FUNCTION Z_CONVERT_TO_ALTERNATE_UOM .
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     REFERENCE(P_ALT_UOM) TYPE  MARM-MEINH
*"     REFERENCE(P_CUR_QTY) TYPE  P
*"     REFERENCE(P_MATNR) TYPE  MARM-MATNR
*"  EXPORTING
*"     REFERENCE(P_ALT_QTY) TYPE  P
*"----------------------------------------------------------------------
  CLEAR : WS_C_MEINS,WS_C_CF.

CLEAR : WS_C_MEINS,WS_C_CF.

  SELECT SINGLE MEINS
      FROM MARA
      INTO CORRESPONDING FIELDS OF WS_C_MEINS
      WHERE MATNR = P_MATNR.

*** sales unit of measure not equal to base unit of measure

IF P_ALT_UOM <> WS_C_MEINS-MEINS.

WS_ALT_UOM = P_ALT_UOM.

    CALL FUNCTION 'CONVERSION_EXIT_CUNIT_INPUT'
      EXPORTING
        INPUT          = WS_ALT_UOM
      IMPORTING
        OUTPUT         = WS_ALT_UOM
      EXCEPTIONS
        UNIT_NOT_FOUND = 1
        OTHERS         = 2.
    IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.

    CLEAR : WA_C_CF1.       " Conversion Factor for Base unit measure
    SELECT SINGLE
           MATNR
           MEINH
           UMREZ     "Numerator for Conversion to Base UnitsMeasure
           UMREN     "Denominator for conversion to base unitsmeasure
      FROM MARM
      INTO CORRESPONDING FIELDS OF WA_C_CF1
     WHERE MATNR = P_MATNR
       AND MEINH   = WS_C_MEINS-MEINS.

    CLEAR : WA_C_CF2  .
    SELECT SINGLE
           MATNR
           MEINH
           UMREZ
           UMREN
      FROM MARM
      INTO CORRESPONDING FIELDS OF WA_C_CF2
     WHERE MATNR = P_MATNR
       AND MEINH = WS_ALT_UOM.

***Calculate the conversion factor

    WS_C_CF = ( WA_C_CF2-UMREZ / WA_C_CF2-UMREN )
            * ( WA_C_CF1-UMREZ / WA_C_CF1-UMREN ).
  ELSE.
    WS_C_CF = 1.
  ENDIF.

P_ALT_QTY = P_CUR_QTY * WS_C_CF.

ENDFUNCTION.

--------------------------------------------------------------------------
INCLUDE LZUOMU02.

FUNCTION Z_CONV_ALTERNATE_UOM .
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     REFERENCE(P_ALT_UOM) TYPE  MARM-MEINH
*"     REFERENCE(P_CURR_UOM) TYPE  MARM-MEINH
*"     REFERENCE(P_CUR_QTY) TYPE  P
*"     REFERENCE(P_MATNR) TYPE  MARM-MATNR
*"  EXPORTING
*"     REFERENCE(P_ALT_QTY) TYPE  P
*"     VALUE(UMREZ) TYPE  UMREZ
*"     VALUE(UMREN) TYPE  UMREN
*"  EXCEPTIONS
*"      CURR_UOM_NOT_FOUND
*"      ALT_UOM_NOT_FOUND
*"----------------------------------------------------------------------
  CLEAR: WS_CUR_QTY,
         WS_BASE_MEINS,
         WS_C_MEINS.

*** sales unit of measure not equal to Alt unit of measure

IF P_ALT_UOM <> P_CURR_UOM.

WS_CURR_UOM = P_CURR_UOM.
WS_ALT_UOM = P_ALT_UOM.

    CALL FUNCTION 'CONVERSION_EXIT_CUNIT_INPUT'
      EXPORTING
        INPUT          = WS_ALT_UOM
      IMPORTING
        OUTPUT         = WS_ALT_UOM
      EXCEPTIONS
        UNIT_NOT_FOUND = 1
        OTHERS         = 2.
    IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.

    CALL FUNCTION 'CONVERSION_EXIT_CUNIT_INPUT'
      EXPORTING
        INPUT          = WS_CURR_UOM
      IMPORTING
        OUTPUT         = WS_CURR_UOM
      EXCEPTIONS
        UNIT_NOT_FOUND = 1
        OTHERS         = 2.

    IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.

*---  1ST GET THE BASE UOM
    SELECT SINGLE MEINS
      FROM MARA
      INTO WS_BASE_MEINS
      WHERE MATNR = P_MATNR.

*--- Conversion Factor for Base UOM
    CLEAR : WA_BASE_CF1.       " Conversion Factor for Base unit measure
    SELECT SINGLE MATNR
                  MEINH
                  UMREZ     "Numerator for Conversion to Base UnitsMeasure
                  UMREN     "Denominator for conversion to base unitsmeasure
             FROM MARM
             INTO CORRESPONDING FIELDS OF WA_BASE_CF1
            WHERE MATNR = P_MATNR
              AND MEINH = WS_BASE_MEINS.

*--- conversion Factor for Curr UOM
    CLEAR : WA_CURR_CF2.       " Conversion Factor for Current unit measure
    SELECT SINGLE MATNR
                  MEINH
                  UMREZ     "Numerator for Conversion to Base UnitsMeasure
                  UMREN     "Denominator for conversion to base unitsmeasure
             FROM MARM
             INTO CORRESPONDING FIELDS OF WA_CURR_CF2
            WHERE MATNR = P_MATNR
              AND MEINH = WS_CURR_UOM.

*--- Conversion Factor for Alt UOM
    CLEAR : WS_ALT_CF3.  " Conversion Factor for Alternate unit measure
    SELECT SINGLE MATNR
                  MEINH
                  UMREZ
                  UMREN
             FROM MARM
             INTO CORRESPONDING FIELDS OF WS_ALT_CF3
            WHERE MATNR = P_MATNR
            AND   MEINH = WS_ALT_UOM.

*** What is the Base Qty, convert from Alternate to Base.
*** Calculate the conversion factor from Current UOM to the Base UOM
    WS_BASE_CF =   (  WA_CURR_CF2-UMREZ / WA_CURR_CF2-UMREN )
                 * (  WA_BASE_CF1-UMREZ / WA_BASE_CF1-UMREN ).
*--- Qty value form Current UOM to Base UOM
    WS_CUR_QTY = P_CUR_QTY * WS_BASE_CF.

*** What is the new UOM Qty, Convert from Base to new Alternate
*** Calculate the conversin factor from Base UOM to Alternate UOM.
    WS_C_CF =   ( WS_ALT_CF3-UMREN  / WS_ALT_CF3-UMREZ )
              * ( WA_BASE_CF1-UMREN / WA_BASE_CF1-UMREZ ).
*--- Qty value from Base UOM to Alt UOM
    WS_CUR_QTY = WS_CUR_QTY * WS_C_CF.

  ELSE.
    WS_CUR_QTY = P_CUR_QTY.
  ENDIF.

  P_ALT_QTY = WS_CUR_QTY.
  UMREZ     = WS_ALT_CF3-UMREZ.
  UMREN     = WS_ALT_CF3-UMREN.

ENDFUNCTION.

Source: http://wiki.scn.sap.com/wiki/display/ABAP/To+convert+the+Unit+of+Measure+to+alternate+UOM

Function	Table	Description

Wave	/SCWM/WAVEHDR	Wave – Header Information
	/SCWM/WAVEITM	Wave Item

ODO	/SCDL/DB_PROCH_O	Outbound Delivery Order Header
	/SCDL/DB_PROCI_O	Outbound Delivery Order Item
OD	/SCDL/DB_DLVH_O	Outbound Delivery Header
	/SCDL/DB_DLVI_O	Outbound Delivery Item

ID	/SCDL/DB_PROCH_I	Inbound Delivery: Header
	/SCDL/DB_PROCI_I	Inbound Delivery Item

Reference	/SCDL/DB_REFDOC	Reference
	/SCDL/DB_REQH	Header Inbound Delivery Notification / Outbound Delivery Request
	/SCDL/DB_REQI	Item Inbound Delivery Notification / Outbound Delivery Request

Status	/SCDL/DB_STATUS	Status
	/SCDL/V_STATUS	Generated Table for View /SCDL/V_STATUS

HU	/SCWM/HUHDR	Handling unit header
	/SCWM/HUSSTAT	Individual Status for Each Handling Unit
	/SCWM/HUREF	Handling Unit Reference
	/SCWM/HUSTOBJ	Information about HU Status Object
	/SCWM/GMHUSTAT	HU Status of HUs from Goods Movement Log
	TJ02T	Status table
WT	/SCWM/ORDIM_O	Warehouse Tasks Open
	/SCWM/ORDIM_C	Warehouse Tasks Confirmed
WO	/SCWM/WHO	Warehouse Order

Quantity	/SCWM/AQUA	Available Quantity
	/SCWM/QUAN	Quant Attributes
	/LIME/NQUAN	LIME – Stock Quantities
	/SCWM/STOCK_IW01	Stock GUID from table
BINS	/SCWM/LAGP	Storage Bins
	/SCWM/LAGPS	Bins for Execution Areas and Activities

PI	/LIME/PI_DOC_IT	Table of Physical Inventory Document Items
	/LIME/PI_LOGHEAD	Log Table for Header Data of a Physical Inventory document
	/LIME/PI_LOGITEM/LIME/PI_DOC_TB	Log Table for Item Data of a Physical Inventory documentQuantities for Physical Inventory Document

TU	/SCWM/TU_DLV	Assignment of Deliveries and HUs to Transportation Units
	/SCWM/TU_STATUS	Status of Transportation Unit Activities
	/SCWM/TUNIT	TU &other GUID’s
Masterdata	/SAPAPO/MATKEY	Product
	/SAPAPO/MATMAP	Mapping Table for Products
	/SAPAPO/MATLWH	Location Product for Location Warehouse
	/SAPAPO/MATEXEC	Product: Execution Data
	/SAPAPO/MATLWHST	Location Product for Location Whse and Subloc. Storage Type
	/SAPAPO/MATTXT	Material Descriptions

BP	ADRC	Addresses (Business Address Services)
	/SCDL/DB_BPLOC	Partner/Location
	BUT000	BP: General data I
	BUT020	BP: Addresses

Program	Function
MMREO050N	Write
MMREO110N	Delete

My SAP ERP Journey

How to find User Exits or BADIs for a particular program?

How to debug SAP Standard Table

Excel Functions

MM Opening previous period

Vendor Partner Function Determination

TABU Transport Request for cases like OBYC update

EWM Outbound Delivery Order (ODO) Issue where Goods are issued but no Outbound Delivery (OD) document generated

Excel Date convert from dd.mm.yy from CSV to mm-dd-yy

Extended Warehouse Management Tables

HU & Production Order Information in ECC

When the TRIM / CLEAN Function Doesn't Work

Example: Removing Non-breaking Spaces

Archiving Material Masters in SAP

VL06I - Inbound Delivery Monitor

Subcontract Purchase Order Accounting Entries

Split Valuation & Batch Managed Material

IDoc / EDI Test Tool

Email Output to Multiple Recipients Functionality in SAP

GL requires a Cost Object message

Upload download to SAP directory (AL11)

Create Transaction Code (Tcode) for SAP Query

SAP Service Marketplace Materials Management Notes

SUPPLY CHAIN EXECUTION

MATERIALS MANAGEMENT

To convert the Unit of Measure to alternate UOM

FUNCTION Z_CONVERT_TO_ALTERNATE_UOM :

FUNCTION Z_CONV_ALTERNATE_UOM :

Code:

MM50 Material Extend Issue

TAANA - Table Analysis

Vendor Downpayment in SAP