原来为了你

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

日志

关于我

2006057145

SXL..

文章分类

[转]带多行标题的alv_list

2011-07-19 11:39:16| 分类： ALV | 标签： |举报 |字号大中小订阅

下载LOFTER 我的照片书 |

REPORT  z_alv_multi_title_lines NO STANDARD PAGE HEADING.
*---ALV
TYPE-POOLS slis.
DATA: l_events TYPE slis_t_event,
      gs_layout TYPE slis_layout_alv,
      fieldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE,
      eventcat TYPE slis_t_event WITH HEADER LINE.
DATA: l_variant TYPE TABLE OF disvariant WITH HEADER LINE.

DATA: BEGIN OF itb_output OCCURS 0,
        field1 LIKE mseg-menge,
        field2 LIKE mseg-menge,
        field3 LIKE mseg-menge,
        field4 LIKE mseg-menge,
      END OF itb_output.

START-OF-SELECTION.
  PERFORM eventtab_build CHANGING l_events.
  PERFORM input_data.
  PERFORM write_data.

*&---------------------------------------------------------------------*
*&      Form  write_data
*&---------------------------------------------------------------------*
FORM write_data .
  PERFORM get_fieldcat.

  gs_layout-zebra = 'X' .

  CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
    EXPORTING
      i_callback_program = sy-repid
      is_layout          = gs_layout
      is_variant         = l_variant
      it_fieldcat        = fieldcat[]
      it_events          = eventcat[]
    TABLES
      t_outtab           = itb_output[]
    EXCEPTIONS
      program_error      = 1
      OTHERS             = 2.
ENDFORM.                    " write_data
*&---------------------------------------------------------------------*
*&      Form  GET_FIELDCAT
*&---------------------------------------------------------------------*
FORM get_fieldcat.
  CLEAR fieldcat.
  fieldcat-tabname = 'ITAB_OUTPUT'.
  fieldcat-fieldname = 'FIELD1'.
  fieldcat-col_pos   = 1.
  fieldcat-seltext_l = '出库1'.
  fieldcat-key = 'X'.
  fieldcat-outputlen = 11.
  APPEND fieldcat.

  CLEAR fieldcat.
  fieldcat-tabname = 'ITAB_OUTPUT'.
  fieldcat-fieldname = 'FIELD2'.
  fieldcat-col_pos   = 10.
  fieldcat-seltext_l = '出库2'.
  fieldcat-key = 'X'.
  fieldcat-outputlen = 10.
  APPEND fieldcat.

  CLEAR fieldcat.
  fieldcat-tabname = 'ITAB_OUTPUT'.
  fieldcat-fieldname = 'FIELD3'.
  fieldcat-col_pos   = 10.
  fieldcat-seltext_l = '入库1'.
  fieldcat-key = 'X'.
  fieldcat-outputlen = 10.
  APPEND fieldcat.

  CLEAR fieldcat.
  fieldcat-tabname = 'ITAB_OUTPUT'.
  fieldcat-fieldname = 'FIELD4'.
  fieldcat-col_pos   = 10.
  fieldcat-seltext_l = '入库2'.
  fieldcat-key = ''.
  fieldcat-outputlen = 10.
  APPEND fieldcat.
ENDFORM.                    " GET_FIELDCAT

*&---------------------------------------------------------------------*
*&      Form  EVENTTAB_BUILD
*&---------------------------------------------------------------------*
FORM eventtab_build CHANGING p_events TYPE slis_t_event.
  DATA l_event TYPE LINE OF  slis_t_event.
*---get all events of alv.
  CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      i_list_type     = 0 "reuse_alv_list_display,see the details in function doc.
    IMPORTING
      et_events       = p_events
    EXCEPTIONS
      list_type_wrong = 1
      OTHERS          = 2.
*---build alv event itable.
  READ TABLE p_events INTO l_event WITH KEY name = 'AFTER_LINE_OUTPUT'.
  eventcat-name  = l_event-name.
  eventcat-form = 'AFTER_LINE_OUTPUT'.
  APPEND eventcat.
  READ TABLE p_events INTO l_event WITH KEY name = 'TOP_OF_PAGE'.
  eventcat-name  = l_event-name.
  eventcat-form = 'F_TOP_OF_PAGE'.
  APPEND eventcat.
