SAP销售单抬头文本内容写入和读取（bapi：SAVE_TEXT 、READ_TEXT）

最新推荐文章于 2024-03-26 21:39:28 发布

weixin_42169686

最新推荐文章于 2024-03-26 21:39:28 发布

阅读量3.7k

点赞数 3

文章标签： sap abap

本文链接：https://blog.csdn.net/weixin_42169686/article/details/109485804

版权

在这里插入图片描述
1.获取到相关文本框参数，编辑状态双击对应文本框–转到–表头

2.写入代码如下：

DATA: THEAD TYPE  THEAD.
DATA IT_LINE1 TYPE TABLE OF tline.
DATA:WA_LINE LIKE LINE OF it_line1.
DATA:YOUR_TEXT TYPE CHAR200.

YOUR_TEXT = 'TEST WRITE A TEXT'	.
WA_LINE-TDLINE = YOUR_TEXT.
APPEND WA_LINE TO IT_LINE1.

THEAD-TDOBJECT = 'VBBK'.
THEAD-TDID     = '0002'.
THEAD-TDSPRAS  = SY-LANGU.
THEAD-TDNAME   = '1110599005'.

CALL FUNCTION 'SAVE_TEXT'
 EXPORTING
   HEADER          = THEAD
   SAVEMODE_DIRECT = 'X'
 TABLES
   LINES           = IT_LINE1
 EXCEPTIONS
   ID              = 1
   LANGUAGE        = 2
   NAME            = 3
   OBJECT          = 4
   OTHERS          = 5.

IF SY-SUBRC = 0.
 COMMIT WORK.
ENDIF.

写入成功

3.读取文本

DATA : lt_lines TYPE TABLE OF tline.
CALL FUNCTION 'READ_TEXT'
  EXPORTING
   CLIENT                        = SY-MANDT
    ID                            = '0002'
    LANGUAGE                      = '1'
    NAME                          = '1110599005'
    OBJECT                        = 'VBBK'
*   ARCHIVE_HANDLE                = 0
*   LOCAL_CAT                     = ' '
* IMPORTING
*   HEADER                        =
*   OLD_LINE_COUNTER              =
  TABLES
    LINES                         = lt_lines
 EXCEPTIONS
   ID                            = 1
   LANGUAGE                      = 2
   NAME                          = 3
   NOT_FOUND                     = 4
   OBJECT                        = 5
   REFERENCE_CHECK               = 6
   WRONG_ACCESS_TO_ARCHIVE       = 7
   OTHERS                        = 8
          .
IF SY-SUBRC <> 0.
* Implement suitable error handling here
ENDIF.

LOOP AT lt_lines INTO DATA(LW_LINE).
  WRITE: / lW_line-TDLINE.
ENDLOOP.