abap 固定资产

事务码AS03查看

下划线为视情况使用

anla 资产主记录段（公司代码、主资产号、资产次级编号）

SELECT a~bukrs,a~anln1,a~anln2,a~aktiv,a~anlkl,a~gdlgrp,a~txt50,
         a~txa50,a~lifnr,a~meins,a~menge,a~deakt
    INTO TABLE @DATA(gt_item_anla)
    FROM anla AS a

anlb 折旧期限(公司代码、主资产号、资产次级编号、实际折旧范围、有效日期结束)

1. DEAKT_B 完全报废日期

2.AFABG 折旧计算开始日期

3.AFASL 折旧码 ，折旧规则按照折旧码计算，折旧码描述可从T090NAT获取

SELECT bukrs anln1 anln2 afabe bdatu afabg afasl ndjar ndper afasl deakt_b
      INTO CORRESPONDING FIELDS OF TABLE gt_anlb
      FROM anlb.

anlc 资产值字段 (公司代码、主资产号、资产次级编号、财年、实际折旧范围、资产购置年(目前未被使用)、资产购置的子类(当前未被使用))

1.净值 = kansw + answl +knafa + nafag + nafal + nafav 

2.购入金额 = kansw + answl

SELECT bukrs anln1 anln2 gjahr afabe zujhr zucod kansw knafa nafag answl nafav nafal
    INTO CORRESPONDING FIELDS OF TABLE gt_anlc
    FROM anlc

anlp 资产期间价值(BUKRS、GJAHR、PERAF(折旧的过账期间)、AFBNR、ANLN1、ANLN2、AFABER(实际折旧范围)、ZUJHR、ZUCOD)

1.nafaz 对应期间的实际折旧金额

SELECT bukrs,gjahr,peraf,afbnr,anln1,anln2,afaber,zujhr,zucod,nafaz
      INTO TABLE @DATA(gt_item_anlp)
      FROM anlp

FAAV_LINEITEMS_S 视图，xvabg_pn(完全报废标志)、bwart(类型，tabw-xaktiv = 'X'为资产化标志。tabw-xdeakt = ’X' 为关闭资产)、slalittype。其它看下图

 

 视图FAAV_LINEITEMS_S需要打补丁才会有，这里正式环境就没有，直接从下面两张表里获取也是一样的。如果不是S4，ACDOCA可以改成BSEG。

* 因正式环境中，视图faav_lineitems_s 没有BELNR，改从 acdoca 和 FAAT_DOC_IT 里面取值
    SELECT rclnt,
           rldnr,
           rbukrs AS bukrs,
           gjahr,
           belnr,
           docln,
           anln1,
           anln2,
           poper,
           anbwa AS bwasl, "购置类型,''对应的hsl为损失部分
           xvabg_pn,
*           belnr,
           afabe,
           slalittype,
           koart,
           racct,
           budat,
           awref,
           aworg,
           hsl
      INTO TABLE @DATA(lt_faavin)
      FROM acdoca
     WHERE rbukrs EQ @p_bukrs
       AND anln1 IN @s_anln1
       AND anln1 NE ''
       AND gjahr LE @p_gjahr
       AND afabe EQ '01'.

    SELECT bukrs,
           anln1,
           anln2,
           gjahr,
           poper,
           bwasl, "购置类型,''对应的hsl为损失部分
           xvabg_pn,
*           belnr,
           afabe,
           slalittype,
*           koart,
*           racct,
           budat,
           awref,
           aworg,
           hsl
      APPENDING CORRESPONDING FIELDS OF TABLE @lt_faavin
      FROM faat_doc_it
     WHERE bukrs EQ @p_bukrs
       AND anln1 IN @s_anln1
       AND gjahr LE @p_gjahr
       AND afabe EQ '01'.

    SELECT bwasl,
           xaktiv, "资产化标志
           xdeakt "关闭固定资产
      INTO TABLE @DATA(lt_tabw)
      FROM tabw.
    SORT lt_tabw[] BY bwasl.