ENDFORM.                    " EVENTTAB_BUILD
*&--------------------------------------------------------------------*
*&      Form  AFTER_LINE_OUTPUT
*&--------------------------------------------------------------------*
*   输出ALV的表头，手动配置这些
*---------------------------------------------------------------------*
FORM after_line_output USING gs_lineinfo TYPE slis_lineinfo.
  DATA: i TYPE i.
  DATA: d(394) TYPE c .
  DATA: l_line(398) TYPE c.
  DESCRIBE FIELD d OUTPUT-LENGTH i.
  IF gs_lineinfo-tabindex = 1.
    MODIFY LINE 1 LINE VALUE FROM sy-uline(gs_lineinfo-linsz).
    MODIFY LINE 2 LINE FORMAT COLOR 7.
    CLEAR l_line.
    l_line    = sy-vline.
    l_line+9  = '总出库'.
    l_line+20 = sy-vline.
    l_line+30 = '总入库'.
    l_line+39 = sy-vline.

    MODIFY LINE 2 LINE VALUE FROM l_line.

  ENDIF.
ENDFORM.                    "AFTER_LINE_OUTPUT
*&--------------------------------------------------------------------*
*&      Form  F_TOP_OF_PAGE
*&--------------------------------------------------------------------*
*     给ALV表头输出预留行空间
*---------------------------------------------------------------------*
FORM f_top_of_page.
  WRITE : / sy-uline,
          / sy-uline.
ENDFORM.                    "F_TOP_OF_PAGE
*&---------------------------------------------------------------------*
*&      Form  input_data
*&---------------------------------------------------------------------*
FORM input_data .
  itb_output-field1 = 100 .
  itb_output-field2 = 200 .

  itb_output-field3 = 300 .
  itb_output-field4 = 400 .

  APPEND itb_output .
ENDFORM.                    " input_data

评论这张

转发至微博

阅读(615)| 评论(0)

历史上的今天

this.p={  m:2,
              b:2,
              loftPermalink:'',
              id:'fks_095069083080081068092085094095085081085068086084084067086',
              blogTitle:'[转]带多行标题的alv_list',
              blogAbstract:'<P style=\"MARGIN: 0cm 0cm 0pt;\"\><FONT face=\"Courier New\"\><SPAN\><SPAN lang=\"EN-US\" style=\"FONT-SIZE: 10pt;\"\><FONT color=\"#0000ff\"\>REPORT  </FONT\></SPAN\></SPAN\><SPAN lang=\"EN-US\" style=\"FONT-SIZE: 10pt; BACKGROUND: white; COLOR: black; FONT-FAMILY: \'Courier New\';\"\>z_alv_multi_title_lines </SPAN\><SPAN\><SPAN lang=\"EN-US\" style=\"FONT-SIZE: 10pt;\"\><FONT color=\"#0000ff\"\>NO STANDARD PAGE </FONT\></SPAN\></SPAN\><SPAN lang=\"EN-US\" style=\"FONT-SIZE: 10pt; BACKGROUND: white; COLOR: black; FONT-FAMILY: \'Courier New\';\"\>HEADING</SPAN\><SPAN\><SPAN lang=\"EN-US\" style=\"FONT-SIZE: 10pt;\"\><FONT color=\"#800080\"\>.</FONT\></SPAN\></SPAN\></FONT\><SPAN lang=\"EN-US\" style=\"FONT-SIZE: 10pt; BACKGROUND: white; COLOR: black; FONT-FAMILY: \'Courier New\';\"\><BR\></SPAN\><SPAN\></SPAN\></P\>',
              blogTag:'',
              blogUrl:'blog/static/1747222022011619113916253',
              isPublished:1,
              istop:false,
              type:0,
              modifyTime:1312968617953,
              publishTime:1311046756253,
              permalink:'blog/static/1747222022011619113916253',
              commentCount:0,
              mainCommentCount:0,
              recommendCount:0,
              bsrk:-100,
              publisherId:0,
              recomBlogHome:false,
              currentRecomBlog:false,
              attachmentsFileIds:[],
              vote:{},
              groupInfo:{},
              friendstatus:'none',
              followstatus:'unFollow',
              pubSucc:'',
              visitorProvince:'',
              visitorCity:'',
              visitorNewUser:false,
              postAddInfo:{},
              mset:'000',
              mcon:'',
              srk:-100,
              remindgoodnightblog:false,
              isBlackVisitor:false,
              isShowYodaoAd:false,
              hostIntro:'SXL..',
              hmcon:'1',
              selfRecomBlogCount:'0',
              lofter_single:'<iframe width="140" height="560" style="overflow:hidden;" src="http://www.lofter.com/mailEntry.do?blogad=1&blog" frameBorder="0"></iframe>'
            }

