Populate Header text in VA01

Question

HI All,
There is a requirement to popuate the Header text of a sales order,
When the item -VBAP-POSNR for example : item 20,50,70 has beyond deliver date then I have to populate the header text
as -  'Item 20,50,70 has beyond deliver date'.
For this Im using SAVE_TEXT... but unable to get the right functionality how to make use of it.
Could anyone provide some pointers.
Thanks.

Answer 1

Plz refrer to followin code I have used it and it works. Originally i wrote this code to copy text from ref SO to internal SO.
but it will work for u just change it a bit.
USER EXIT is USEREXIT_SAVE_DOCUMENT in include MV45AFZZ.
  CONSTANTS: lc_language        TYPE thead-tdspras  VALUE 'E',
               lc_object          TYPE thead-tdobject VALUE 'VBBP',
BE CAREFUL with TEXT ID
LOOP AT lt_text_copy INTO ls_text_copy WHERE matnr = l_matnr.
      Read the maintained text (w.r.t Reference Order)
          MOVE: ls_text_copy-tdid TO l_id,
                ls_configuration-atwrt TO l_name.
      Wait for a few moments before reading the data.
          WAIT UP TO 20 SECONDS.
          CALL FUNCTION 'READ_TEXT'
            EXPORTING
              id                      = l_id                   "(Text ID of text to be read)
              language                = lc_language            "(Language of text to be read)
              name                    = l_name                 "(Concatenated value of VBELN and POSNR)
              object                  = lc_object              "(Object of text to be read)
            IMPORTING
              header                  = ls_header              "(Object of text to be read)
            TABLES
              lines                   = lt_lines               "(Lines of text read)
            EXCEPTIONS
              id                      = 1
              language                = 2
              name                    = 3
              not_found               = 4
              object                  = 5
              reference_check         = 6
              wrong_access_to_archive = 7
              OTHERS                  = 8.
     Create the text (w.r.t Current Sales Order)
     Name of the text to be created
          MOVE: p_vbak-vbeln TO l_vbeln,
                ls_vbap-posnr TO l_posnr.
          CONCATENATE l_vbeln l_posnr INTO l_so_posnr.
          CLEAR l_name.
          MOVE l_so_posnr TO l_name.
      Wait for a few moments before writing the data.
          WAIT UP TO 20 SECONDS.
          CALL FUNCTION 'CREATE_TEXT'
            EXPORTING
              fid         = l_id                       "(Text ID of the text to be created)
              flanguage   = lc_language                "(Language of the text to be created)
              fname       = l_name                     "(Name of the text to be created)
              fobject     = lc_object                  "(Object of the text to be created)
              save_direct = 'X'
            TABLES
              flines      = lt_lines                   "(Lines of the text to be created)
            EXCEPTIONS
              no_init     = 1
              no_save     = 2
              OTHERS      = 3.
          CALL FUNCTION 'SAVE_TEXT'
            EXPORTING
              header          = ls_header
              insert          = 'X'
              savemode_direct = 'X'
            TABLES
              lines           = lt_lines
            EXCEPTIONS
              id              = 1
              language        = 2
              name            = 3
              object          = 4
              OTHERS          = 5.
          IF sy-subrc <> 0.
          ENDIF.
            Clear variables
          CLEAR: l_id, l_name.
        ENDLOOP.   "(END OF LOOPING ON TEXT IDs)
      ELSE.
        when material does not exists in the ztable.
        EXIT.
      ENDIF.
    ENDLOOP.       "(END OF LOOP ON THE SALES ORDER LINE ITEM)
     ENDCASE.
   ENDIF.
  ENDFORM.                    " ZZ_TEXT_COPY
Edited by: Prasenjit Singh Bist on Aug 23, 2011 3:35 PM