Funciones Útiles - Unidades de Medida

********************************************************************************
*  INFORMACIÓN GENERAL - GENERAL INFORMATION
********************************************************************************
*^ Autor - Author      : José Manrique Valderrama
*^ Objetivo - Objetive : Funciones útiles para unidades de medida
*^ Website             : abapejemplos.blogspot.com
********************************************************************************

REPORT zjm_demo_funciones.

START-OF-SELECTION.
  DATA: ls_matnr TYPE matnr VALUE '030000009',
        lp_menge TYPE menge_d.

*Convierte unidades para un material específico
  CALL FUNCTION 'MD_CONVERT_MATERIAL_UNIT'
    EXPORTING
      i_matnr              = ls_matnr
      i_in_me              = 'UNI'
      i_out_me             = 'KG'
      i_menge              = 10
    IMPORTING
      e_menge              = lp_menge
    EXCEPTIONS
      error_in_application = 1
      error                = 2
      OTHERS               = 3.
  IF sy-subrc EQ 0.
    WRITE: / '10 Unidades de',
             ls_matnr,
             'equivalen a',
             lp_menge,
             'KG'.
  ENDIF.

*Convierte unidades del mismo tipo( Masa, Tiempo, Longitud, etc. )
  CALL FUNCTION 'UNIT_CONVERSION_SIMPLE'
    EXPORTING
      input                = lp_menge
      unit_in              = 'KG'
      unit_out             = 'G'
    IMPORTING
      output               = lp_menge
    EXCEPTIONS
      conversion_not_found = 1
      division_by_zero     = 2
      input_invalid        = 3
      output_invalid       = 4
      overflow             = 5
      type_invalid         = 6
      units_missing        = 7
      unit_in_not_found    = 8
      unit_out_not_found   = 9
      OTHERS               = 10.
  IF sy-subrc EQ 0.
    WRITE: / '100 KG equivalen a',
             lp_menge,
             'G'.
  ENDIF.

Resultado