原来为了你

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

日志

关于我

2006057145

SXL..

文章分类

设计带两行标题的alv

2011-06-13 12:05:10| 分类： ALV | 标签： |举报 |字号大中小订阅

下载LOFTER 我的照片书 |

*---实例一：两行标题的alv
report ztest_alv no standard page heading.
type-pools: slis.
tables: likp,lips.
constants:
gc_formname_top_of_page type slis_formname value 'TOP_OF_PAGE'.
data: gt_fieldcat type slis_t_fieldcat_alv,
      gs_layout   type slis_layout_alv,
      gs_keyinfo  type slis_keyinfo_alv,
      gt_sp_group type slis_t_sp_group_alv,
      gt_events   type slis_t_event,
      g_tabname_header type slis_tabname,
      g_tabname_item   type slis_tabname.

*---selection screen
select-options: s_vbeln for likp-vbeln.               "暂时没用
*---data declear
data: begin of gt_likp occurs 0,
        vbeln like likp-vbeln,
      end of gt_likp.
data: begin of gt_lips occurs 0,
        vbeln like lips-vbeln,
        posnr like lips-posnr,
        matnr like lips-matnr,
        lfimg like lips-lfimg,
      end of gt_lips.
data: g_repid like sy-repid.                          "当前程序
data: gt_list_top_of_page type slis_t_listheader.     "top of page

*---initialization
initialization.
  g_repid = sy-repid.
  g_tabname_header = 'GT_LIKP'.
  g_tabname_item   = 'GT_LIPS'.

  clear gs_keyinfo.
  gs_keyinfo-header01 = 'VBELN'.
  gs_keyinfo-item01   = 'VBELN'.

*---get data
start-of-selection.
  perform selection.

*---show data
end-of-selection.
  perform fieldcat_init using gt_fieldcat[].
  perform layout_build  using gs_layout.
  perform display.

*&---------------------------------------------------------------------*
*&      Form  selection
*&---------------------------------------------------------------------*
form selection.
  select * into corresponding fields of table gt_likp up to 4 rows from likp.
  select * into corresponding fields of table gt_lips
    from lips
    for all entries in gt_likp
    where vbeln = gt_likp-vbeln.
endform.                    "selection
*&---------------------------------------------------------------------*
*&      Form  FIELDCAT_INIT
*&---------------------------------------------------------------------*
form fieldcat_init using p_t_fieldcat type slis_t_fieldcat_alv.
  data: ls_fieldcat type slis_fieldcat_alv.

  clear ls_fieldcat.
  ls_fieldcat-fieldname     = 'VBELN'.
  ls_fieldcat-tabname      = g_tabname_header.
  ls_fieldcat-reptext_ddic = '交货'.
  ls_fieldcat-key           = 'X'.
  append ls_fieldcat to  p_t_fieldcat.

  ls_fieldcat-fieldname     = 'POSNR'.
  ls_fieldcat-tabname      = g_tabname_item.
  ls_fieldcat-reptext_ddic  = '行项目'.
  ls_fieldcat-key           = 'X'.
  append ls_fieldcat to  p_t_fieldcat.

  ls_fieldcat-fieldname     = 'MATNR'.
  ls_fieldcat-tabname      = g_tabname_item.
  ls_fieldcat-reptext_ddic  = '物料'.
  ls_fieldcat-key           = 'X'.
  append ls_fieldcat to  p_t_fieldcat.

  ls_fieldcat-fieldname     = 'LFIMG'.
  ls_fieldcat-tabname      = g_tabname_item.
  ls_fieldcat-reptext_ddic  = '交货数量'.
  ls_fieldcat-key           = 'X'.
  append ls_fieldcat to  p_t_fieldcat.
endform.                    "FIELDCAT_INIT
*&---------------------------------------------------------------------*
*&      Form  layout_build
*&---------------------------------------------------------------------*
form layout_build using p_s_layout type slis_layout_alv.
  p_s_layout-default_item      = 'X'.
  p_s_layout-zebra             = 'X'.
  p_s_layout-colwidth_optimize = 'X'.
endform.                    "layout_build
*&---------------------------------------------------------------------*
*&      Form  display
*&---------------------------------------------------------------------*
form display.
  call function 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
    exporting
      i_callback_program = g_repid
      is_layout          = gs_layout
      it_fieldcat        = gt_fieldcat[]
      i_tabname_header   = g_tabname_header
      i_tabname_item     = g_tabname_item
      is_keyinfo         = gs_keyinfo
    tables
      t_outtab_header    = gt_likp
      t_outtab_item      = gt_lips.
endform.                    "display

"自己定制一个程序
REPORT ztest_alv NO STANDARD PAGE HEADING.
TYPE-POOLS: slis.
TABLES: likp,lips.
CONSTANTS:
gc_formname_top_of_page TYPE slis_formname VALUE 'TOP_OF_PAGE'.
DATA: gt_fieldcat TYPE slis_t_fieldcat_alv,
      gs_layout   TYPE slis_layout_alv,
      gs_keyinfo  TYPE slis_keyinfo_alv,
      gt_sp_group TYPE slis_t_sp_group_alv,
      gt_events   TYPE slis_t_event,
      g_tabname_header TYPE slis_tabname,
      g_tabname_item   TYPE slis_tabname.

*---selection screen
SELECT-OPTIONS: s_vbeln FOR likp-vbeln.               "暂时没用
*---data declear
DATA: BEGIN OF gt_header OCCURS 0,
        field1(10),
        field2(10),
      END OF gt_header.
