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

原来为了你

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

 
 
 

日志

 
 
 
 

给F4窗口的列加颜色  

2011-01-26 22:20:16|  分类: ABAP屏幕操作 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

report.

type-pools slis.
data: begin of itab occurs 0,
        bukrs like t001-bukrs,
        butxt like t001-butxt,
      end   of itab.
parameters: p_bukrs type bukrs.

at selection-screen on value-request for p_bukrs.
  perform f4_for_bukrs.
*&---------------------------------------------------------------------*
*&      Form. F4_FOR_BUKRS
*----------------------------------------------------------------------*
form f4_for_bukrs.
  data: lt_fieldcat type  slis_t_fieldcat_alv with header line,
        ls_selfield type  slis_selfield.

  select bukrs
         butxt
  from   t001
  into table itab
  up to 10 rows .
* Get field
  call function 'REUSE_ALV_FIELDCATALOG_MERGE'
    exporting
      i_program_name     = sy-repid
      i_internal_tabname = 'ITAB'

i_inclname         = sy-repid
      i_bypassing_buffer = 'X'
    changing
      ct_fieldcat        = lt_fieldcat[].
  loop at lt_fieldcat.
    lt_fieldcat-key = space.
    if lt_fieldcat-fieldname = 'BUTXT'.
      lt_fieldcat-emphasize  = 'C710'.
    endif.
    if lt_fieldcat-fieldname = 'BUKRS'.
      lt_fieldcat-emphasize  = 'C610'.
    endif.
    modify lt_fieldcat.
  endloop.
  call function 'REUSE_ALV_POPUP_TO_SELECT'
    exporting
      i_title     = 'THIS IS FOR F4 IN COLOR'
      i_tabname   = 'ITAB'
      it_fieldcat = lt_fieldcat[]
    importing
      es_selfield = ls_selfield
    tables
      t_outtab    = itab.
  p_bukrs = ls_selfield-value.
endform.                    " F4_FOR_BUKRS

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

历史上的今天

评论

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

页脚

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