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

原来为了你

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

 
 
 

日志

 
 
 
 

选择屏幕日期带上时间  

2011-01-24 21:52:56|  分类: ABAP屏幕操作 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

report ztest.
tables: likp.
select-options: p_sjfhr for likp-wadat_ist no-extension no-display.
selection-screen begin of line.
selection-screen position 1.
selection-screen comment (8) text-f01 for field p_dlow."选择日期文本
selection-screen position 33.
parameters: p_dlow type sy-datum."开始日期
parameters: p_tlow type sy-uzeit default '000000'."开始时间
selection-screen position 53.
selection-screen comment (4) text-f02 for field p_dhigh ."到文本
selection-screen position 58.
parameters: p_dhigh type sy-datum."截止日期
parameters: p_thigh type sy-uzeit default '235959'."截止时间
selection-screen end of line.
at selection-screen.
  data: lwa_datum like line of p_sjfhr.
  if p_dlow is not initial and p_dhigh is not initial and p_dlow > p_dhigh.
    message e000(oo) with '选择日期下限大于上限'.
  else.
    clear:p_sjfhr[].
    lwa_datum-low = p_dlow.
    lwa_datum-high = p_dhigh.
    lwa_datum-sign = 'I'.
    if lwa_datum-high is initial.
      if lwa_datum-low is initial.
        "不操作
      else.
        lwa_datum-option = 'EQ'.
        append lwa_datum to p_sjfhr.
      endif.
    else.
      lwa_datum-option = 'BT'.
      append lwa_datum to p_sjfhr.
    endif.
    "读取range中的一行
    if p_sjfhr[] is not initial.
      read table p_sjfhr index 1.
    endif.
  endif.

程序执行结果如下:

选择屏幕日期带上时间 - 2006057145 - 原来为了你
 
  评论这张
 
阅读(597)| 评论(0)

历史上的今天

评论

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

页脚

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