*&---------------------------------------------------------------------*

*& Report  ZFIR027

*&

*&---------------------------------------------------------------------*

*&

*&

*&---------------------------------------------------------------------*

REPORT ZFIR027.

type-pools: slis.

tables: anla,

        bkpf,

        anlz.

types: begin of ty_output_line,

         bukrs  type anla-bukrs,

         anlkl  type anla-anlkl,

         lbtxk  type ankt-txk50,

         anln1  type anla-anln1,

         anln2  type anla-anln2,

         mctxk  type anla-txt50,

         aktiv  type anla-aktiv,

         kostl  type anlz-kostl,

         ltext  type cskt-ltext,

         bwasl  type anep-bwasl,

         bwatxt type tabwt-bwatxt,

         belnr  type anep-belnr,

         budat  type bkpf-budat,

         anbtr  type anep-anbtr,

         adatu  type anlz-adatu,

         fbflg  type c,

       end of ty_output_line.

data: wa_output_line type          ty_output_line,

      it_output_itab type table of ty_output_line with header line.

field-symbols: <fs_output_line> type ty_output_line.

types: begin of ty_anla_line,

         bukrs type anla-bukrs,

         anlkl type anla-anlkl,

         anln1 type anla-anln1,

         anln2 type anla-anln2,

         mctxk type anla-txt50,

         aktiv type anla-aktiv,

       end of ty_anla_line.

data: wa_anla_line type          ty_anla_line,

      it_anla_itab type table of ty_anla_line with header line.

types: begin of ty_ankt_line,

         anlkl type ankt-anlkl,

         txk50 type ankt-txa50,

       end of ty_ankt_line.

data: wa_ankt_line type          ty_ankt_line,

      it_ankt_itab type table of ty_ankt_line with header line.

types: begin of ty_cskt_line,

         kostl type cskt-kostl,

         ltext type cskt-ltext,

       end of ty_cskt_line.

data: wa_cskt_line type          ty_cskt_line,

      it_cskt_itab type table of ty_cskt_line with header line.

types: begin of ty_anlz_line,

         bukrs type anlz-bukrs,

         anln1 type anlz-anln1,

         anln2 type anlz-anln2,

         bdatu type anlz-bdatu,

         adatu type anlz-adatu,

         kostl type anlz-kostl,

       end of ty_anlz_line.

data: wa_anlz_line type          ty_anlz_line,

      it_anlz_itab type table of ty_anlz_line with header line.

types: begin of ty_anep_line,

         bukrs type anep-bukrs,

         anln1 type anep-anln1,

         anln2 type anep-anln2,

         gjahr type anep-gjahr,

         bwasl type anep-bwasl,

         belnr type anep-belnr,

         anbtr type anep-anbtr,

         lnsan type anep-lnsan,

       end of ty_anep_line.

data: wa_anep_line type          ty_anep_line,

      it_anep_itab type table of ty_anep_line with header line.

types: begin of ty_tabwt_line,

         bwasl  type tabwt-bwasl,

         bwatxt type tabwt-bwatxt,

       end of ty_tabwt_line.

data: wa_tabwt_line type          ty_tabwt_line,

      it_tabwt_itab type table of ty_tabwt_line with header line.

types: begin of ty_bkpf_line,

         bukrs type bkpf-bukrs,

         belnr type bkpf-belnr,

         gjahr type bkpf-gjahr,

         awkey type bkpf-awkey,

         budat type bkpf-budat,

       end of ty_bkpf_line.

data: wa_bkpf_line type          ty_bkpf_line,

      it_bkpf_itab type table of ty_bkpf_line with header line.

ranges: rs_awkey for bkpf-awkey.

data: col_pos type i.

data: gt_fieldcat type slis_t_fieldcat_alv.

data: gs_layout type slis_layout_alv.

data: control_title type lvc_title.

data: gt_sort type slis_t_sortinfo_alv.

selection-screen begin of block b1 with frame title text-.

select-options: s_bukrs for anla-bukrs.

parameters: p_gjahr type bkpf-gjahr obligatory.

select-options: s_monat for bkpf-monat,

                s_anlkl for anla-anlkl,

                s_anln1 for anla-anln1,

                s_anln2 for anla-anln2,

                s_kostl for anlz-kostl.

