原文地址:http://www.erp100.com/93236/viewspace-6764344.html
不管是开发人员,还是用户。一定都非常熟悉下面的SAP报表功能
我们一般用这个按钮来倒显示报表到EXCEL。这控件能做到连报表的表头一起倒。
在之前我们介绍过几个倒内表到EXCEL的函数(WS_EXCEL,不能倒表头),或者OLE(速度太慢),现在XXL_FULL_API.能很好的解决上面两个问题。
实现代码如下:
check tab_head is not initial.
data:tmp_head like zfi_headertab1.
data:show_bseg like table of st_bseg.
data:zstrucinfo type table of rstrucinfo with header line.
data:zsema like table of gxxlt_s with header line.
data:zhkey like table of gxxlt_h with header line.
data:zonline_text like table of gxxlt_o with header line.
data:zprint_text like table of gxxlt_p with header line.
data:zvkey like table of gxxlt_v with header line.
zhkey-col_no = 1.
zhkey-row_no = 1.
zhkey-col_name = '公司'.
append zhkey.
zhkey-col_no = 2.
zhkey-row_no = 1.
zhkey-col_name = '会计凭证'.
append zhkey.
zhkey-col_no = 3.
zhkey-row_no = 1.
zhkey-col_name = '年'.
append zhkey.
zhkey-col_no = 4.
zhkey-row_no = 1.
zhkey-col_name = '行项目'.
append zhkey.
zhkey-col_no = 5.
zhkey-row_no = 1.
zhkey-col_name = '金额'.
append zhkey.
zhkey-col_no = 6.
zhkey-row_no = 1.
zhkey-col_name = '借/贷'.
append zhkey.
zhkey-col_no = 7.
zhkey-row_no = 1.
zhkey-col_name = '科目类型'.
append zhkey.
zhkey-col_no = 8.
zhkey-row_no = 1.
zhkey-col_name = '过账日期'.
append zhkey.
zhkey-col_no = 9.
zhkey-row_no = 1.
zhkey-col_name = '文本'.
append zhkey.
zhkey-col_no = 10.
zhkey-row_no = 1.
zhkey-col_name = '数量'.
append zhkey.
zhkey-col_no = 11.
zhkey-row_no = 1.
zhkey-col_name = '物料'.
append zhkey.
zhkey-col_no = 12.
zhkey-row_no = 1.
zhkey-col_name = '产品层次'.
append zhkey.
zhkey-col_no = 13.
zhkey-row_no = 1.
zhkey-col_name = '科目'.
append zhkey.
zhkey-col_no = 14.
zhkey-row_no = 1.
zhkey-col_name = '参考发票'.
append zhkey.
zhkey-col_no = 15.
zhkey-row_no = 1.
zhkey-col_name = '凭证'.
append zhkey.
zhkey-col_no = 16.
zhkey-row_no = 1.
zhkey-col_name = '汇总凭证'.
append zhkey.
zhkey-col_no = 17.
zhkey-row_no = 1.
zhkey-col_name = '是否是中心仓'.
append zhkey.
loop at tab_head into tmp_head.
if p_matnr is not initial.
loop at it_bseg into wa_bseg where matnr = tmp_head-matnr and
( flag = '' or flag = 'X' ).
append wa_bseg to show_bseg.
endloop.
else.
loop at it_bseg into wa_bseg where prodh = tmp_head-prdha.
append wa_bseg to show_bseg.
endloop.
endif.
endloop.
do 17 times.
zsema-col_no = sy-tabix.
zsema-col_typ = 'STR'.
zsema-col_ops = 'DFT'.
zsema-col_cur = 0.
if sy-tabix = 5 or sy-tabix = 10.
zsema-col_typ = 'NUM'.
zsema-col_ops = 'ADD'.
zsema-col_cur = 4.
endif.
append zsema.
enddo.
loop at show_bseg into wa_bseg.
move-corresponding wa_bseg to api_bseg.
append api_bseg.
endloop.
*API_BSEG[] = SHOW_BSEG.
call function 'XXL_FULL_API'
exporting
* DATA_ENDING_AT = -1
* DATA_STARTING_AT = 1
filename = 'XMPL0003'
header_1 = 'Colour Corporation '
header_2 = 'Overall Business Figures '
* NO_DIALOG = 'X'
* NO_START = ' '
n_att_cols = 17
n_hrz_keys = 1
n_vrt_keys = 0
* SEMA_TYPE = ' '
* SO_TITLE = ' '
tables
data = api_bseg
hkey = zhkey
online_text = zonline_text
print_text = zprint_text
sema = zsema
vkey = zvkey.
clear:show_bseg,tab_head,api_bseg[].