DATA: BEGIN OF gt_lips OCCURS 0,
        field1(10),
        vbeln LIKE lips-vbeln,
        posnr LIKE lips-posnr,
        matnr LIKE lips-matnr,
        lfimg LIKE lips-lfimg,
      END OF gt_lips.
DATA: g_repid LIKE sy-repid.                          "当前程序
DATA: gt_list_top_of_page TYPE slis_t_listheader.     "top of page

*---initialization
INITIALIZATION.
  g_repid = sy-repid.
  g_tabname_header = 'GT_HEADER'.
  g_tabname_item   = 'GT_LIPS'.

  CLEAR gs_keyinfo.
  gs_keyinfo-header01 = 'FIELD1'.
  gs_keyinfo-item01   = 'FIELD1'.

*---get data
START-OF-SELECTION.
  PERFORM selection.

*---show data
END-OF-SELECTION.
  PERFORM fieldcat_init USING gt_fieldcat[].
  PERFORM layout_build  USING gs_layout.
  PERFORM display.

*&---------------------------------------------------------------------*
*&      Form  selection
*&---------------------------------------------------------------------*
FORM selection.
  gt_header-field1 = 'A'.
  APPEND gt_header.

  SELECT * INTO CORRESPONDING FIELDS OF TABLE gt_lips
    FROM lips UP TO 4 ROWS.

*---用一个相同的字段关联
  LOOP AT gt_lips.
    gt_lips-field1 = 'A'.
    MODIFY gt_lips.
  ENDLOOP.
ENDFORM.                    "selection
*&---------------------------------------------------------------------*
*&      Form  FIELDCAT_INIT
*&---------------------------------------------------------------------*
FORM fieldcat_init USING p_t_fieldcat TYPE slis_t_fieldcat_alv.
  DATA: ls_fieldcat TYPE slis_fieldcat_alv.

*---标题
  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname     = 'FIELD1'.
  ls_fieldcat-tabname      = g_tabname_header.
  ls_fieldcat-reptext_ddic = '     标       题    '.
  ls_fieldcat-key           = 'X'.
  APPEND ls_fieldcat TO  p_t_fieldcat.

  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname     = 'FIELD2'.
  ls_fieldcat-tabname      = g_tabname_header.
  ls_fieldcat-reptext_ddic = '标题2'.
  ls_fieldcat-key           = 'X'.
  APPEND ls_fieldcat TO  p_t_fieldcat.

*---明细
  ls_fieldcat-fieldname     = 'POSNR'.
  ls_fieldcat-tabname      = g_tabname_item.
  ls_fieldcat-reptext_ddic  = '行项目'.
  ls_fieldcat-key           = 'X'.
  APPEND ls_fieldcat TO  p_t_fieldcat.

  ls_fieldcat-fieldname     = 'MATNR'.
  ls_fieldcat-tabname      = g_tabname_item.
  ls_fieldcat-reptext_ddic  = '物料'.
  ls_fieldcat-key           = 'X'.
  APPEND ls_fieldcat TO  p_t_fieldcat.

  ls_fieldcat-fieldname     = 'LFIMG'.
  ls_fieldcat-tabname      = g_tabname_item.
  ls_fieldcat-reptext_ddic  = '交货数量'.
  ls_fieldcat-key           = 'X'.
  APPEND ls_fieldcat TO  p_t_fieldcat.
ENDFORM.                    "FIELDCAT_INIT
*&---------------------------------------------------------------------*
*&      Form  layout_build
*&---------------------------------------------------------------------*
FORM layout_build USING p_s_layout TYPE slis_layout_alv.
  p_s_layout-default_item      = 'X'.
  p_s_layout-zebra             = 'X'.
  p_s_layout-colwidth_optimize = 'X'.
ENDFORM.                    "layout_build
*&---------------------------------------------------------------------*
*&      Form  display
*&---------------------------------------------------------------------*
FORM display.
  CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
    EXPORTING
      i_callback_program = g_repid
      is_layout          = gs_layout
      it_fieldcat        = gt_fieldcat[]
      i_tabname_header   = g_tabname_header
      i_tabname_item     = g_tabname_item
      is_keyinfo         = gs_keyinfo
    TABLES
      t_outtab_header    = gt_header
      t_outtab_item      = gt_lips.
ENDFORM.                    "display

评论这张

转发至微博

阅读(1197)| 评论(0)

历史上的今天

this.p={  m:2,
              b:2,
              loftPermalink:'',
              id:'fks_095064093082086075082081081095085081085068086084084067086',
              blogTitle:'设计带两行标题的alv',
              blogAbstract:'    <STYLE\> span { font-family: \"courier new\"; font-size: 10pt; color: #000000; background: #ffffff; } .l0s31 { font-style: italic; color: #808080; } .l0s32 { color: #3399ff; } .l0s33 { color: #4da619; } .l0s52 { color: #0000ff; } .l0s55 { color: #800080; } .l0s70 { color: #808080; } </STYLE\>  <SPAN\><BR\><SPAN\>*---实例一：两行标题的alv</SPAN\><BR\><SPAN\>report </SPAN\>ztest_alv <SPAN\>no </SPAN\></SPAN\>',
              blogTag:'',
              blogUrl:'blog/static/17472220220115130510169',
              isPublished:1,
              istop:false,
              type:0,
              modifyTime:1310374726256,
              publishTime:1307937910169,
              permalink:'blog/static/17472220220115130510169',
              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/17472220220115130510169">${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

历史上的今天

最近读者

热度

评论

页脚