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

原来为了你

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

 
 
 

日志

 
 
 
 

alv tree  

2011-10-20 09:22:31|  分类: ALV |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

report  ztest_alv_tree.
dataok_code type sy-ucomm,
      save_ok 
type sy-ucomm.

datagb_fieldcat type lvc_t_fcat,
      gb_sortfld 
type lvc_t_sort.

datait_spfli type table of spfli.

select into table it_spfli from spfli.

datawa_container type scrfname value 'TAB1'"控件:定制控制
      alv_grid 
type ref to cl_gui_alv_tree_simple,
      wa_custom_container 
type ref to cl_gui_custom_container.

call screen 100.

*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
module status_0100 output.
  
if wa_custom_container is initial.
    
data ls_list_comm type slis_t_listheader.
    
data ls_alist_comm type slis_listheader.
    ls_alist_comm
-typ 'H'.
    ls_alist_comm
-info 'My ALV TREE Testing'.
    
append ls_alist_comm to ls_list_comm.
    
perform bldcat.
    
perform bldsortfld.

    
create object wa_custom_container
      
exporting
        container_name 
wa_container.

    
create object alv_grid
      
exporting
        i_parent 
wa_custom_container.

    
call method alv_grid->set_table_for_first_display
      
exporting
        it_list_commentary 
ls_list_comm
        i_structure_name   
'SPFLI'
      
changing
        it_sort            
gb_sortfld
        it_fieldcatalog    
gb_fieldcat
        it_outtab          
it_spfli.

    
call method alv_grid->expand_tree
      
exporting
        i_level 
1.

  
endif.
endmodule.                 " STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
module user_command_0100 input.
  save_ok 
ok_code.
  
clear ok_code.
  
case save_ok.
    
when 'EXIT'.
      
leave program.
  
endcase.
endmodule.                 " USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*&      Form  BLDCAT
*&---------------------------------------------------------------------*
form bldcat .
  
call function'LVC_FIELDCATALOG_MERGE'
  
exporting
    i_structure_name 
'SPFLI'
    
changing
      ct_fieldcat 
gb_fieldcat.
  
data ls_fldcat type lvc_s_fcat.
  
loop at gb_fieldcat into ls_fldcat.
    
case ls_fldcat-fieldname.
      
when 'COUNTRYFR' or 'CITYFROM' or'COUNTRYTO'
        
or 'CITYTO' or 'DISTANCE'.
        ls_fldcat
-outputlen 15.
      
when others.
        ls_fldcat
-no_out 'X'.
    
endcase.

    
if ls_fldcat-fieldname 'DISTANCE'.
      ls_fldcat
-do_sum 'X'.
    
endif.
    
modify gb_fieldcat from ls_fldcat.
  
endloop.
endform.                    " BLDCAT
*&---------------------------------------------------------------------*
*&      Form  BLDSORTFLD
*&---------------------------------------------------------------------*
form bldsortfld .
  
data ls_sortfld type lvc_s_sort.
  ls_sortfld
-spos 1.
  ls_sortfld
-fieldname 'COUNTRYFR'.
  ls_sortfld
-up 'X'.
  ls_sortfld
-subtot 'X'.
  
append ls_sortfld to gb_sortfld.

  ls_sortfld
-spos 2.
  ls_sortfld
-fieldname 'CARRID'.
  ls_sortfld
-up 'X'.
  ls_sortfld
-subtot 'X'.
  
append ls_sortfld to gb_sortfld.

  ls_sortfld
-spos 3.
  ls_sortfld
-fieldname 'CONNID'.
  ls_sortfld
-up 'X'.
  ls_sortfld
-subtot 'X'.
  
append ls_sortfld to gb_sortfld.
endform.                    " BLDSORTFLD

  评论这张
 
阅读(652)| 评论(0)
推荐 转载

历史上的今天

评论

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

页脚

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