User exit text issue in va22

Question

I had to display pop up window asking for REASON FOR CHANGE OF PRICE if user changes item level 'amount'.I used popup_get_values.Then that reason should be saved in TEXTS tab.I wrote code for that.But the text does not save into TEXTS tab's text for price change.Here is the code I wrote
data : RETURNCODE(1) TYPE C,  User response
        POPUP_TITLE(30) TYPE C, Text of title line
        V_TDNAME TYPE THEAD-TDNAME,
        zw_komv type komv.
        POPUP_TITLE = 'Change of Price'.
data : T_FIELDS TYPE STANDARD TABLE OF SVAL,
        X_FIELDS TYPE SVAL,  Table fields, values and attributes
        T_LINES TYPE STANDARD TABLE OF TLINE,
        X_LINES TYPE TLINE,
        X_HEADER TYPE THEAD.
read table xkomv into zw_komv
with key kposn = komv-kposn
kschl = komv-kschl.
IF ZW_KOMV-KBETR NE KOMV-KBETR.
X_FIELDS-TABNAME = 'TLINE'.
X_FIELDS-FIELDNAME = 'TDLINE'.
X_FIELDS-FIELD_OBL = 'X'.
X_FIELDS-FIELDTEXT = 'TEXT'.
APPEND X_FIELDS TO T_FIELDS.
CALL FUNCTION 'POPUP_GET_VALUES'
   EXPORTING
   NO_VALUE_CHECK        = ' '
     POPUP_TITLE          = POPUP_TITLE
    START_COLUMN          = '5'
    START_ROW             = '5'
  IMPORTING
    RETURNCODE            = RETURNCODE
   TABLES
     FIELDS                = T_FIELDS[]
  EXCEPTIONS
    ERROR_IN_FIELDS       = 1
    OTHERS                = 2
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CONCATENATE KOMK-BELNR '000' KOMV-KPOSN INTO V_TDNAME.
CALL FUNCTION 'READ_TEXT'
  EXPORTING
   CLIENT                        = SY-MANDT
    ID                            = '9000'
    LANGUAGE                      = SY-LANGU
    NAME                          = V_TDNAME
    OBJECT                        = 'VBBP'
   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.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
X_HEADER-TDOBJECT = 'VBBP'.
X_HEADER-TDNAME = V_TDNAME.
X_HEADER-TDID = '9000'.
X_HEADER-TDSPRAS = SY-LANGU.
READ TABLE T_FIELDS INTO X_FIELDS INDEX 1.
IF SY-SUBRC = 0.
X_LINES-TDLINE = X_FIELDS-VALUE.
APPEND X_LINES TO T_LINES.
ENDIF.
CALL FUNCTION 'SAVE_TEXT'
  EXPORTING
   CLIENT                = SY-MANDT
    HEADER                = X_HEADER
   INSERT                = ' '
   SAVEMODE_DIRECT       = 'X'
   OWNER_SPECIFIED       = ' '
   LOCAL_CAT             = ' '
IMPORTING
  FUNCTION              =
  NEWHEADER             =
  TABLES
    LINES                 = T_LINES
EXCEPTIONS
   ID                    = 1
   LANGUAGE              = 2
   NAME                  = 3
   OBJECT                = 4
   OTHERS                = 5
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDIF.
Here in T_LINES table , that text is coming...but stilll does not reflect..
can anybody tell me ???

Answer 1

Hi All,
Thank for your reply.
After saving the text using 'SAVE_TEXT' function module and commiting it you need to update the 'ltext' field in AUFK table.
SELECT SINGLE * INTO wa_aufk FROM aufk WHERE aufnr EQ '000012345678'.
wa_aufk-ltext = 'D'.
MODIFY aufk FROM wa_aufk.
It works in Enhancement PPCO0007.
This call can be closed. Thanks.
BR
Qiang