原题目:科Wright:SAP新资金会计功能

*&---------------------------------------------------------------------*
*& 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-001.
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 '1'.

    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 0.
      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 0.
        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(10) = wa_anep_line-belnr binary search.
          if sy-subrc eq 0.
            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+4(2) 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'     '公司代码'          04  '' '' 'X' '' '' '' '' '' '0' '' '',
          'ANLKL'     '资产类别'          18  '' '' 'X' '' '' '' '' '' '0' '' '',
          'LBTXK'     '资产类别名称'      20  '' '' 'X' '' '' '' '' '' '0' '' '',
          'ANLN1'     '资产编号'          06  '' '' 'X' '' '' '' '' '' '0' '' '',
          'ANLN2'     '资产次级编号'      10  '' '' 'X' '' '' '' '' '' '0' '' '',
          'MCTXK'     '资产名称'          20  '' '' '' '' '' '' '' '' '0' '' '',
          'AKTIV'     '资本化日期'        20  '' '' '' '' '' '' '' '' '0' '' '',
          'KOSTL'     '成本中心'          10  '' '' '' '' '' '' '' '' '0' '' '',
          'LTEXT'     '成本中心描述'      13  '' '' '' '' '' '' '' '' '0' '' '',
          'ADATU'     '调拨日期'          13  '' '' '' '' '' '' '' '' '0' '' '',
          'BWASL'     '业务类型'          06  '' '' '' '' '' '' '' '' '0' '' '',
          'BWATXT'    '业务类型描述'      10  '' '' '' '' '' '' '' '' '0' '' '',
          'BELNR'     '凭证编号'          20  '' '' '' '' '' '' '' '' '0' '' '',
          'BUDAT'     '过账日期'          20  '' '' '' '' '' '' '' '' '0' '' '',
          'ANBTR'     '记账金额'          10  '' '' '' '' '' '' '' '' '2' '' '',
          'FBFLG'     '冲销'              13  '' '' '' '' '' '' '' '' '0' '' ''.
  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 + 1.
*  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 = 0.
  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

HABA电子游戏,bbin宝盈官网,在新资产会计之前。在新资产会计之前。依据SAP Enhancement Package
7,SAP资金财产会计提供了新成效来治本平行业评比估。在OSS Note
177682第88中学,SAP提出为新客商激活新资金会计。要利用此设计方案,先决条件是应用新GL会计与分类帐方法。在新资金财产会计此前,要管住平行业评比估,必需选取增量折旧范围,因为独有一个折旧范围(01)能够实时过帐到总帐。

在新资产会计之前。在新资产会计之前。在新资产会计之前。在新资产会计之前。在新资产会计之前。 

在新资产会计之前。利用新资金技术方案,将来得以实时将实际值过账到差别的折旧范围。无需增量过帐和增量折旧范围。在下文中,笔者将表达与大家的兑现项目示范相关的配备步骤。

在新资产会计之前。在新资产会计之前。在新资产会计之前。在你真正起初实践新AA在此之前,请先查看与总分类账簿相关的大局设置,极其是分类帐和货币。那将救助您分明资金财产会计中所需的折旧设置。

GNS电子游戏,在新资产会计之前。举例说。如若你的商店代码有五个分类帐,则必须有多少个实时过账的折旧范围。

在新资产会计之前。注 –
这不适用于投资支撑的折旧范围。别的,假诺有二种货币,则每个货币必得有折旧范围。那可保险总帐和本金会计子分类帐之间的生机勃勃致性。

在大家的案例中,大家有:

  • 在新资产会计之前。分类账:

在新资产会计之前。在新资产会计之前。GAAP的大旨分类账 – 0L

ag视讯,国际财务数据准绳的非主导分类账 – NL

  • 其余货币:

在新资产会计之前。集团货币 – IN智跑

在新资产会计之前。硬通货 – 欧元

pt电子游艺,www.4355mg娱乐游戏,在新资产会计之前。在新资产会计之前。除此以外,大家还非得试行投资援救,由此为此创立了附加的折旧范围。还会有二个单独的折旧范围计到所得税折旧。那正是终极的折旧表:

ag视讯 1

