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

原来为了你

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

 
 
 

日志

 
 
 
 

[转]CDHDR_CDPOS  

2011-01-07 16:10:38|  分类: ALV |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

report  z_barry_cdhdr_cdpos.
type-pools slis.
data cdhdr type cdhdr.
select-options :
  s_objcls 
for cdhdr-objectclas obligatory,
  s_objtid 
for cdhdr-objectid,
  s_chngnr 
for cdhdr-changenr,
  s_usrnam 
for cdhdr-username ,"DEFAULT sy-uname,
  s_udate  
for cdhdr-udate   ," DEFAULT sy-datum,
  s_time   
for cdhdr-utime,
  s_tcode  
for cdhdr-tcode,
  s_plncnr 
for cdhdr-planchngnr,
  s_chngno 
for cdhdr-act_chngno,
  s_wsplnd 
for cdhdr-was_plannd,
  s_chngid 
for cdhdr-change_ind.
selection-screen skip.
parameters p_max type numc3 obligatory default '200'.
typesbegin of ty_s_cdhdr.
        
include structure cdhdr.
types:   checkbox,
       
end of ty_s_cdhdr.
types:  begin of ty_s_cdpos.
        
include structure cdpos.
types:    checkbox,
        
end of ty_s_cdpos.
data gs_layout type slis_layout_alv,
       t_cdhdr 
type table of ty_s_cdhdr.

start
-of-selection.
  
select into table t_cdhdr
             
up to p_max rows
           
from cdhdr
          
where objectclas in s_objcls
            
and objectid   in s_objtid
            
and changenr   in s_chngnr
            
and username   in s_usrnam
            
and udate      in s_udate
            
and utime      in s_time
            
and tcode      in s_tcode
            
and planchngnr in s_plncnr
            
and act_chngno in s_chngno
            
and was_plannd in s_wsplnd
            
and change_ind in s_chngid.
  gs_layout
-zebra 'X'.
  gs_layout
-colwidth_optimize 'X'.
  gs_layout
-box_fieldname 'CHECKBOX'.
  
call function 'REUSE_ALV_GRID_DISPLAY'
    
exporting
      i_callback_program      
sy-cprog
      i_callback_user_command 
'USER_COMMAND'
      i_structure_name        
'CDHDR'
      is_layout               
gs_layout
    
tables
      t_outtab                
t_cdhdr.
*---------------------------------------------------------------------*
*       FORM USER_COMMAND                                             *
*---------------------------------------------------------------------*
form user_command using u_ucomm     type syucomm
                        us_selfield 
type slis_selfield.
  
define m_sort.
    
add to ls_sort-spos.
    ls_sort
-fieldname &1.
    ls_sort
-up 'X'.
    
append ls_sort to lt_sort.
  
end-of-definition.
  
data :
    ls_cdhdr 
type ty_s_cdhdr,
    ls_sort  
type slis_sortinfo_alv,
    lt_sort  
type slis_t_sortinfo_alv,
    lt_cdpos 
type table of ty_s_cdpos.
  
case u_ucomm.
    
when '&IC1'.
      
perform check_marked using us_selfield.
      
loop at t_cdhdr into ls_cdhdr where checkbox 'X'.
        
select appending table lt_cdpos
                 
from cdpos
                
where objectclas ls_cdhdr-objectclas
                  
and objectid   ls_cdhdr-objectid
                  
and changenr   ls_cdhdr-changenr.
      
endloop.
      m_sort 
'CHANGENR'.
      
call function 'REUSE_ALV_GRID_DISPLAY'
        
exporting
          i_structure_name 
'CDPOS'
          is_layout        
gs_layout
          it_sort          
lt_sort
        
tables
          t_outtab         
lt_cdpos.
  
endcase.
endform.                               " USER_COMMAND
*---------------------------------------------------------------------*
*       Form  CHECK_MARKED
*---------------------------------------------------------------------*
form check_marked using us_selfield type slis_selfield.
  
field-symbols :
    <cdhdr> 
type ty_s_cdhdr.
  
read table t_cdhdr transporting no fields with key checkbox 'X'.
  
if not sy-subrc is initial and
     
not us_selfield-tabindex is initial.
    
read table t_cdhdr index us_selfield-tabindex assigning <cdhdr>.
    <cdhdr>
-checkbox 'X'.
  
endif.
endform.                    "check_marked

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

历史上的今天

评论

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

页脚

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