ABAP ALV多层显示及分类汇总

tables: sscrfields,bseg,bkpf,mara. 
type-pools: slis,kkblo. 
data: w_vari            type disvariant, 
      w_layo            type slis_layout_alv, 
      i_fcat            type slis_t_fieldcat_alv, 
      w_fcat            type slis_fieldcat_alv, 
      i_evts            type slis_t_event, 
      i_evts_exit       type slis_t_event_exit, 
      w_keyinfo         type slis_keyinfo_alv. 
constants: cns_x type c value 'X'. 
    field-symbols: type table. 
    field-symbols: type table. 
    data:str_name1(30) type c, 
         str_name2(30) type c. 
data: l_total type i value 0. 
data: x_total type i value 0. 
data: g_belnr like range of bkpf-belnr, 
      g_belnr_line like line of g_belnr. 
data: x_belnr like range of bkpf-belnr, 
      x_belnr_line like line of x_belnr. 
types: begin of st_bkpf, 
          belnr like bkpf-belnr, 
          xblnr like bkpf-xblnr, 
          budat like bkpf-budat, 
       end of st_bkpf. 
data:wa_bkpf type st_bkpf, 
     it_bkpf type standard table of st_bkpf. 
data:bef_day like bkpf-budat. 
types: begin of st_bseg, 
          bukrs like bseg-bukrs, 
          belnr like bseg-belnr, "会计凭证编号 
          gjahr like bseg-gjahr, 
          buzei like bseg-buzei, "会计凭证中的行项目数 
          dmbtr like bseg-dmbtr, 
          shkzg like bseg-shkzg, "借贷 
          koart like bseg-koart,"科目类型 
          budat like mkpf-budat,"过帐日期 
          sgtxt like bseg-sgtxt,"文本 
          menge like bseg-menge,"数量 
          matnr like bseg-matnr, 
          prodh like vbrp-prodh, 
          hkont like bseg-hkont, 
          xblnr like bkpf-xblnr,"参考发票 
*          AUGBL LIKE bseg-AUGBL,"清帐凭证 
          vbeln like bseg-vbeln, 
          xref1_hd like bkpf-xref1_hd, 
       end of st_bseg. 
data:wa_bseg type st_bseg, 
     it_bseg type standard table of st_bseg. 
data:tmp_bseg type st_bseg. 
"定义上期结转 
"定义发票用的: 
data:begin of st_vbrp, 
  vbeln like vbrp-vbeln, 
  posnr like vbrp-posnr, 
  fkimg like vbrp-fkimg, 
  netwr like vbrp-netwr, 
  matnr like vbrp-matnr, 
  prodh like vbrp-prodh, 
  end of st_vbrp. 
data:it_vbrp like table of st_vbrp, 
     wa_vbrp like st_vbrp. 
"显示的struct 
data: begin of headertab1, "物料 
          matnr like mara-matnr,   "KEY 
          gjahr like bkpf-gjahr,   "KEY 
          maktx like makt-maktx, 
          chk type c,              "是否够选 
          expand type c, 
      end of headertab1. 
data: begin of itemtab1, 
          matnr like mara-matnr, 
          gjahr like bkpf-gjahr, 
          monat like bkpf-monat, 
          day(2) type c, 
          xref1_hd like bkpf-xref1_hd, 
          summy(12) type c, 
          s_num like bseg-menge, 
          s_money like bseg-dmbtr, 
          h_num like bseg-menge, 
          h_money like bseg-dmbtr, 
          diec(2) type c, 
          o_num like bseg-menge, 
          o_unit like bseg-dmbtr, 
          o_money like bseg-dmbtr, 
      end of itemtab1. 
data: begin of headertab2 ,         "产品层次 
          prdha like mara-prdha, 
          gjahr like bkpf-gjahr, 
          vtext like t179t-vtext, 
          chk type c, 
          expand type c, 
      end of headertab2. 
