How to find out Last Changed Fields for a line item of a PO

Question

Dear All,
Pls let me know is there any FM or procedure to find the last changed fields for each line item of a PO. I should be able to get the details on the basis of Last changed Date. Can u pls guide me in this?

Answer 1

Hello,
Check the table CDHDR,CDPOS for PO items,
Check this code:
REPORT ZV_GET_LATEST_SO .
DATA: BEGIN OF ITAB OCCURS 0,
        OBJECTCLAS TYPE CDHDR-OBJECTCLAS,
        OBJECTID TYPE CDHDR-OBJECTID,
        CHANGENR TYPE CDHDR-CHANGENR,
        USERNAME TYPE CDHDR-USERNAME,
        UDATE TYPE CDHDR-UDATE,
        UTIME TYPE CDHDR-UTIME,
        TCODE TYPE CDHDR-TCODE,
        TABNAME TYPE CDPOS-TABNAME,
        TABKEY TYPE CDPOS-TABKEY,
        FNAME TYPE CDPOS-FNAME,
        CHNGIND TYPE CDPOS-CHNGIND,
      END OF ITAB.
TABLES: CDHDR,CDPOS.
DATA: LT_CDHDR LIKE CDHDR OCCURS 0 WITH HEADER LINE,
LT_CDPOS LIKE CDPOS OCCURS 0 WITH HEADER LINE.
*REFRESH AUSG.
CLEAR CDHDR.
CLEAR CDPOS.
CDHDR-OBJECTCLAS = 'EINKBELEG'.
CDHDR-OBJECTID   = '0000001784'.  " Purchase order number
**SELECT A~OBJECTCLASS A~OBJECTID A~CHANGENR A~USERNAME A~UDATE A~UNAME
**B~TCODE
**B~TABNAME B~TABKEY B~FNAME B~CHNGIND INTO TABLE ITAB FROM CDHDR AS A
**INNER JOIN CDPOS AS B ON A~OBJECTCLASS = B~OBJECTCLASS
**                         A~OBJECTID    = B~OBJECTID
**                         A~CHANGENR    = B~CHANGENR
**                    WHERE OBJECTCLAS = 'VERKBELEG'
**                      AND OBJECTID = '0000001784'.
*SELECT * FROM CDPOS INTO TABLE LT_CDPOS WHERE OBJECTCLAS = 'VERKBELEG'
*                                    AND OBJECTID = '0000001784'.
*IF NOT LT_CDPOS[] IS INITIAL.
*  SELECT *
*  INTO   TABLE LT_CDHDR
*  FROM   CDHDR
*  FOR    ALL ENTRIES IN LT_CDPOS
*  WHERE  OBJECTCLAS = LT_CDPOS-OBJECTCLAS
*  AND    OBJECTID = LT_CDPOS-OBJECTID
*  AND    CHANGENR = LT_CDPOS-CHANGENR.
*ENDIF.
**  SORT ITAB BY OBJECTCLAS ODJECTID DESCENDING.
*LOOP AT ITAB.
*  WRITE: ITAB-UDATE."ITAB-UNAME.
*ENDLOOP.
*--- Interne Tabellen -------------------------------------------------
DATA: BEGIN OF ICDSHW OCCURS 50.       "Ausgabeaufbereitung
        INCLUDE STRUCTURE CDSHW.       "Zwischendatei
DATA: END OF ICDSHW.
CALL FUNCTION 'CHANGEDOCUMENT_READ_HEADERS'
     EXPORTING
          DATE_OF_CHANGE    = CDHDR-UDATE
          OBJECTCLASS       = CDHDR-OBJECTCLAS
          OBJECTID          = CDHDR-OBJECTID
          TIME_OF_CHANGE    = CDHDR-UTIME
          USERNAME          = CDHDR-USERNAME
     TABLES
          I_CDHDR           = LT_CDHDR
     EXCEPTIONS
          NO_POSITION_FOUND = 1
          OTHERS            = 2.
LOOP AT LT_CDHDR.
  CALL FUNCTION 'CHANGEDOCUMENT_READ_POSITIONS'
    EXPORTING
*   ARCHIVE_HANDLE                = 0
      CHANGENUMBER                  = LT_CDHDR-CHANGENR
*   TABLEKEY                      = '00000000 '
*   TABLENAME                     = ' '
* IMPORTING
*   HEADER                        =
   TABLES
     EDITPOS                       = ICDSHW
*   EDITPOS_WITH_HEADER           =
* EXCEPTIONS
*   NO_POSITION_FOUND             = 1
*   WRONG_ACCESS_TO_ARCHIVE       = 2
*   OTHERS                        = 3
  IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
  LOOP AT ICDSHW.
    IF ICDSHW-TABKEY+3(10) = '0000001784'
       AND ICDSHW-TABKEY+13(6) = '000001'.
    ENDIF.
  ENDLOOP.
ENDLOOP.
Vasanth