我要评论在一些情况下我们需要调用报表运行，获取运行的结果，用Submit来实现。
例：接口根据iv_bukrs、iv_lifnr、iv_spmon三个字段值获取程序报表ZFI1001运行后edmbtr的值。
DATA: ra_bukrs TYPE RANGE OF bukrs,
ls_bukrs LIKE LINE OF ra_bukrs,
ra_lifnr TYPE RANGE OF lifnr,
ls_lifnr LIKE LINE OF ra_lifnr.
DATA:it_memory LIKE TABLE OF abaplist.
DATA: BEGIN OF it_list OCCURS 0,
line(1000),
END OF it_list.
DATA: BEGIN OF it_string OCCURS 0,
str TYPE c LENGTH 100,
END OF it_string.
DATA: BEGIN OF is_indx,
bukrs(2),
lifnr(2),
edmbtr(2),
END OF is_indx.
data ls_indx like is_indx.
DATA L_ENDLINE TYPE I.
IF iv_bukrs IS NOT INITIAL.
ls_bukrs-low = iv_bukrs.
ls_bukrs-sign = 'I'.
ls_bukrs-option = 'EQ'.
APPEND ls_bukrs TO ra_bukrs.
ENDIF.
IF iv_lifnr IS NOT INITIAL.
ls_lifnr-low = iv_lifnr.
ls_lifnr-sign = 'I'.
ls_lifnr-option = 'EQ'.
APPEND ls_lifnr TO ra_lifnr.
ENDIF.
"调用ZFI1001报表程序
SUBMIT zfi1001 WITH s_bukrs IN ra_bukrs
WITH s_lifnr IN ra_lifnr
WITH p_spmon = iv_spmon
EXPORTING LIST TO MEMORY AND RETURN.
"获取缓存
CALL FUNCTION 'LIST_FROM_MEMORY'
TABLES
listobject = it_memory
EXCEPTIONS
not_found = 1
OTHERS = 2.
IF it_memory[] IS INITIAL.
RETURN.
ENDIF.
"将缓存转换格式
CALL FUNCTION 'LIST_TO_ASCI'
TABLES
listasci = it_list[]
listobject = it_memory
EXCEPTIONS
empty_list = 1
list_index_invalid = 2
OTHERS = 3.
IF it_list[] IS NOT INITIAL.
READ TABLE it_list INDEX 4."读ALV表头字段名称的那一行
IF sy-subrc = 0.
SPLIT it_list AT '|' INTO TABLE it_string.
"读取要获取字段所处的列
LOOP AT it_string.
CONDENSE it_string-str NO-GAPS.
IF it_string-str = '公司'.
ls_indx-bukrs = sy-tabix.
ENDIF.
IF it_string-str = '供应商'.
ls_indx-lifnr = sy-tabix.
ENDIF.
IF it_string-str = '余额'.
ls_indx-edmbtr = sy-tabix.
ENDIF.
ENDLOOP.
DESCRIBE TABLE IT_LIST LINES L_ENDLINE.
L_ENDLINE = L_ENDLINE - 1.
LOOP AT IT_LIST FROM 6 TO L_ENDLINE."读取表的值
REFRESH IT_STRING.
SPLIT IT_LIST AT '|' INTO TABLE IT_STRING.
READ TABLE IT_STRING INDEX ls_indx-bukrs.
CONDENSE IT_STRING-STR NO-GAPS.
et_balance-bukrs = IT_STRING-STR.
READ TABLE IT_STRING INDEX ls_indx-lifnr.
CONDENSE IT_STRING-STR NO-GAPS.
et_balance-lifnr = IT_STRING-STR.
READ TABLE IT_STRING INDEX ls_indx-edmbtr.
CONDENSE IT_STRING-STR NO-GAPS.
* REPLACE '*' WITH '' INTO IT_STRING-STR.
REPLACE ALL OCCURRENCES OF ',' IN IT_STRING-STR WITH ''. "金额字段格式转换
et_balance-edmbtr = IT_STRING-STR.
et_balance-SPMON = iv_SPMON.
APPEND et_balance.
CLEAR:et_balance.
ENDLOOP.
ENDIF.
ENDIF.
ENDFUNCTION.
本文地址：https://blog.csdn.net/Mona_1220/article/details/107665022
您可能感兴趣的文章:
如您对本文有疑问或者有任何想说的，请 点击进行留言回复，万千网友为您解惑！
网友评论