data: begin of itemtab2, 
          prdha like mara-prdha, 
          gjahr like bkpf-gjahr, 
          monat like bkpf-monat, 
          day(2) type c, 
          xref1_hd like bkpf-xref1_hd, 
          summy(12) type c, 
          s_num like bseg-menge, 
          s_money like bseg-dmbtr, 
          h_num like bseg-menge, 
          h_money like bseg-dmbtr, 
          diec(2) type c, 
          o_num like bseg-menge, 
          o_unit like bseg-dmbtr, 
          o_money like bseg-dmbtr, 
       end of itemtab2. 
data:it_headertab1 like table of  headertab1. 
data:it_itemtab1 like table of  itemtab1. 
data:it_headertab2 like table of  headertab2. 
data:it_itemtab2 like table of  itemtab2. 
 
data: xslt_error type ref to cx_xslt_exception, 
      xslt_message type string  . 
data:opt_budat like zoptions. 
data:opt_matnr like zoptions. 
data g_program_name type sy-cprog value sy-repid. 
 
select-options : p_xref1 for bkpf-xref1_hd . 
select-options : p_budat for bkpf-budat . 
select-options : p_matnr for mara-matnr. 
select-options : p_hkont for bseg-hkont. 
select-options:  p_prdha for mara-prdha. 
parameters: p_gjahr like bseg-gjahr obligatory default sy-datlo(4), 
              p_bukrs like bseg-bukrs, 
              p_groes like mara-groes. 
 
at selection-screen. 
w_vari-report = g_program_name. 
perform. f_get_data. 
if p_matnr is not initial. 
str_name1 = 'HEADERTAB1'. 
str_name2 = 'ITEMTAB1'. 
else. 
str_name1 = 'HEADERTAB2'. 
str_name2 = 'ITEMTAB2'. 
endif. 
perform. f_set_fcat:using str_name1, using str_name2. "获得结构 
"修改显示 
loop at i_fcat into w_fcat. 
  case w_fcat-fieldname. 
    when 'DAY'. 
      w_fcat-seltext_l = '日'. 
    when 'MONAT'. 
      w_fcat-seltext_l = '月'. 
    when 'GJAHR'. 
      w_fcat-seltext_l = '年'. 
      w_fcat-seltext_m = '年'. 
      w_fcat-seltext_s = '年'. 
      w_fcat-reptext_ddic = '年'. 
    when 'SUMMY'. 
      w_fcat-seltext_l = '摘要'. 
     w_fcat-outputlen = '4'. 
    when 'S_NUM'. 
      w_fcat-seltext_s = '借方数量'. 
      w_fcat-do_sum = 'X'.  "分类排序时算汇总 
     w_fcat-outputlen = '10'. 
    when 'S_MONEY'. 
      w_fcat-seltext_s = '借方金额'. 
      w_fcat-seltext_l = '借方金额'. 
      w_fcat-seltext_m = '借方金额'. 
      w_fcat-reptext_ddic = '借方金额'. 
      w_fcat-do_sum = 'X'. 
     w_fcat-outputlen = '10'. 
    when 'H_NUM'. 
      w_fcat-seltext_s = '贷方数量'. 
      w_fcat-do_sum = 'X'. 
     w_fcat-outputlen = '10'. 
    when 'H_MONEY'. 
      w_fcat-seltext_s = '贷方金额'. 
      w_fcat-seltext_l = '贷方金额'. 
      w_fcat-seltext_m = '贷方金额'. 
      w_fcat-reptext_ddic = '贷方金额'. 
      w_fcat-do_sum = 'X'. 
     w_fcat-outputlen = '10'. 
    when 'DIEC'. 
      w_fcat-seltext_s = '方向'. 
     w_fcat-outputlen = '4'. 
    when 'O_NUM'. 
      w_fcat-seltext_s = '余额数量'. 
      w_fcat-do_sum = 'X'. 
     w_fcat-outputlen = '10'. 
    when 'O_UNIT'. 
      w_fcat-seltext_s = '余额单位'. 
      w_fcat-seltext_l = '余额单位'. 
      w_fcat-seltext_m = '余额单位'. 
      w_fcat-reptext_ddic = '余额单位'. 
      w_fcat-do_sum = 'X'.   
     w_fcat-outputlen = '10'. 
    when 'O_MONEY'. 
      w_fcat-seltext_s = '余额金额'. 
      w_fcat-seltext_l = '余额金额'. 
      w_fcat-seltext_m = '余额金额'. 
      w_fcat-reptext_ddic = '余额金额'. 
      w_fcat-do_sum = 'X'. 
     w_fcat-outputlen = '10'. 
   WHEN 'MATNR'. 
     w_fcat-key           = 'X'. 
    WHEN 'PRDHA'. 
     w_fcat-key           = 'X'. 
  endcase. 
