*---开票凭证
types: begin of typ_vbrk,
vbeln like vbrk-vbeln,
fkart like vbrk-fkart,
erdat like vbrk-erdat,
end of typ_vbrk.
data: gt_vbrk type table of typ_vbrk,
gw_vbrk type typ_vbrk.
select vbeln
fkart
erdat
into corresponding fields of table gt_vbrk
from vbrk.
data: l_len type i.
l_len = lines( gt_vbrk ).
loop at gt_vbrk into gw_vbrk.
if l_len <> 0.
perform frm_display_indicator using l_len.
endif.
endloop.
write:/ 'ok'.
*&---------------------------------------------------------------------*
*& Form frm_display_indicator
*&---------------------------------------------------------------------*
form frm_display_indicator using p_len.
data: l_process(3) type p decimals 0, "这里的小数点可以自己设定,最多2位小数
l_text1(35) value '数据处理中,请耐心等待...已完成:',
l_text2(6), "把process放到text2中,process到100时,100.00,加上小数点,是6位,这里取最大值
l_text3(1) value '%',
l_text4(50) type c.
l_process = sy-tabix * 100 / p_len.
l_text2 = l_process.
concatenate l_text1 l_text2 l_text3 into l_text4.
call function 'SAPGUI_PROGRESS_INDICATOR'
exporting
text = l_text4.
endform. "frm_display_indicator
评论