abap——CREATE_TEXT创建采购申请的抬头文本

例如创建采购申请抬头文本
采购申请 ME52N

双击抬头注释
菜单栏的转到——表头
程序

* 创建抬头文本
  DATA:
    ls_fid     LIKE  thead-tdid,
    ls_fname   LIKE  thead-tdname,
    ls_fobject LIKE  thead-tdobject,
    ls_text    TYPE  string.
  DATA : flines    LIKE TABLE OF tline  WITH HEADER LINE .
  LOOP AT gt_out INTO gs_out.
  
    IF gs_out-headtext IS NOT INITIAL AND gs_out-banfn IS NOT INITIAL."存在抬头文本.且采购订单已经创建

      ls_fid = 'B01'.
*  0010005040
      ls_fname = gs_out-banfn.
      ls_fobject = 'EBANH'.
      ls_text = gs_out-headtext.
      CLEAR flines.
      "文本内容
      flines-tdline  = ls_text .
      APPEND flines .
      "修改文本
      CALL FUNCTION 'CREATE_TEXT'
        EXPORTING
          fid       = ls_fid
          flanguage = '1'
          fname     = ls_fname
          fobject   = ls_fobject
*         SAVE_DIRECT = 'X'
*         FFORMAT   = '*'
        TABLES
          flines    = flines
        EXCEPTIONS
          no_init   = 1
          no_save   = 2
          OTHERS    = 3.

    ENDIF.
  ENDLOOP.

  ls_fname = gs_out-banfn.
  ls_fid = 'B01'.
  ls_fobject = 'EBANH'.
  对应了文本名，文本标识，文本对象
  文本名就是采购申请号