How to determine a change to a Sales Order Header Text?

Question

Hi All,
Is it possible to compare text entered on a Sales Order Header with what was stored previously?
I know I can use READ_TEXT to retrieve previously stored text but how do I compare with what was entered at VA02?
I'm at VA02, I'm selectin 1 line item. then I'll go to menu Goto->Header->Additional Data B -> Text tab.
when i click save..how do I compare the text entered with what was stored previously?
Any ideas? thanks alot....its kinda urgent.
Message was edited by:
        Slow ABAPer

Answer 1

Hi
Try this in a exit:
TABLES: STXH.
DATA: T_LINES     LIKE STANDARD TABLE OF  TLINE,
      T_OLD_LINES LIKE STANDARD TABLE OF  TLINE.
* Read current text
STXH-TDOBJECT = <OBJECT>
STXH-TDNAME   = VBAK-VBELN.
STXH-TDID     = <ID>.
STXH-TDSPRAS  = <LANGUAGE>.
CALL FUNCTION 'READ_TEXT'
  EXPORTING
*   CLIENT                        = SY-MANDT
    ID                            = STXH-TDID
    LANGUAGE                      = STXH-TDSPRAS
    NAME                          = STXH-TDNAME
    OBJECT                        = STXH-TDOBJECT
*   ARCHIVE_HANDLE                = 0
*   LOCAL_CAT                     = ' '
* IMPORTING
*   HEADER                        =
  TABLES
    LINES                         = T_LINES
EXCEPTIONS
   ID                            = 1
   LANGUAGE                      = 2
   NAME                          = 3
   NOT_FOUND                     = 4
   OBJECT                        = 5
   REFERENCE_CHECK               = 6
   WRONG_ACCESS_TO_ARCHIVE       = 7
   OTHERS                        = 8.
IF SY-SUBRC = 0.
* Read the old text (before saving)
  DATA:  BEGIN OF STXL_ID,
           TDOBJECT LIKE STXL-TDOBJECT,
           TDNAME   LIKE STXL-TDNAME,
           TDID     LIKE STXL-TDID,
           TDSPRAS  LIKE STXL-TDSPRAS,
         END OF STXL_ID.
  STXL_ID-TDOBJECT = STXH-TDOBJECT.
  STXL_ID-TDNAME   = STXH-TDNAME.
  STXL_ID-TDID     = STXH-TDID.
  STXL_ID-TDSPRAS  = STXH-TDSPRAS.
  IMPORT TLINE TO T_OLD_LINES
    FROM DATABASE STXL(TX)
         CLIENT   SY-MANDT
         ID       STXL_ID.
  IF T_OLD_LINES[] <> T_LINES[].
* A change was made  
  ENDIF.
ENDIF.
Max