modify i_fcat from w_fcat. 
endloop. 
  perform. f_set_layo. 
  perform. f_set_keyinfo. 
  perform. f_call_alv. 
 
*&---------------------------------------------------------------------* 
*&      Form  F_GET_DATA 
*&---------------------------------------------------------------------* 
*       text 
*----------------------------------------------------------------------* 
*  -->  p1        text 
*  <--  p2        text 
*----------------------------------------------------------------------* 
form. f_get_data . 
"取数 
  clear :g_belnr,it_bseg,it_bkpf. 
  refresh: g_belnr,x_belnr. 
  select bkpf~belnr bkpf~xblnr bkpf~budat 
    into corresponding fields of table it_bkpf  from bkpf 
        where bkpf~bukrs = p_bukrs and bkpf~gjahr = p_gjahr and 
        bkpf~budat in p_budat 
        and xref1_hd in p_xref1. 
  if sy-subrc = 0. 
    sort it_bkpf by belnr. 
    delete adjacent duplicates from it_bkpf comparing belnr. 
    l_total = 0. 
    "查询 
    loop at it_bkpf into wa_bkpf. 
      l_total = l_total + 1. 
      g_belnr_line-sign = 'I'. 
      g_belnr_line-option = 'EQ'. 
      g_belnr_line-low = wa_bkpf-belnr. 
      append g_belnr_line to g_belnr. 
      if l_total = 3000. 
        select bukrs belnr gjahr buzei dmbtr shkzg koart sgtxt menge 
        matnr hkont vbeln 
           appending corresponding fields of table it_bseg from bseg 
          where bseg~bukrs = p_bukrs and bseg~belnr in g_belnr and 
          bseg~gjahr = p_gjahr 
          and ( matnr in p_matnr or matnr = '' ) and hkont in p_hkont. 
        l_total = 0. 
        clear g_belnr_line. 
        refresh g_belnr. 
      endif. 
    endloop. 
    "查询 
    if l_total <> 0. 
      select bukrs belnr gjahr buzei dmbtr shkzg koart sgtxt menge matnr 
      hkont vbeln 
        appending corresponding fields of table it_bseg from bseg 
        where bseg~bukrs = p_bukrs and bseg~belnr in g_belnr and 
        bseg~gjahr = p_gjahr 
        and matnr in p_matnr and hkont in p_hkont. 
      l_total = 0. 
      clear g_belnr_line. 
      refresh g_belnr. 
    endif. 
  endif. 
  "补全物料为空的0054010101参考发票 
  loop at it_bseg into wa_bseg where matnr = '' and hkont = '0054010101'  . 
    clear wa_bkpf. 
    read table it_bkpf with key belnr = wa_bseg-belnr into wa_bkpf. 
    if sy-subrc = 0. 
      wa_bseg-xblnr = wa_bkpf-xblnr. 
    endif. 
    clear it_vbrp. 
    select vbeln posnr fkimg netwr prodh matnr 
      appending corresponding fields of table it_vbrp 
      from vbrp where vbeln = wa_bseg-xblnr. 
    "匹配对应的行项目并取物料和产品层次 
    loop at it_vbrp into wa_vbrp. 
      clear tmp_bseg. 
      read table it_bseg with key 
      belnr = wa_bseg-belnr dmbtr = wa_vbrp-netwr menge = wa_vbrp-fkimg 
      into tmp_bseg. 
      if sy-subrc = 0. 
        tmp_bseg-matnr = wa_vbrp-matnr.tmp_bseg-prodh = wa_vbrp-prodh. 
        modify it_bseg from tmp_bseg index sy-tabix. 
      endif. 
    endloop. 
  endloop. 
  "补全0054010101科目的物料后,物料还是空全部去掉 
  delete it_bseg where matnr = ''. 
  "过滤掉不要的规格和产品层次 
  loop at it_bseg into wa_bseg. 
    if p_groes is not initial. 
      select count(*) from mara where matnr = wa_bseg-matnr and groes = 
      p_groes. 
      if sy-subrc <> 0. 
        delete it_bseg where matnr = wa_bseg-matnr. 
      endif. 
    endif. 
    if p_prdha is not initial. 
      select count(*) from mara where matnr = wa_bseg-matnr and prdha = 
      wa_bseg-prodh . 
      if sy-subrc <> 0. 
        delete it_bseg where matnr = wa_bseg-matnr and prodh = 
        wa_bseg-prodh. 
      endif. 
    endif. 
  endloop. 
  "汇总显示 
  if p_matnr is not initial. 
    loop at it_bseg into wa_bseg. 
      "日期 
      read table it_bkpf with key belnr = wa_bseg-belnr into wa_bkpf. 
      if sy-subrc = 0. 
        wa_bseg-budat = wa_bkpf-budat. 
      endif. 
      clear: itemtab1,headertab1. 
      "头 
      select single maktx 
        into headertab1-maktx from makt where matnr = wa_bseg-matnr. 
      headertab1-matnr = wa_bseg-matnr. 
      headertab1-gjahr = wa_bseg-gjahr. 
      append headertab1 to it_headertab1. 
      "体 
      itemtab1-matnr = wa_bseg-matnr. 
      itemtab1-gjahr = wa_bseg-gjahr. 
      itemtab1-monat = wa_bseg-budat+4(2). 
      itemtab1-day = wa_bseg-budat+6(2). 
      itemtab1-xref1_hd = wa_bseg-xref1_hd. 
      if wa_bseg-shkzg = 'S'. 
        itemtab1-summy = '购进'. 
        itemtab1-s_num = wa_bseg-menge. 
        itemtab1-s_money = wa_bseg-dmbtr. 
        itemtab1-diec = '借'. 
      elseif wa_bseg-shkzg = 'H'. 
        itemtab1-summy = '销售'. 
        itemtab1-h_num = wa_bseg-menge. 
        itemtab1-h_money = wa_bseg-dmbtr. 
        itemtab1-diec = '贷'. 
      endif. 
      itemtab1-o_num = itemtab1-s_num - itemtab1-h_num. 
      itemtab1-o_money = itemtab1-s_money - itemtab1-h_money. 
      if itemtab1-o_num <> 0. 
        itemtab1-o_unit = itemtab1-o_money / itemtab1-o_num. 
      endif. 
      collect itemtab1 into it_itemtab1. 
    endloop. 
    sort it_headertab1 by matnr gjahr. 
    delete adjacent duplicates from it_headertab1 comparing matnr gjahr. 
    sort it_headertab1 by matnr. 
    sort it_itemtab1 by matnr. 
    assign it_headertab1 to . 
    assign it_itemtab1 to . 