*                s_ord41 for anla-ord41.

selection-screen end of block b1.

start-of-selection.

  perform frm_get_data.

end-of-selection.

  perform frm_out_data.

*&---------------------------------------------------------------------*

*&      Form  FRM_GET_DATA

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

*  -->  p1        text

*  <--  p2        text

*----------------------------------------------------------------------*

form frm_get_data .

  data: l_index       type sy-tabix,

        l_index1      type sy-tabix,

        l_begin_datum type sy-datum,

        l_end_datum   type sy-datum.

*按照查询条件读取资产主记录

  select bukrs anlkl anln1 anln2 txt50 as mctxk aktiv into table it_anla_itab from anla

    where bukrs in s_bukrs

      and anln1 in s_anln1

      and anln2 in s_anln2

      and anlkl in s_anlkl.

  if not it_anla_itab[] is initial.

*读取资产分类描述

    select anlkl txk50 into table it_ankt_itab from ankt for all entries in it_anla_itab

      where spras eq sy-langu

        and anlkl eq it_anla_itab-anlkl.

*读取资产分配相关信息

    select bukrs anln1 anln2 bdatu adatu kostl into table it_anlz_itab from anlz for all entries in it_anla_itab

      where bukrs eq it_anla_itab-bukrs

        and anln1 eq it_anla_itab-anln1

        and anln2 eq it_anla_itab-anln2

*        and bdatu >= sy-datum

*        and adatu <= sy-datum

        and kostl in s_kostl.

    sort it_anlz_itab by bukrs anln1 anln2.

*读取资产行项目信息

    select bukrs anln1 anln2 gjahr bwasl belnr anbtr lnsan into table it_anep_itab from anep for all entries in it_anla_itab

      where bukrs eq it_anla_itab-bukrs

        and anln1 eq it_anla_itab-anln1

        and anln2 eq it_anla_itab-anln2

        and gjahr eq p_gjahr

        and afabe eq ''.

    sort it_anep_itab by bukrs anln1 anln2.

  endif.

  if not it_anlz_itab[] is initial.

*读取成本中心描述

    select kostl ltext into table it_cskt_itab from cskt for all entries in it_anlz_itab

      where spras eq sy-langu

        and kostl eq it_anlz_itab-kostl.

  endif.

  if not it_anep_itab[] is initial.

    loop at it_anep_itab.

      clear rs_awkey.

      rs_awkey-sign = 'I'.

      rs_awkey-option = 'CP'.

      concatenate it_anep_itab-belnr '*' into rs_awkey-low.

      append rs_awkey.

    endloop.

*读取资产处理类型文本

    select bwasl bwatxt into table it_tabwt_itab from tabwt for all entries in it_anep_itab

      where spras eq sy-langu

        and bwasl eq it_anep_itab-bwasl.

*读取会计凭证信息

    select bukrs belnr gjahr awkey budat into table it_bkpf_itab from bkpf for all entries in it_anep_itab

      where bukrs eq it_anep_itab-bukrs

        and gjahr eq it_anep_itab-gjahr

        and awkey in rs_awkey.

*读取会计凭证信息

    select bukrs belnr gjahr awkey budat appending table it_bkpf_itab from bkpf for all entries in it_anep_itab

      where bukrs eq it_anep_itab-bukrs

        and belnr eq it_anep_itab-belnr

        and gjahr eq it_anep_itab-gjahr.

  endif.

