ABAP读取采购申请的项⽬⽂本READ_TEXT DATA: it_texttable TYPE TABLE OF tline-tdline WITH HEADER LINE,
it_tem_table TYPE TABLE OF tline WITH HEADER LINE.
DATA:hk_text(50).
DATA: BEGIN OF itb_s18 OCCURS0.
INCLUDE STRUCTURE thead.
DATA: END OF itb_s18.
DATA: BEGIN OF flines OCCURS0.
INCLUDE STRUCTURE tline.
DATA: END OF flines.
LOOP AT tab_5 ASSIGNING <fs>. "tab_5 内表
CLEAR ebelnkp.
CONCATENATE <fs>-banfn <fs>-bnfpo INTO ebelnkp. "banfn采购申请号 bnfpo项次
SELECT * FROM stxl INTO CORRESPONDING FIELDS OF TABLE itb_s18
WHERE tdobject = 'EBAN'AND tdname = ebelnkp.
CLEAR hk_text.
LOOP AT itb_s18.
CLEAR hk_text.
奢侈品有哪些品牌PERFORM frm_read_text USING'B01' itb_s18-tdname 'EBAN'CHANGING hk_text .
<fs>-mfrpn = hk_text.
ENDLOOP.
ENDLOOP.
FORM frm_read_text USING fid fname fobject CHANGING hk_text .
CALL FUNCTION'READ_TEXT'
EXPORTING
为什么网速突然变慢client = sy-mandt
id = fid
language = sy-langu
name = fname
object = fobject
TABLES
lines = flines
EXCEPTIONS
id = 1
language = 2
李代沫出狱name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8.
LOOP AT flines.
it_tem_table-tdline = flines-tdline.
APPEND it_tem_table.
ENDLOOP.中国官职等级划分
*Read_text读取长⽂本中<(>&<)>符号转换成正确的'&'符号
CALL FUNCTION'CONVERT_ITF_TO_STREAM_TEXT'端午节免过路费吗高速
EXPORTING
language = sy-langu
TABLES
马雅舒结婚照itf_text = it_tem_table
text_stream = it_texttable.
IF sy-subrc = 0AND it_texttable[] IS NOT INITIAL.
READ TABLE it_texttable INTO hk_text INDEX 1.
ENDIF.
ENDFORM. "FRM_READ_TEXT
发布评论