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.

Hiç yorum yok:

Yorum Gönder