*将取出的数据组合ALV数据

  sort it_ankt_itab by anlkl.

  sort it_anlz_itab by bukrs anln1 anln2.

  sort it_cskt_itab by kostl.

  sort it_tabwt_itab by bwasl.

  sort it_bkpf_itab by bukrs gjahr belnr.

  loop at it_anla_itab.

    clear: wa_anep_line, wa_ankt_line, wa_cskt_line, l_index, wa_anlz_line, wa_tabwt_line, it_output_itab.

    it_output_itab-bukrs = it_anla_itab-bukrs.

    it_output_itab-anlkl = it_anla_itab-anlkl.

    read table it_ankt_itab into wa_ankt_line with key anlkl = it_anla_itab-anlkl binary search.

    it_output_itab-lbtxk = wa_ankt_line-txk50.

    it_output_itab-anln1 = it_anla_itab-anln1.

    it_output_itab-anln2 = it_anla_itab-anln2.

    it_output_itab-mctxk = it_anla_itab-mctxk.

    it_output_itab-aktiv = it_anla_itab-aktiv.

    clear l_index1.

    read table it_anlz_itab into wa_anlz_line with key bukrs = it_anla_itab-bukrs

                                                       anln1 = it_anla_itab-anln1

                                                       anln2 = it_anla_itab-anln2 binary search.

    if sy-subrc eq .

      l_index1 = sy-tabix.

    else.

      continue.

    endif.

    loop at it_anlz_itab into wa_anlz_line from l_index1.

      if wa_anlz_line-bukrs ne it_anla_itab-bukrs or

         wa_anlz_line-anln1 ne it_anla_itab-anln1 or

         wa_anlz_line-anln2 ne it_anla_itab-anln2.

        exit.

      endif.

      clear: it_output_itab-kostl, it_output_itab-adatu, l_index.

      it_output_itab-kostl = wa_anlz_line-kostl.

      it_output_itab-adatu = wa_anlz_line-adatu.

      read table it_cskt_itab into wa_cskt_line with key kostl = wa_anlz_line-kostl binary search.

      it_output_itab-ltext = wa_cskt_line-ltext.

      read table it_anep_itab into wa_anep_line with key bukrs = it_anla_itab-bukrs

                                                         anln1 = it_anla_itab-anln1

                                                         anln2 = it_anla_itab-anln2.

      if sy-subrc ne .

        continue.

      else.

        l_index = sy-tabix.

        loop at it_anep_itab into wa_anep_line from l_index.

          if wa_anep_line-bukrs ne it_anla_itab-bukrs or

             wa_anep_line-anln1 ne it_anla_itab-anln1 or

             wa_anep_line-anln2 ne it_anla_itab-anln2.

            exit.

          endif.

          clear: it_output_itab-bwasl, it_output_itab-bwatxt, it_output_itab-belnr,

                 it_output_itab-budat, it_output_itab-anbtr, it_output_itab-fbflg.

          it_output_itab-bwasl = wa_anep_line-bwasl.

          read table it_tabwt_itab into wa_tabwt_line with key bwasl = wa_anep_line-bwasl binary search.

          it_output_itab-bwatxt = wa_tabwt_line-bwatxt.

          read table it_bkpf_itab into wa_bkpf_line with key bukrs = wa_anep_line-bukrs

                                                             gjahr = wa_anep_line-gjahr

                                                             awkey() = wa_anep_line-belnr binary search.

          if sy-subrc eq .

            it_output_itab-belnr = wa_bkpf_line-belnr.

          else.

            it_output_itab-belnr = wa_anep_line-belnr.

            read table it_bkpf_itab into wa_bkpf_line with key bukrs = wa_anep_line-bukrs

                                                               gjahr = wa_anep_line-gjahr

                                                               belnr = wa_anep_line-belnr binary search.

          endif.

          if not s_monat is initial.

            if not wa_bkpf_line-budat+() in s_monat.

              continue.

            endif.

          endif.

          it_output_itab-budat = wa_bkpf_line-budat.

          it_output_itab-anbtr = wa_anep_line-anbtr.

          if not wa_anep_line-lnsan is initial.

            it_output_itab-fbflg = 'X'.

          endif.

          append it_output_itab.

        endloop.

      endif.

    endloop.

  endloop.

endform.                    " FRM_GET_DATA

*&---------------------------------------------------------------------*

*&      Form  FRM_OUT_DATA

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

*  -->  p1        text

*  <--  p2        text

*----------------------------------------------------------------------*

form frm_out_data .

