Round Menge & Miktar Yuvarlama

REPORT zdeneme66.

DATA : lv_menge LIKE mseg-menge.
PARAMETERS : p_menge LIKE mseg-menge.
CALL FUNCTION 'ROUND'
  EXPORTING
    decimals      = 2
    input         = p_menge
    sign          = '-'
  IMPORTING
    output        = lv_menge
  EXCEPTIONS
    input_invalid = 1
    overflow      = 2
    type_invalid  = 3
    OTHERS        = 4.

WRITE : 'Result:',lv_menge.

Material Unit Conversion

Function : MD_CONVERT_MATERIAL_UNIT

Purchasing Document Item Change History

SAS:Satınlama Siparişi Değişiklik Kayıtları:

CDHDR : Change document header
CDPOS  : Change document items

For Purchasing Doc,
OBJECTCLAS = 'EINKBELEG'

OBJECTID = Purchase Doc Number

TABNAME = 'EKPO'
FNAME : Field name (For Quantity : 'MENGE')

Example Code;
You can get the first inserted quantity of purc. item,

    DATA : lt_cdpos2 LIKE cdpos OCCURS 0 WITH HEADER LINE .
    DATA lv_tabkey2 LIKE cdpos-tabkey.
    CLEAR lv_tabkey2.
    CONCATENATE
    '200'
    itab-EBELN "Purch.Doc.
    itab-EBELp "Item No
    INTO lv_tabkey2 .

      REFRESH lt_cdpos2.
      SELECT * FROM cdpos INTO TABLE lt_cdpos2
        WHERE objectclas EQ 'EINKBELEG' AND
              objectid   EQ itab-EBELN  AND
              tabkey     EQ lv_tabkey2 AND
              tabname    EQ 'EKPO'  AND
              fname      EQ 'MENGE' AND  "QTY
              chngind    EQ 'U' .
        IF SY-SUBRC EQ 0 .
        SORT  lt_cdpos2 BY CHANGENR ASCENDING .
        READ TABLE lt_cdpos2 INDEX 1.
        ITAB-FIRST_MENGE = lt_cdpos2-value_old.

        ENDIF.