固定资产折旧报表

* Define SCREEN
************************************************************************
*----------------------------------------------------------------------
CALL FUNCTION 'LAST_DAY_OF_MONTHS'
EXPORTING
DAY_IN = GDF_DATA1
IMPORTING
LAST_DAY_OF_MONTH = GDF_DATA2.
PERFORM SUB_GET_DATA.
PERFORM SUB_ALV_DISPLAY.
PERFORM SUB_CLEAR.
END-OF-SELECTION.
************************************************************************
* Form sub_get_data
DATA: GTD_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
GTH_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
DATA: GTH_LAYOUT TYPE SLIS_LAYOUT_ALV.
************************************************************************
* SELECTION-SCREEN
*----------------------------------------------------------------------
SELECTION-SCREEN BEGIN OF BLOCK C1 WITH FRAME TITLE TEXT-002.
*DATA: GDF_SPMON LIKE S031-SPMON.
DATA: GDF_DATA1 LIKE SY-DATUM.
DATA: GDF_DATA2 LIKE SY-DATUM.
************************************************************************
SELECT-OPTIONS:
S_ANLN1 FOR ANLA-ANLN1,
S_INVNR FOR ANLA-INVNR, "旧物料号
S_KOSTL FOR ANLZ-KOSTL , " 成本中心
NAFAZ LIKE ANLP-NAFAZ ,"本月计提
NAFAV LIKE ANEA-NAFAV, "折旧调整 add by yexin 2011 5 .3
LJZJ LIKE ANLP-NAFAG ,"总累计折旧
NDJAR LIKE ANLB-NDJAR, "计划使用年年
************************************************************************
DATA: GTD_AS TYPE TABLE OF TYP_AS WITH DEFAULT KEY WITH HEADER LINE.
DATA: GTD_AS01 TYPE TABLE OF TYP_AS WITH DEFAULT KEY WITH HEADER LINE.
ZUJHR LIKE ANLA-ZUJHR, "购置年度
ZUPER LIKE ANLA-ZUPER, "购置月份
KOSTL LIKE ANLZ-KOSTL ," 成本中心
KANSW LIKE ANLC-KANSW , "往年购置价
ANSWL LIKE ANLC-ANSWL , "本年购置价
DATA: BEGIN OF GTD_TEMP1 OCCURS 0,
GJAHR LIKE ANLC-GJAHR,
AFABE LIKE ANLC-AFABE,
KANSW LIKE ANLC-KANSW , "往年购置价
ANSWL LIKE ANLC-ANSWL , "本年购置价
GZJG LIKE ANLC-KANSW , "购置价格
KNAFA LIKE ANLC-KNAFA , " 至上年底累计折旧
GJAHR LIKE ANLP-GJAHR , "年度
PERAF LIKE ANLP-PERAF , "折旧计算期
NAFAG LIKE ANLP-NAFAG ,"本年累计折旧
SELECTION-SCREEN SKIP 1.
PARAMETERS: P_BUKRS LIKE ANLA-BUKRS OBLIGATORY,
P_GJAHR LIKE ANLP-GJAHR OBLIGATORY , "年度
P_PERAF LIKE ANLP-PERAF OBLIGATORY . "折旧计算期
DATA: GTD_AS02 TYPE TABLE OF TYP_AS WITH DEFAULT KEY WITH HEADER LINE.
DATA: GTD_AS03 TYPE TABLE OF TYP_AS WITH DEFAULT KEY WITH HEADER LINE.
*DATA: BEGIN OF GTD_AS04 OCCURS 0.
* ANLA~INVZU "库存地点
* ANLA~INVNR "旧物料号
* ANLA~TXT50 "资产描述
* ANLA~SERNR " 规格号
*
* ANLZ~KOSTL " 成本中心
*
* ANLC~KANSW "往年购置价
* ANLC~ANSWL "本年购置价
* FROM ANLA
* JOIN ANLC ON ANLA~BUKRS = ANLC~BUKRS AND ANLA~ANLN1 = ANLC~ANLN1
* JOIN ANLP ON ANLA~BUKRS = ANLP~BUKRS AND ANLA~ANLN1 = ANLP~ANLN1
INVZU LIKE ANLA-INVZU, "库存地点
INVNR LIKE ANLA-INVNR, "旧物料号
TXT50 LIKE ANLA-TXT50, "资产描述
SERNR LIKE ANLA-SERNR, " 规格号
DEAKT LIKE ANLA-DEAKT,"
NDPER LIKE ANLB-NDPER," 计划使用期间
CZJZ LIKE ANLC-KANSW, "残值价值
CZL LIKE ANLC-KANSW, "残值率
JZ LIKE ANLC-KANSW, "净值
KTZJ LIKE ANLC-KANSW, "可提折旧
* ANLC~KNAFA " 至上年底累计折旧
*
* ANLP~GJAHR "年度
* ANLP~PERAF "折旧计算期
* ANLP~NAFAG "本年累计折旧
* ANLP~NAFAZ "本月计提
* INTO CORRESPONDING FIELDS OF TABLE GTD_AS
REPORT ZFIR028.
TYPE-POOLS: SLIS.
TABLES: ANLA,ANLC,ANLP,ANLZ,T087T,ANLB.
DATA: GTD_TITLE TYPE SLIS_T_LISTHEADER,
GTH_TITLE TYPE SLIS_LISTHEADER.
* Define TYPES
************************************************************************
*结果内表
TYPES: BEGIN OF TYP_AS,
BUKRS LIKE ANLA-BUKRS,
ANLN1 LIKE ANLA-ANLN1,
* INNER JOIN ANLZ ON ANLA~BUKRS = ANLZ~BUKRS AND ANLA~ANLN1 = ANLZ~ANLN1
* WHERE ANLP~GJAHR = P_GJAHR
* AND ANLA~BUKRS = P_BUKRS
* INCLUDE STRUCTURE ANLP.
*DATA: END OF GTD_AS04.
*DATA: GTD_AS04 TYPE TABLE OF TYP_AS WITH DEFAULT KEY WITH HEADER LINE. " add new 2011 5.5
GJAHR LIKE ANLP-GJAHR ,
PERAF LIKE ANLP-PERAF,
END OF GTD_TEMP.
DATA: P_GJAHR1 LIKE ANLP-GJAHR , "年度
P_PERAF1 LIKE ANLP-PERAF . "折旧计算期
KNAFA LIKE ANLC-KNAFA , " 至上年底累计折旧
END OF GTD_TEMP1.
DATA :BEGIN OF GTD_TEMP OCCURS 0,
NAFAG LIKE ANLP-NAFAG ,