SAP资产明细报表

前两年别人写的，无自定义表字段。。。直接使用：

*&---------------------------------------------------------------------*
*& Report  ZFIR026
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZFIR026.
*&---------------------------------------------------------------------*
*&  包含                ZFIR101_TOP
*&---------------------------------------------------------------------*
TABLES : ANLA,BKPF,KNA1,CSKT, ANLZ,ANLC,ANLB,LFA1,T006A,ANLH,ANEP,T091P,T090NA,ANLP .
TYPE-POOLS:SLIS.
DATA : BEGIN OF GT_OUT OCCURS 0 ,
         BUKRS   TYPE ANLA-BUKRS, "公司代码
         ANLKL   TYPE ANLA-ANLKL,
         TXK50   TYPE ANKT-TXK50,
         ANLN1   TYPE ANLA-ANLN1,
         ANLN2   TYPE ANLA-ANLN2,
         TXT50   TYPE ANLA-TXT50,
         TXA50   TYPE ANLA-TXA50,
         ANLHTXT TYPE ANLH-ANLHTXT,
         INVZU   TYPE ANLA-INVZU,
         RAUMN   TYPE ANLZ-RAUMN,
         SERNR   TYPE ANLA-SERNR,
         AKTIV   TYPE ANLA-AKTIV,
         MENGE   TYPE ANLA-MENGE,
         UNIT    TYPE T006A-MSEHT,
         KOSTL   TYPE ANLZ-KOSTL,
         LTEXT   TYPE CSKT-LTEXT,
         FKBTX   TYPE TFKBT-FKBTX,
         BELNR   TYPE ANEP-BELNR,
         ORD42   TYPE ANLA-ORD42,
         ORD41   TYPE ANLA-ORD41,
         LIFNR   TYPE ANLA-LIFNR,
         LIEFE   TYPE LFA1-NAME1,
         HERST   TYPE ANLA-HERST,
         XZSRZPZ TYPE ANEP-BELNR,   "新增时入账凭证
         SYNX    TYPE ANLB-NDJAR ,  "使用年限（月)
         YTJYF   TYPE ANLA-ORD44 ,  "已计提月份
         ZCYZ    TYPE ANLC-KANSW ,  "资产原值
         LJZJ    TYPE ANLC-KNAFA ,  "累计折旧
         YTJZ    TYPE ANLC-AUFWB ,  "已提减值
         SYYF    TYPE ANLC-KANSW,   "剩余月份
         DQJTJE  TYPE ANLP-NAFAZ ,   "当期计提金额
         ZCJZ    TYPE ANLC-KANSW ,   "资产净值
         CZ      TYPE ANLC-KANSW,   "残值
         XSTIL   TYPE ANLZ-XSTIL,
       END OF GT_OUT .

DATA : GS_OUT LIKE LINE OF GT_OUT .

DATA : GT_ANLA   TYPE TABLE OF ANLA WITH HEADER LINE,
       GS_ANLA   LIKE LINE OF  GT_ANLA,
*       GT_ANLA_T  TYPE TABLE OF ANLA WITH HEADER LINE ,
*       GS_ANLA_S  LIKE LINE OF  GT_ANLA_T ,
       GT_ANLB   TYPE TABLE OF ANLB WITH HEADER LINE,
       GS_ANLB   LIKE LINE OF  GT_ANLB,
       GT_ANLC   TYPE TABLE OF ANLC WITH HEADER LINE,
       GS_ANLC   LIKE LINE OF  GT_ANLC,
       GT_ANLP   TYPE TABLE OF ANLP WITH HEADER LINE,
       GS_ANLP   LIKE LINE OF  GT_ANLP,
       GT_ANKT   TYPE TABLE OF ANKT WITH HEADER LINE,
       GS_ANKT   LIKE LINE OF  GT_ANKT,
       GT_TFKBT  TYPE TABLE OF TFKBT WITH HEADER LINE,
       GS_TFKBT  LIKE LINE OF  GT_TFKBT,
       GT_CSKS   TYPE TABLE OF CSKS WITH HEADER LINE,
       GS_CSKS   LIKE LINE OF  GT_CSKS,
       GT_CSKT   TYPE TABLE OF CSKT WITH HEADER LINE,
       GS_CSKT   LIKE LINE OF  GT_CSKT,
       GT_BKPF   TYPE TABLE OF BKPF WITH HEADER LINE,
       GS_BKPF   LIKE LINE OF  GT_BKPF,
*       GT_BKPF_T  TYPE TABLE OF BKPF WITH HEADER LINE ,
*       GS_BKPF_S  LIKE LINE OF  GT_BKPF_T ,
       GT_LFA1   TYPE TABLE OF LFA1 WITH HEADER LINE,
       GS_LFA1   LIKE LINE OF  GT_LFA1,
       GT_T006A  TYPE TABLE OF T006A WITH HEADER LINE,
       GS_T006A  LIKE LINE OF  GT_T006A,
*       GT_ANLZ_T  TYPE TABLE OF ANLZ WITH HEADER LINE ,
*       GS_ANLZ_S  LIKE LINE OF  GT_ANLZ_T ,
       GT_ANLZ   TYPE TABLE OF ANLZ WITH HEADER LINE,
       GS_ANLZ   LIKE LINE OF  GT_ANLZ,
       GT_ANLH   TYPE TABLE OF ANLH WITH HEADER LINE,
       GS_ANLH   LIKE LINE OF  GT_ANLH,
       GT_ANEP   TYPE TABLE OF ANEP WITH HEADER LINE,
       GS_ANEP   LIKE LINE OF  GT_ANEP,
       GT_T091P  TYPE TABLE OF T091P WITH HEADER LINE,
       GS_T091P  LIKE LINE OF  GT_T091P,
       GT_T090NA TYPE TABLE OF T090NA WITH HEADER LINE,
       GS_T090NA LIKE LINE OF  GT_T090NA.



DATA:GS_FIELDCAT TYPE SLIS_FIELDCAT_ALV,

     GT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,

     GS_LAYOUT   TYPE SLIS_LAYOUT_ALV.

SELECTION-SCREEN BEGIN