elseif p_prdha is not initial. 
    loop at it_bseg into wa_bseg. 
      clear:headertab2,itemtab2. 
      "日期 
      read table it_bkpf with key belnr = wa_bseg-belnr into wa_bkpf. 
      if sy-subrc = 0. 
        wa_bseg-budat = wa_bkpf-budat. 
      endif. 
      "头 
      select single vtext 
        into headertab2-vtext from t179t where prodh = wa_bseg-prodh. 
      headertab2-prdha = wa_bseg-prodh. 
      headertab2-gjahr = wa_bseg-gjahr. 
      append headertab2 to it_headertab2. 
      "体 
      itemtab2-prdha = wa_bseg-prodh. 
      itemtab2-gjahr = wa_bseg-gjahr. 
      itemtab2-monat = wa_bseg-budat+4(2). 
      itemtab2-day = wa_bseg-budat+6(2). 
      itemtab2-xref1_hd = wa_bseg-xref1_hd. 
      if wa_bseg-shkzg = 'S'. 
        itemtab2-summy = '购进'. 
        itemtab2-s_num = wa_bseg-menge. 
        itemtab2-s_money = wa_bseg-dmbtr. 
        itemtab2-diec = '借'. 
      elseif wa_bseg-shkzg = 'H'. 
        itemtab2-summy = '销售'. 
        itemtab2-h_num = wa_bseg-menge. 
        itemtab2-h_money = wa_bseg-dmbtr. 
        itemtab2-diec = '贷'. 
      endif. 
      itemtab2-o_num = itemtab2-s_num - itemtab2-h_num. 
      itemtab2-o_money = itemtab2-s_money - itemtab2-h_money. 
      if itemtab2-o_num <> 0. 
        itemtab2-o_unit = itemtab2-o_money / itemtab2-o_num. 
      endif. 
      collect itemtab2 into it_itemtab2. 
    endloop. 
  sort it_headertab2 by prdha gjahr. 
  delete adjacent duplicates from it_headertab2 comparing prdha gjahr. 
  sort it_headertab2 by prdha. 
  sort it_itemtab2 by prdha. 
    assign it_headertab2 to . 
    assign it_itemtab2 to . 
