ABAP 生产订单组件长文本保存后，可READ, 但是前台确不显示

最新推荐文章于 2025-12-12 14:24:05 发布

原创最新推荐文章于 2025-12-12 14:24:05 发布 · 114 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#javascript #开发语言 #ecmascript

ABAP 专栏收录该内容

20 篇文章

订阅专栏

原因：

需注意RESB-ltxsp字段是否赋值；同SAVE时的语言代码；

工单组件长文本创建案例

DATA:ls_theader TYPE thead, "长文本的head
       lt_lines   TYPE TABLE OF tline,
       ls_lines   TYPE tline.

  "获取组件长文件
  DATA: lv_tdname TYPE stxh-tdname.
  CLEAR: lv_tdname, ls_lines, lt_lines[], ls_theader.

  CALL FUNCTION 'CO_ZK_TEXTKEY_RESB'
    EXPORTING
      rsnum = rsnum
      rspos = rspos
      rsart = ''
    IMPORTING
      ltsch = lv_tdname.

  ls_theader-tdobject = 'AUFK'."固定值
  ls_theader-tdname = lv_tdname."
  ls_theader-tdid = 'MATK'."固定值
  ls_theader-tdspras = sy-langu.

  ls_lines-tdformat = '*'.
  ls_lines-tdline = ''.
  APPEND ls_lines TO lt_lines.

  ls_lines-tdformat = '*'.
  ls_lines-tdline = zgw.
  APPEND ls_lines TO lt_lines.

  IF sy-subrc <> 0.
    CALL FUNCTION 'SAVE_TEXT'
      EXPORTING
        client          = sy-mandt
        header          = ls_theader
        savemode_direct = 'X'
      TABLES
        lines           = lt_lines
      EXCEPTIONS
        id              = 1
        language        = 2
        name            = 3
        object          = 4
        OTHERS          = 5.


  IF sy-subrc = 0.
    flag = 'S'.

    UPDATE resb SET ltxsp = sy-langu WHERE rsnum EQ rsnum AND rspos = rspos. "
    COMMIT WORK AND WAIT.
  ELSE.
    flag = 'E'.
    ROLLBACK WORK.
  ENDIF.