{list a as x}
    {if !!x}
    <div class="iblock nbw-fce nbw-f40">
      <a class="fc03 noul" target="_blank" hidefocus="true" href="http://blog.163.com/${x.visitorName}/">
      {if x.visitorName==visitor.userName}
      <img alt="${x.visitorNickname|escape}" onerror="this.src=location.f40" class="cwd bdwa bdc0" src="${fn1(x.visitorName)}&r=${visitor.imageUpdateTime}"/>
      {else}
      <img alt="${x.visitorNickname|escape}" onerror="this.src=location.f40" class="cwd bdwa bdc0" src="${fn1(x.visitorName)}"/>
      {/if}
      </a>
      <div class="cwd vname thide">
        {if x.moveFrom=='wap'}
          <a class="noul pnt" target="_blank" href="http://blog.163.com/services/wapblog.html?frompersonalbloghome"><span title="来自网易手机博客" class="iblock wapIcon"> </span></a>
        {elseif x.moveFrom=='iphone'}
          <a class="noul pnt" target="_blank"><span title="来自iPhone客户端" class="iblock iphoneIcon"> </span></a>
        {elseif x.moveFrom=='android'}
          <a class="noul pnt" target="_blank"><span title="来自Android客户端" class="iblock androidIcon"> </span></a>
        {elseif x.moveFrom=='mobile'}
          <a class="noul pnt" target="_blank" href="http://blog.163.com/services/emsblog.html?frompersonalbloghome"><span title="来自网易短信写博" class="iblock wapIcon"> </span></a>
        {/if}
        <a class="fc03 m2a"  target="_blank" hidefocus="true" href="http://blog.163.com/${x.visitorName}/">
          ${fn(x.visitorNickname,8)|escape}
        </a>
      </div>
    </div>
    {/if}
    {/list}

<#--最新日志，群博日志--> <#--推荐日志-->

<p class="fc06">推荐过这篇日志的人：</p>
    <div>
      {list a as x}
      {if !!x}
      <div class="iblock nbw-fce nbw-f40">
        <a class="fc03 noul" target="_blank" hidefocus="true" href="http://blog.163.com/${x.recommenderName}/">
        <img alt="${x.recommenderNickname|escape}" onerror="this.src=location.f40" class="cwd bdwa bdc0" src="${fn1(x.recommenderName)}"/>
        </a>
        <div class="cwd thide">
          <a class="fc03 m2a" target="_blank" hidefocus="true" href="http://blog.163.com/${x.recommenderName}/">
            ${fn(x.recommenderNickname,6)|escape}
          </a>
        </div>
      </div>
      {/if}
      {/list}
    </div>
    {if !!b&&b.length>0}
    <p  class="fc06">他们还推荐了：</p>
    <ul>
    {list b as y}
      {if !!y}
        <li class="rrb"><span class="iblock">·</span><a class="fc03 m2a" target="_blank" href="http://blog.163.com/${y.recommendBlogPermalink}/?from=blog/static/1747222022011619113916253">${y.recommendBlogTitle|escape}</a></li>
      {/if}
    {/list}
    </ul>
    {/if}

<#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇，下一篇--> <#-- 热度 -->

{list a as x}
    {if !!x}
    <div class="hotItem iblock nbw-fce nbw-f40">
      <a class="fc03 noul" target="_blank" hidefocus="true" href="http://blog.163.com/${x.publisherUsername}/">
      {if x.publisherUsername==visitor.userName}
      <img alt="${x.publisherNickname|escape}" onerror="this.src=location.f40" class="cwd bdwa bdc0" src="${fn1(x.publisherUsername)}&r=${visitor.imageUpdateTime}"/>
      {else}
      <img alt="${x.publisherNickname|escape}" onerror="this.src=location.f40" class="cwd bdwa bdc0" src="${fn1(x.publisherUsername)}"/>
      {/if}
      </a>
      <div class="cwd vname thide">
        <a class="fc03 m2a"  target="_blank" hidefocus="true" href="http://blog.163.com/${x.publisherUsername}/">
          ${fn(x.publisherNickname,8)|escape}
        </a>
      </div>
      <a class="f-myLikeIcons hottype {if x.type==1} js-liketype{elseif x.type==2} js-reblogtype{elseif x.type==3} js-sharetype{else}{/if}" target="_blank" hidefocus="true" href="http://blog.163.com/${x.publisherUsername}/"> </a>
    </div>
    {/if}
    {/list}

<#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->

页脚

我的照片书 - 手机博客 - 下载LOFTER APP - 订阅此博客

原来为了你

导航

日志

[转]带多行标题的alv_list

历史上的今天

最近读者

热度

评论

页脚