endif. 
endform.                    " F_GET_DATA 
 
form. f_set_fcat  using l_tabname type lvc_fname. 
  data: w_fcat type slis_fieldcat_alv, 
        i_fcat_tmp type slis_t_fieldcat_alv with header line. 
  field-symbols: type slis_fieldcat_alv. 
  call function 'REUSE_ALV_FIELDCATALOG_MERGE' 
    exporting 
     i_program_name               = g_program_name 
     i_internal_tabname           = l_tabname 
*      I_STRUCTURE_NAME             = 'mara' 
*     I_CLIENT_NEVER_DISPLAY       = CNS_X 
     i_inclname                   = g_program_name 
*      I_BYPASSING_BUFFER           = 
*      I_BUFFER_ACTIVE              = 
    changing 
      ct_fieldcat                  = i_fcat_tmp[] 
    exceptions 
      inconsistent_interface       = 1 
      program_error                = 2 
      others                       = 3. 
**--上面是获得W_HEAD的组成情况，获得它的字段和所在table 
  append lines of  i_fcat_tmp to i_fcat. 
  check l_tabname eq str_name1. 
      read table i_fcat assigning 
                        with key fieldname = 'EXPAND'. 
      -no_out = cns_x. 
**--上面是说EXPAND这个字段不显示 
endform.                    " f_set_fcat 
*&---------------------------------------------------------------------* 
*&      Form  f_set_layo 
*&---------------------------------------------------------------------* 
*       text 
*----------------------------------------------------------------------* 
*  -->  p1        text 
*  <--  p2        text 
*----------------------------------------------------------------------* 
form. f_set_layo . 
  w_layo-zebra                  = cns_x. 
*... Interaction 
  w_layo-box_fieldname          = 'CHK'. 
  w_layo-box_tabname            = str_name1. 
****上面两行是设置CHEKC BOX的 
  w_layo-get_selinfos           = cns_x. 
  w_layo-expand_fieldname       = 'EXPAND'. 
****上面是设置按照那个字段来分层，必须要有，字段要用大写 
  w_layo-expand_all             = cns_x. 
  w_layo-numc_sum = 'X'. 
