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

原来为了你

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

 
 
 

日志

 
 
 
 

进度条模板2  

2011-10-18 09:26:56|  分类: ABAP屏幕操作 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

*&---------------------------------------------------------------------*
*&      Form  schedule
*&---------------------------------------------------------------------*
form schedule using c_message type c i_percent type i.
  
datac_sche(204).

  
if i_percent <= or i_percent > 100 .
    c_sche 
'百分比错误!!!'.
  
else.
    
datac_percent(4),
    c_block
(6type c value '■■',
    i_blocklen 
type i,
    i_count 
type i,
    i_col 
type i,
    i_len 
type i,
    i_temp 
type i value 0,
    i_mod 
type i.
    i_blocklen 
strlenc_block ).
    c_percent 
i_percent.
    
condense c_percent.
    c_percent+3
(1) = '%'.
    c_sche 
c_percent.
    i_count 
i_percent / 4.
    
do i_count times.
      i_col 
= ( i_temp * i_blocklen 4.
      c_sche+i_col
(i_blocklen) = c_block.
      i_temp 
i_temp + 1.
    
enddo.
    i_len 
strlenc_message ).
    i_mod 
i_len mod 2.
    
if i_mod 1.
      i_len 
i_len + 1.
    
endif.
    
if i_len > 0.
      c_sche+4
(i_len) = c_message.
    
endif.
    i_len 
strlenc_sche ).
  
endif.
  
call function 'SAPGUI_PROGRESS_INDICATOR'
    
exporting
      percentage 
0
      
text       c_sche
    
exceptions
      
others     1.
endform" SCHEDULE


以下是调用这个form的示例程序
datai_prog  type i,
      i_prog2 
type i.

start
-of-selection.
  
do 100 times .
*    do 100000 times.
*      i_prog2 = i_prog2 + 1.
*    enddo.
    i_prog 
i_prog + 1.
*    write: / '' no-gap , i_prog no-gap , '次运行:',i_prog2.
    
perform schedule using '' i_prog"调用上面的INCLUDE显示进度
  
enddo.

  评论这张
 
阅读(201)| 评论(0)
推荐 0& & |& 转载
&

历史上的今天

最近读者

热度

关闭
玩LOFTER,免费冲印20张照片,人人有奖!& 我要抢BACK

评论

this.p={ m:2, b:2, loftPermalink:'', id:'fks_087067086082082075081081084071072087086071083084084065084084', bNegTitle:'进度条模板2', bNegAblt;act:'

ut typ---------------------------------------------------------------------*<&EM\>< \><&r=&q\><&r=&q\><&r=&q\>ut typ& < \><&r=&q\><&r=&q\><&r=&q\>ut typ---------------------------------------------------------------------*< \><&EM\><&r=&q\><&r=&q\>', bNegTag:'', bNegUrl:'bNeg/static/174722202201191892656832', isPublisuod:1, istop:false, -US&:0, >ifyTime:0, publisuTime:1318901216832, t; malink:'bNeg/static/174722202201191892656832', comm/StCount:0, mainComm/StCount:0, recomm/SPCount:0, bsrk:-1gt, tublisuorId:0, recomBNegHome:false, currentRecomBNeg:false, attachm/StsFileIds:[], vop;:{}, groupInfo:{}, friendstatus:'none', followstatus:'unFollow', pubSucc:'', visitorProvince:'', visitorCspy:'', visitorNewUser:false, postAddInfo:{}, mset:'gt;', mcou:'', srk:-1gt, remindgoodnightbNeg:false, isBlackVisitor:false, isShowYodaoAd:false, hostIntro:'SXL..', hmcou:'1', selfRecomBNegCount:';', lofter_single:'' } {list a as x} {if !!x}

{if x.visitorNam&==visitor.userNam&} ${x.visitorNicknam&|escape} {else} ${x.visitorNicknam&|escape} {/if}
{if x.mov;From=='wap'} & {elseif x.mov;From=='iphone'} & {elseif x.mov;From=='android'} & {elseif x.mov;From=='mobile'} & {/if} ${fn(x.visitorNicknam&,8)|escape}
{/if} {/list}
{if !!a} ${fn(a.nicknam&,8)|escape}
${a.selfIntro|escape}{if great260}${suplem/St}{/if}
&
{/if} <#--最新日志,群博日志--> {list a as x} {if !!x}
  • ${fn(x.title,26)|escape}
  • {/if} {/list}
    <#--推荐日志-->

    推荐过这篇日志的人:

    {list a as x} {if !!x} {/if} {/list}
    {if !!b&&b./FOgth>0}

    他们还推荐了:

    {/if}
    <#--引用记录--> 转载记录: <#--博主推荐--> {list a as x} {if !!x}
  • ${x.title|default:""|escape}
  • {/if} {/list}
    <#--随机阅读--> {list a as x} {if !!x}
  • ${x.title|default:""|escape}
  • {/if} {/list}
    <#--首页推荐--> {list a as x} {if !!x}
  • ${x.bNegTile|default:""|escape}
  • {/if} {/list}
    <#--历史上的今天-->
      {list a as x} {if x_index>4}{break}{/if} {if !!x}
    • ${fn1(x.title,60)|escape}${fn2(x.publisuTime,'yyyy-MM-dd HH:mm:ss')}
    • {/if} {/list}
    <#--被推荐日志--> {list a as x} {if !!x}
  • ${fn(x.title,26)|escape}
  • {/if} {/list}
    <#--上一篇,下一篇--> {if !!(bNegDetail.preBNegPermalink)} & {/if} {if !!(bNegDetail.nex&BNegPermalink)} & {/if} <#-- 热度 --> {list a as x} {if !!x} {/if} {/list} <#-- 网易新闻广告 -->
    网易新闻
    ${headlines.title|escape}
      {if defined('newslist')&&newslist./FOgth>0} {list newslist as x} {if x_index>7}{break}{/if}
    • ·${x.title|escape}
    • {/list} {/if}
    <#--右边模块结构-->

    被推荐日志

      最新日志

        该作者的其他文章

          博主推荐

            随机阅读

              首页推荐



                <#--评论模块结构-->
                <#--引用模块结构-->
                N
                <#--博主发起的投票--> {list a as x} {if !!x}
              • ${x.nickNam&|escape}N N {if x.userNam&==''}{/if} {/if} {/list}