Re: VF02 user exit on save changing PO number

Hi All,

I am posting the solution which I achieved . Big thanks to DeboPriyo Mallick. The below code has to be written in FORM

VBAK_LESEN.(PBO of screen). Reward points if I helped someone

DATA: WA_TEXT TYPE TLINE,

        GT_TEXT TYPE STANDARD TABLE OF TLINE.



*Data declarations

  DATA: L_LANG   TYPE THEAD-TDSPRAS,

        L_NAME   TYPE THEAD-TDNAME.



*Constants declarations

  CONSTANTS: LC_ID     TYPE THEAD-TDID     VALUE '0002',

             LC_OBJECT TYPE THEAD-TDOBJECT VALUE 'VBBK'.



  L_NAME = VBRK-VBELN.

  L_LANG = SY-LANGU.



*To read the invoice header header text

  CALL FUNCTION 'READ_TEXT'

    EXPORTING

      ID                      = LC_ID

      LANGUAGE                = L_LANG

      NAME                    = L_NAME

      OBJECT                  = LC_OBJECT

    TABLES

      LINES                   = GT_TEXT

    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.



  ENDIF.



  READ TABLE GT_TEXT INTO WA_TEXT INDEX 1.

  IF SY-SUBRC EQ 0.

    VBKD-BSTKD = WA_TEXT-TDLINE.

  ENDIF.