登录  
 加关注
查看详情
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

原来为了你

我的人生就是要一次次的超越

 
 
 

日志

 
 
 
 

进度条模板  

2011-01-07 19:35:19|  分类: ABAP屏幕操作 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

*---开票凭证
typesbegin of typ_vbrk,
        vbeln 
like vbrk-vbeln,
        fkart 
like vbrk-fkart,
        erdat 
like vbrk-erdat,
       
end of typ_vbrk.
datagt_vbrk type table of typ_vbrk,
      gw_vbrk 
type typ_vbrk.

select  vbeln
        fkart
        erdat
    
into corresponding fields of table gt_vbrk
    
from vbrk.

datal_len type i.
l_len 
linesgt_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.

  
datal_process(3type decimals 0,   "这里的小数点可以自己设定,最多2位小数
        l_text1
(35)  value '数据处理中,请耐心等待...已完成:',
        l_text2
(6),                       "process放到text2中,process100时,100.00,加上小数点,是6,这里取最大值
        l_text3
(1value '%',
        l_text4
(50type 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

  评论这张
 
阅读(256)| 评论(0)

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018