SAP 获取采购订单表头长文本

SAP 获取采购订单表头长文本

 

 

长文本不是直接存在某个table中，你在（me23n）可以双击该文本，然后选择菜单goto->header，查看该文本的技术信息，然后通过function module 'read_text'，输入相关的技术信息，取得该文本。

 

DATA: BEGIN OF T_LINES OCCURS 50.

  INCLUDE STRUCTURE TLINE.

DATA: END OF T_LINES.

 

DATA: BEGIN OF HTEXT.

        INCLUDE STRUCTURE THEAD.

DATA: END OF HTEXT.

 

DATA: TNAME LIKE THEAD-TDNAME.

DATA: S_LINE(100) TYPE C.

 

   TNAME = open_po-ebeln.    " 将采购单号码付给变量

   S_LINE = ''.

   CLEAR T_LINES.

   REFRESH T_LINES.

 

*-- 采购表头长文本

 

 CALL FUNCTION 'READ_TEXT'

       EXPORTING

          CLIENT                     = SY-MANDT

          ID                               = 'F01'

          LANGUAGE             = '1'

          NAME                        = TNAME

          OBJECT                   = 'EKKO'

         ARCHIVE_HANDLE          = 0

     IMPORTING

          HEADER                  = HTEXT

     TABLES

          LINES                       = T_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.

 

      LOOP AT T_LINES.

        IF T_LINES-TDLINE NE ''.

          CONCATENATE S_LINE T_LINES-TDLINE INTO S_LINE.

        ENDIF.

        ENDLOOP.

       open_po-LTEXT =  S_LINE.

 

 

    ENDIF.