MIR7获取采购订单发票的长文本

1、MIR7采购订单发票长文本，在界面上无法直接查看到长文本的ID,经查阅文档并验证结果如下


2、获取长文本通用代码

1.     PERFORM frm_read_text USING '0001' lv_name 'RBKP'
   
2.                           CHANGING t_rbkp-text_l.

复制代码

1. FORM frm_read_text USING pi_id TYPE thead-tdid
   
2.                          pi_name TYPE thead-tdname
   
3.                          pi_object TYPE thead-tdobject
   
4.                     CHANGING pc_text TYPE zdetext_l.
   
5. 
   
6.   DATA:lt_tline TYPE TABLE OF tline WITH HEADER LINE.
   
7. 
   
8.   CLEAR:pc_text.
   
9.   CALL FUNCTION 'READ_TEXT'
   
10.     EXPORTING
    
11.       client                  = sy-mandt
    
12.       id                      = pi_id
    
13.       language                = sy-langu
    
14.       name                    = pi_name
    
15.       object                  = pi_object
    
16.     TABLES
    
17.       lines                   = lt_tline
    
18.     EXCEPTIONS
    
19.       id                      = 1
    
20.       language                = 2
    
21.       name                    = 3
    
22.       not_found               = 4
    
23.       object                  = 5
    
24.       reference_check         = 6
    
25.       wrong_access_to_archive = 7
    
26.       OTHERS                  = 8.
    
27. 
    
28.   LOOP AT lt_tline.
    
29.     CONCATENATE pc_text lt_tline-tdline INTO pc_text.
    
30.   ENDLOOP.
    
31. 
    
32. ENDFORM.

复制代码