endform.                    " f_set_layo 
*&---------------------------------------------------------------------* 
*&      Form  f_set_keyinfo 
*&---------------------------------------------------------------------* 
*       text 
*----------------------------------------------------------------------* 
*  -->  p1        text 
*  <--  p2        text 
*----------------------------------------------------------------------* 
form. f_set_keyinfo . 
  if p_matnr is not initial. 
  w_keyinfo-header01 = 'MATNR'. 
  w_keyinfo-item01 = 'MATNR'. 
  else. 
  w_keyinfo-header01 = 'PRDHA'. 
  w_keyinfo-item01 = 'PRDHA'. 
  endif. 
endform.                    " f_set_keyinfo 
*&---------------------------------------------------------------------* 
*&      Form  f_call_alv 
*&---------------------------------------------------------------------* 
*       text 
*----------------------------------------------------------------------* 
*  -->  p1        text 
*  <--  p2        text 
*----------------------------------------------------------------------* 
form. f_call_alv . 
  DATA:it_sort TYPE slis_t_sortinfo_alv. 
  PERFORM. e02_layout_sort_build CHANGING it_sort."分类排序 
  call function 'REUSE_ALV_HIERSEQ_LIST_DISPLAY' 
    exporting 
      i_callback_program             = g_program_name 
      I_CALLBACK_PF_STATUS_SET       = 'F_SET_STATUS' 
      I_CALLBACK_USER_COMMAND        = 'F_USR_COMMAND' 
      is_layout                      = w_layo 
      it_fieldcat                    = i_fcat[] 
      i_default                      = 'X' 
      i_save                         = 'A' 
      IT_SORT                        = it_sort[] 
      is_variant                     = w_vari 
      i_tabname_header               = str_name1  "这个是第一层 
      i_tabname_item                 = str_name2  "这个是第二层 
      is_keyinfo                     = w_keyinfo 
    tables 
      t_outtab_header                =   "这个是第一层 
      t_outtab_item                  =   "这个是第二层 
    exceptions 
      program_error                  = 1 
      others                         = 2. 
  if sy-subrc <> 0. 
    message id sy-msgid type sy-msgty number sy-msgno 
            with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. 
  endif. 
endform.                    " f_call_alv 
FORM. F_USR_COMMAND USING r_ucomm LIKE sy-ucomm 
                  rs_selfield TYPE slis_selfield. 
  CASE r_ucomm. 
    WHEN 'BACK' OR 'UP' OR 'CANCEL'. 
      CLEAR:it_bseg,it_bkpf,it_itemtab1,it_itemtab2,it_headertab1, 
      it_headertab2. 
      LEAVE TO SCREEN 0. 
    WHEN '&PNT'. 
   ENDCASE. 
ENDFORM. 
form. F_SET_STATUS using rt_extab type slis_t_extab. 
  set pf-status 'ZSTANDARD' . 
endform. "Set_pf_status 
*&---------------------------------------------------------------------* 
*&      Form  e02_layout_sort_build 
*&---------------------------------------------------------------------* 
*       text 
*----------------------------------------------------------------------* 
*      <--P_IT_SORT  text 
*----------------------------------------------------------------------* 
FORM. e02_layout_sort_build  CHANGING lt_sort TYPE slis_t_sortinfo_alv. 
DATA ls_sort TYPE slis_sortinfo_alv. 
IF p_matnr IS NOT INITIAL. 
CLEAR ls_sort. 
ls_sort-fieldname = 'MATNR'. "#EC * 
ls_sort-spos = 1. 
ls_sort-up = 'X'. 
ls_sort-subtot = 'X'. 
APPEND ls_sort TO lt_sort. 
ELSE. 
CLEAR ls_sort. 
ls_sort-fieldname = 'PRDHA'. "#EC * 
ls_sort-spos = 1. 
ls_sort-up = 'X'. 
ls_sort-subtot = 'X'. 
APPEND ls_sort TO lt_sort. 
ENDIF. 
ENDFORM.                    " e02_layout_sort_build