*ALV数据输出

  gs_layout-colwidth_optimize = 'X'.

  gs_layout-zebra = 'X'.

  perform frm_e01_fieldcat_init using :

          'BUKRS'     '公司代码'            '' '' 'X' '' '' '' '' '' '' '' '',

          'ANLKL'     '资产类别'            '' '' 'X' '' '' '' '' '' '' '' '',

          'LBTXK'     '资产类别名称'        '' '' 'X' '' '' '' '' '' '' '' '',

          'ANLN1'     '资产编号'            '' '' 'X' '' '' '' '' '' '' '' '',

          'ANLN2'     '资产次级编号'        '' '' 'X' '' '' '' '' '' '' '' '',

          'MCTXK'     '资产名称'            '' '' '' '' '' '' '' '' '' '' '',

          'AKTIV'     '资本化日期'          '' '' '' '' '' '' '' '' '' '' '',

          'KOSTL'     '成本中心'            '' '' '' '' '' '' '' '' '' '' '',

          'LTEXT'     '成本中心描述'        '' '' '' '' '' '' '' '' '' '' '',

          'ADATU'     '调拨日期'            '' '' '' '' '' '' '' '' '' '' '',

          'BWASL'     '业务类型'            '' '' '' '' '' '' '' '' '' '' '',

          'BWATXT'    '业务类型描述'        '' '' '' '' '' '' '' '' '' '' '',

          'BELNR'     '凭证编号'            '' '' '' '' '' '' '' '' '' '' '',

          'BUDAT'     '过账日期'            '' '' '' '' '' '' '' '' '' '' '',

          'ANBTR'     '记账金额'            '' '' '' '' '' '' '' '' '' '' '',

          'FBFLG'     '冲销'                '' '' '' '' '' '' '' '' '' '' ''.

  call function 'REUSE_ALV_GRID_DISPLAY'

    exporting

      i_callback_program = sy-cprog

      it_fieldcat        = gt_fieldcat[]

      is_layout          = gs_layout

      i_save             = 'X'

    tables

      t_outtab           = it_output_itab.

endform.                    " FRM_OUT_DATA

*&--------------------------------------------------------------------*

*&      Form  FRM_E01_FIELDCAT_INIT

*&--------------------------------------------------------------------*

*       text

*---------------------------------------------------------------------*

*      -->FIELD_NAME text

*      -->FIELD_TEXT text

*      -->FIELD_LENTHtext

*      -->FIELD_EDIT text

*      -->FIELD_TYPE text

*      -->FIELD_KEY  text

*      -->FIELD_HOTSPtext

*      -->FIELD_CHECKtext

*      -->FIELD_NO_ZEtext

*      -->FIELD_REF_TtextME

*      -->FIELD_EMPHAtext

*---------------------------------------------------------------------*

form frm_e01_fieldcat_init using

           field_name      type c

           field_text      type c

           field_lenth     type i

           field_edit      type c

           field_type      type c

           field_key       type c

           field_hotspot        type c

           field_checkbox  type c

           field_no_zero  type c

           field_ref_tabname type c

           field_emphasize type c           "change cell backgorund color

           field_decimals_out type c

           field_do_sum type c

           field_no_out type c.

  data: ls_fieldcat type slis_fieldcat_alv.

  clear ls_fieldcat.

  col_pos = col_pos + .

*  LS_FIELDCAT-COL_POS = COL_POS.

  ls_fieldcat-fieldname = field_name.

  ls_fieldcat-seltext_l = field_text.

  ls_fieldcat-seltext_m = field_text.

  ls_fieldcat-seltext_s = field_text.

  ls_fieldcat-checkbox  = field_checkbox.

  ls_fieldcat-round = .

  ls_fieldcat-edit = field_edit.

  if field_type = 'Q'.

    ls_fieldcat-just = 'R'.

    ls_fieldcat-datatype = 'QUAN'.

  else.

    ls_fieldcat-just = 'L'.

  endif.

  ls_fieldcat-key  = field_key.

  ls_fieldcat-hotspot = field_hotspot .

  ls_fieldcat-outputlen = field_lenth.

  ls_fieldcat-no_zero = field_no_zero.

  ls_fieldcat-emphasize = field_emphasize .

  ls_fieldcat-ref_tabname = field_ref_tabname.

  ls_fieldcat-decimals_out = field_decimals_out.

  ls_fieldcat-do_sum = field_do_sum.

  ls_fieldcat-no_out = field_no_out.

  append ls_fieldcat to gt_fieldcat.

*COLOR

endform.                    " frm_e01_fieldcat_init