ABAP 文本写入

场景：以交货单行项目文本为例

PARAMETERS:
  "文本字段的编号
  fid     LIKE  thead-tdid     DEFAULT '0002',
  "十位交货单号（1800000001）加6位行号（000010），如果是抬头文本，写交货单号就够了
  fname   LIKE  thead-tdname   DEFAULT '1800000001000010',
  "抬头 VBBK，行项目VBBP
  fobject LIKE  thead-tdobject DEFAULT 'VBBP',
  text    TYPE  string DEFAULT '测试'.

DATA: flines  LIKE TABLE OF tline WITH HEADER LINE.


"文本内容
flines-tdline = text.
APPEND flines.

"修改文本
CALL FUNCTION 'CREATE_TEXT'
  EXPORTING
    fid       = fid
    flanguage = sy-langu
    fname     = fname
    fobject   = fobject
  TABLES
    flines    = flines
  EXCEPTIONS
    no_init   = 1
    no_save   = 2
    OTHERS    = 3.