长文本SAP 通过BAPI创建、修改、读取以及删除

一、长文本创建：

 定义变量：

  DATA:it_tab TYPE STANDARD TABLE OF TLINE,   “传入内容
             wa_tab LIKE LINE OF it_tab,
             g_name TYPE THEAD-TDNAME.                      ”文本对象名称

 调用BAPI：CREATE_TEXT

  CALL FUNCTION 'CREATE_TEXT'
          EXPORTING
            FID         = 'Z002' "Text ID
            FLANGUAGE   = '1'    "语言代码
            FNAME       = G_NAME "文本名称
            FOBJECT     = 'VBBP' "文本对象
            SAVE_DIRECT = 'X'    "直接保存标识
          TABLES
            FLINES      = it_tab
          EXCEPTIONS
            NO_INIT     = 1
            NO_SAVE     = 2
            OTHERS      = 3.

 

二、长文本修改：调用BAPI与创建相同。

        也可用函数SAVE_TEXT

      GS_HEADER-TDSTYLE = 'S_STERMC'
      GS_HEADER-TDFORM  = 'S_DOCU_SH
      GS_HEADER-TDTITLE = 'GLOSSAR'.
      GS_HEADER-TDOBJECT = 'ZSDTEXT0
      GS_HEADER-TDNAME   = LV_NAME.
      GS_HEADER-TDSPRAS  = '1'.
      GS_HEADER-TDID       = 'Z001'.
      GS_HEADER-TDLINESIZE = '132 '.
     CALL FUNCTION 'SAVE_TEXT'
     EXPORTING
       CLIENT          = SY-MANDT
       HEADER          = GS_HEADER
       SAVEMODE_DIRECT = 'X'
*      INSERT          = 'X'
     TABLES
       LINES           = GT_TEXT1.
*      HEADER          = GS_HEADER

三、长文本读取：

        参数定义与创建长文相同

       调用BAPI：READ_TEXT

        CALL FUNCTION 'READ_TEXT'
          EXPORTING
            CLIENT                  = SY-MANDT
            ID                      = 'Z002'   "Text ID
            LANGUAGE                = 'E'      "语言代码
            NAME                    = g_name   "文本名称
            OBJECT                  = 'VBBP'   "文本对象
          TABLES
            LINES                   = IT_TAB
          EXCEPTIONS
            ID                      = 1
            LANGUAGE                = 2
            NAME                    = 3
            NOT_FOUND               = 4
            OBJECT                  = 5
            REFERENCE_CHECK         = 6
            WRONG_ACCESS_TO_ARCHIVE = 7
            OTHERS                  = 8.

 

四、删除长文本

       调用BAPI：DELETE_TEXT

CALL FUNCTION 'DELETE_TEXT'
          EXPORTING
            CLIENT          = SY-MANDT
            ID              = 'Z013'
            LANGUAGE        = 'Z'
            NAME            = G_NAME
            OBJECT          = 'VBBK'
            SAVEMODE_DIRECT = 'X'
          EXCEPTIONS
            NOT_FOUND       = 1
            OTHERS          = 2.