批量获取长文本

最新推荐文章于 2024-09-17 15:02:08 发布

持续输出的SAP人

最新推荐文章于 2024-09-17 15:02:08 发布

阅读量112

点赞数

分类专栏： ABAP经验分享文章标签：开发语言程序人生数据库

本文链接：https://blog.csdn.net/qq_42386708/article/details/133919935

版权

ABAP经验分享专栏收录该内容

4 篇文章 1 订阅

订阅专栏

在这里插入图片描述

TYPES:BEGIN OF ty_text, "解压的文本
        tdobject TYPE stxl-tdobject,
        tdid     TYPE stxl-tdid,
        tdname   TYPE stxl-tdname,
        tdline   TYPE string,
        matnr    TYPE matnr,
      END OF ty_text.

DATA: gt_stxh TYPE TABLE OF stxh WITH HEADER LINE, "抬头
      gt_text TYPE TABLE OF ty_text WITH HEADER LINE.

*取物料描述长文本，MM03采购订单文本
  CLEAR :gt_text ,gt_text[] .
  PERFORM get_long_rmaktx  .

*&---------------------------------------------------------------------*
FORM get_long_rmaktx  .
* 批量读取长文本
  TYPES: BEGIN OF ty_stxl, "项目
           tdobject TYPE stxl-tdobject,
           tdid     TYPE stxl-tdid,
           tdname   TYPE stxl-tdname,
           clustr   TYPE stxl-clustr,
           clustd   TYPE stxl-clustd,
         END OF ty_stxl.

  TYPES: BEGIN OF ty_stxl_raw, "压缩的文本
           clustr TYPE stxl-clustr,
           clustd TYPE stxl-clustd,
         END OF ty_stxl_raw.

  DATA:
    gt_stxl     TYPE  TABLE OF ty_stxl WITH HEADER LINE, "项目
    gt_stxl_raw TYPE TABLE OF ty_stxl_raw WITH HEADER LINE,
    gt_tline    TYPE STANDARD TABLE OF tline WITH HEADER LINE.

  FREE gt_stxl.
  IF  gt_stxh[]  IS NOT INITIAL .
    SELECT tdobject tdid tdname clustr clustd
    INTO CORRESPONDING FIELDS OF TABLE gt_stxl
    FROM stxl
    FOR ALL ENTRIES IN gt_stxh "WITH APPLICATION DATA AND TDNAME
    WHERE relid    = 'TX'          "standard text
    AND tdobject = 'MATERIAL'
    AND tdname   = gt_stxh-tdname
    AND tdid     = 'BEST'
    AND tdspras  = sy-langu.
  ENDIF.

  LOOP AT gt_stxl.
    CLEAR:gt_stxl_raw,gt_stxl_raw[], gt_tline,gt_tline[],gt_text.
    gt_stxl_raw-clustr = gt_stxl-clustr.
    gt_stxl_raw-clustd = gt_stxl-clustd.
    APPEND gt_stxl_raw.
    "使用系统标准函数READ_TEXT中的代码，将文本解析出来
    IMPORT tline = gt_tline FROM INTERNAL TABLE gt_stxl_raw.

    LOOP AT gt_tline.
      gt_text-tdline = gt_text-tdline && gt_tline-tdline.
    ENDLOOP.
    gt_text-tdobject = gt_stxl-tdobject.
    gt_text-tdid = gt_stxl-tdid.
    gt_text-tdname = gt_stxl-tdname.
    gt_text-matnr = gt_stxl-tdname.
    APPEND gt_text.
  ENDLOOP.

  SORT gt_text BY  tdname.

ENDFORM.