在新资产会计之前。现行反革命,即便您无需折旧范围内的投资支撑,则没有必要折旧范围51,59,71和75。
其余,倘使投资帮忙会计不适用于先生原则IFKugaS,则无需折旧范围71和75。

万大器晚成对其张开排序,其他配置安装就可径直进行:

  • 在新资产会计之前。在新资产会计之前。事务职能:激活以下工作成效:

在新资产会计之前。贸易代码 – SFW5

  • mg电子游戏网站,ENTERPRISE_EXTENSIONS – EA-FIN
  • 在新资产会计之前。ENTERPRISE_BUSINESS_FUNCTIONS – FIN_AA_PARALLEL_VAL

ag视讯 2

ag视讯 3

在 SAP IMG元帅激活三个新的不二等秘书技:

ag视讯 4

  • 像往常后生可畏律复制折旧表并定义折旧范围
  • 将各种折旧范围分配给分类帐组。
  • 对于折旧范围60,将折旧范围01定义为帐户鲜明的绸缪折旧范围

ag视讯 5

  • 钦点折旧范围类型:
  • 财力会计(新) – >通常评估 – >折旧范围 – >定义折旧范围 –
    >钦定区域类型

Asset Accounting (New)->General Valuation->Depreciation
Areas->Define Depreciation Areas->Specify Area Type

ag视讯 6

  • 钦赐APC值的传输:

资本会计(新) – >日常评估 – >折旧范围 – >钦点APC值的转移

Asset Accounting (New)->General Valuation->Depreciation
Areas->Specify Transfer of APC Values

在那处,大家定义参照他事他说加以考查折旧范围,为任何折旧范围提供值。
不实时过帐的折旧范围必须从仿照效法折旧范围接管APC和折旧值。

ag视讯 7

  • 点名转移折旧条目
  • 资产会计(新) – >日常评估 – >折旧范围 –
    >钦定折旧条目的转换

Asset Accounting (New)->General Valuation->Depreciation
Areas->Specify Transfer of Depreciation Terms

ag视讯 8

  • 折旧范围货币

资本会计(新) – >日常估价 – >货币 – >定义外国货币的折旧范围

Asset Accounting (New)->General Valuation->Currencies->Define
Depreciation Areas for Foreign Currencies

为厂家代码钦赐折旧范围的钱币。

ag视讯 9

  • 激活新资本会计

开支会计(新) – >新资金会计:准备和激活 –
>检查激活资金财产会计的先决条件(新)

Asset Accounting (New)->New Asset Accounting: Preparation and
Activation->Check Prerequisites for Activating Asset Accounting (New)

ag视讯 10

资金会计(新) – >新基金会计:打算和激活 – >激活资金财产会计(新)

Asset Accounting (New)->New Asset Accounting: Preparation and
Activation->Activate Asset Accounting (New)

ag视讯 11

  • 技能清算帐户
  • 要启用对两样分类帐系统的人机联作过帐,使用技艺清算帐户举办费用收购和投资补助过帐。这是技术指标所必备的,每一次过账后此帐户的余额始终为零。
  • 技艺清算帐户必须是花费的对帐帐户,不能够用于资金财产会计的课程明确(举例,表T095,T095B,T095P)

ag视讯 12

其他配置保持不改变。您能够像往常风姿洒脱律定义资金财产体系,科目分明,折旧键值等。

财力买入过帐的二个例证(未有投资帮助)

ag视讯 13

在差异的分类账中合拢过账:

折旧范围 01 – Ledger 0L-

ag视讯 14

折旧范围 60 – Ledger NL

ag视讯 15

为两笔不相同折旧范围的过账生成分歧的证据

ag视讯 16

ag视讯 17

参照他事他说加以考查文献:

  1. OSS Note 1776828
  2. Release Notes for EHP7
  3. Help.sap.com上的新资金财产会计帮忙

更加多精粹内容,尽在“科Wright”!

ag视讯 18

关于 科莱特

科Wright,国内抢先的IT音信化和网络全部施工方案供应商,在SAP领域有高级知识分子名度,潜心sap本领和辅导。如有要求或难题,款待联系大家!官方网站:www.kelote.com回来乐乎,查看越多

主编: