Chinaunix首页 | 论坛 | 博客
  • 博客访问: 7189487
  • 博文数量: 655
  • 博客积分: 10264
  • 博客等级: 上将
  • 技术积分: 8278
  • 用 户 组: 普通用户
  • 注册时间: 2007-06-04 17:47
个人简介

ABAP顾问

文章分类

全部博文(655)

文章存档

2017年(2)

2014年(8)

2013年(3)

2012年(2)

2011年(18)

2010年(102)

2009年(137)

2008年(274)

2007年(134)

分类:

2008-08-15 17:17:57

REPORT  z_barry_test NO STANDARD PAGE HEADING  .
 
START-OF-SELECTION.
  WRITE: / 'Time:', sy-uzeit USING EDIT MASK '__:__:__'.
  SET CURSOR LINE 1.
  CALL FUNCTION:
       'CONTROL_INIT',
       'CONTROL_SETFUNCTIONCODE' EXPORTING fcode = '=PICK',
       'CONTROL_FLUSH'.
 
AT LINE-SELECTION.
  READ LINE 1 OF CURRENT PAGE . "sy-lisel
  IF sy-index EQ 7.
    CLEAR sy-index.
  ENDIF.
  ADD 1 TO sy-index.
  WRITE: sy-uzeit USING EDIT MASK '__:__:__' TO sy-lisel+6.
  CASE sy-index.
    WHEN 1. MODIFY CURRENT LINE LINE FORMAT COLOR 1.
    WHEN 2. MODIFY CURRENT LINE LINE FORMAT COLOR 2.
    WHEN 3. MODIFY CURRENT LINE LINE FORMAT COLOR 3.
    WHEN 4. MODIFY CURRENT LINE LINE FORMAT COLOR 4.
    WHEN 5. MODIFY CURRENT LINE LINE FORMAT COLOR 5.
    WHEN 6. MODIFY CURRENT LINE LINE FORMAT COLOR 6.
    WHEN 7. MODIFY CURRENT LINE LINE FORMAT COLOR 7.
  ENDCASE.
  WAIT UP TO 4 SECONDS.
  CALL FUNCTION:
      'CONTROL_INIT',
      'CONTROL_SETFUNCTIONCODE' EXPORTING fcode = '=PICK',
      'CONTROL_FLUSH'.
阅读(3743) | 评论(2) | 转发(0) |
给主人留下些什么吧!~~

chinaunix网友2008-12-01 12:33:03

老大,太深奥了,没看懂这代码呀,能否解释一下?

chinaunix网友2008-12-01 12:32:57

老大,太深奥了,没看懂这代码呀,能否解释一下?