FM CREATE_TEXT

Question

Hi,
I'm trying to create a new text for an existing production order using FM:
      CALL FUNCTION 'CREATE_TEXT'
        EXPORTING
          fid       = 'KOPF'
          flanguage = sy-langu
          fname     = l_name      "mandt+Prod.order
          fobject   = 'AUFK'
        TABLES
          flines    = i_line[]    "Message text info
        EXCEPTIONS
          no_init   = 1
          no_save   = 2
          OTHERS    = 3.
But when I go to see it with transaction CO03 ... this created text do not appear !!!!!
Table STXH has my new register .... can someone help me?

Answer 1

I see the problem now,  it shows in STXH, but not in CO02.  The problem is that in this transaction,  it checks an indicator in AUFK called LTEXT.  This needs to be set in order to show the text in the text container in CO02.  Normally, I wouldn't suggest a direct table update, but in this case it may be ok to do so.  Move SY-LANGU to this field and update, then the text should show fine in the CO02 transaction.  See the sample program,  this works in my system.  I can see the text in the container in CO02.
report zrich_0001.
data: xaufk  type aufk.
data: header type thead.
data: ilines type table of tline with header line.
parameters: p_aufnr type aufk-aufnr.
header-tdobject = 'AUFK'.
concatenate sy-mandt p_aufnr into header-tdname.
condense header-tdname no-gaps.
header-tdid = 'KOPF'.
header-tdspras = sy-langu.
ilines-tdline = 'This is a test 1'.
append ilines.
ilines-tdline = 'This is a test 2'.
append ilines.
call function 'SAVE_TEXT'
  exporting
    client                = sy-mandt
    header                = header
     savemode_direct       = 'X'
  tables
    lines                 = ilines
exceptions
   id                    = 1
   language              = 2
   name                  = 3
   object                = 4
   others                = 5
<b>
* Direct Database Update.
if sy-subrc = 0.
  select single * into xaufk from aufk
              where aufnr = p_aufnr.
  check sy-subrc = 0.
  xaufk-ltext = sy-langu.
  modify aufk from xaufk.
endif.</b>
Regards,
Rich Heilman