ZFI012 ZFI013

Dear 丶 2022-09-10 14:18 17阅读 0赞

REPORT zfi012 .  
"TYPE-POOLS: alis.

\*&---------------------------------------------------------------------\*  
\*& TABLES  
\*&---------------------------------------------------------------------\*

TABLES: acdoca, anla, ankt, t001 ,bseg.  
DATA: gw\_layout TYPE lvc\_s\_layo,  
      gw\_fcat   TYPE lvc\_s\_fcat,  
      gt\_fcat   TYPE lvc\_t\_fcat.

\*----------------------------------------------------------------------\*  
\*       定义工作区和内表：  
\*----------------------------------------------------------------------\*

TYPES: BEGIN OF ty\_alv,  
         rbukrs  LIKE acdoca-rbukrs, "公司  
         butxt   LIKE t001-butxt,    "公司代码名称  
         anlkl   LIKE anla-anlkl,    "资产类型  
         txk50   LIKE ankt-txk50,    "资产类型描述  
         anln1   LIKE acdoca-anln1,  "资产编号  
         anln2   LIKE acdoca-anln2,  "资产次级编号  
         txt50   LIKE anla-txt50,    "资产描述  
         deakt   LIKE anla-deakt,    "不活动日期  
         yz      LIKE acdoca-hsl,    "原值  
         dyzj    LIKE acdoca-hsl,    "当月折旧  
         ljzj    LIKE acdoca-hsl,   "累计折旧  
         qmjz    LIKE acdoca-hsl,   "期末账面净值

\*         TXA50   LIKE ANLA-TXA50,  "旧资产编号  
         txa50   LIKE anla-txa50,  "资产补充描述 ADD BY ibmMY AT 20200420  
         aktiv   LIKE anla-aktiv,  "资本化日期  
         afasl   LIKE anlb-afasl,   "折旧码  
         ndjar   LIKE anlb-ndjar,   "计划使用年  
         ndper   LIKE anlb-ndper,   "计划使用月  
         afabg   LIKE anlb-afabg,   "这就开始日  
         kostl   LIKE anlz-kostl,   "成本中心编码  
         ltext   LIKE cskt-ltext,   "成本中心名称  
         syzj    LIKE acdoca-hsl,   "上月普通折旧  
         flag(1),                  "报废标识  
         invnr   LIKE anla-invnr,   "库存注记  
         gdlgrp  LIKE anlz-raumn,  "保管人

\*        GDLGRP LIKE ANLA-GDLGRP,  "保管人

menge   LIKE anla-menge,     " 数量  
         meins   LIKE  anla-meins,    "单位  
         ljzjyf  TYPE  char6,         "累计已折旧月份  
         syzjyf  TYPE char6,                          "剩余折旧月份  
         bnzj    LIKE acdoca-hsl,           "本年折旧

\*&------ 添加序列号、供应商、制造商、贸易伙伴、资产小类、原始资产、执照牌号、内部订单号

sernr   TYPE anla-sernr,    " 序列号  
         liefe   TYPE anla-liefe,    " 供应商  
         herst   TYPE anla-herst,    " 制造商  
         vbund   TYPE anla-vbund,    " 贸易伙伴  
         typbz   TYPE anla-typbz,    " 资产小类  
         aibn1   TYPE anla-aibn1,    " 原始资产  
         kfzkz   TYPE anlz-kfzkz,    " 执照牌号  
         caufn   TYPE anlz-caufn,    " 内部订单号  
         anlhtxt TYPE anlh-anlhtxt,  " 资产主号说明

yz\_nc   TYPE acdoca-hsl,    " 原值-年初          "@Bengin-added by ibmcsh at 20018.09.03  
         bnljzz  TYPE acdoca-hsl,    " 本年累计增值  
         bqzz    TYPE acdoca-hsl,    " 本期增值  
         bnljzg  TYPE acdoca-hsl,    " 本年累计转固  
         bqzg    TYPE acdoca-hsl,    " 本期转固           "@End-added by ibmcsh at 2018.09.03

\*--------------------------------------------------------------------\*  
\*ADD BY ibmMY AT 20200420  
         zzwxe   TYPE ekko-rlwrt,  "总维修额  
         zdywxe  TYPE ekko-rlwrt,  "当月维修额  
         zcz     TYPE anlb-schrw,  "残值  
         zczl    TYPE t091t-anhtxt, "残值率  
\*END BY ibmMY AT 20200420  
\*--------------------------------------------------------------------\*

END OF ty\_alv.

DATA: BEGIN OF wa\_acdoca,  
        rbukrs      LIKE acdoca-rbukrs,  
        butxt       LIKE t001-butxt,  
        anlkl       LIKE anla-anlkl,  
        txk50       LIKE ankt-txk50,  
        anln1       LIKE acdoca-anln1,  
        anln2       LIKE acdoca-anln2,  
        txt50       LIKE anla-txt50,  
        deakt       LIKE anla-deakt,  
        hsl         LIKE acdoca-hsl,  
        blart       LIKE acdoca-blart,  
        racct       LIKE acdoca-racct,  
        drcrk       LIKE acdoca-drcrk,  
        gjahr       LIKE acdoca-gjahr,  
        depr\_period LIKE acdoca-depr\_period,  
        slalittype  LIKE acdoca-slalittype,  
        vorgn       LIKE acdoca-vorgn,  
        belnr       LIKE acdoca-belnr,  
        poper       LIKE acdoca-poper,  
        budat       LIKE acdoca-budat,

panl1       LIKE acdoca-panl1,                    "@Added by ibmcsh at 2018.09.03  
      END OF wa\_acdoca.

DATA: BEGIN OF wa\_t001,  
        bukrs LIKE t001-bukrs,  
        butxt LIKE t001-butxt,  
      END OF wa\_t001.

DATA: BEGIN OF wa\_cskt,  
        kostl LIKE cskt-kostl,  
        ltext LIKE cskt-ltext,  
      END OF wa\_cskt.

DATA: BEGIN OF wa\_anla,  
        bukrs   LIKE anla-bukrs,  
        anlkl   LIKE anla-anlkl,  
        txk50   LIKE ankt-txk50,  
        anln1   LIKE anla-anln1,  
        anln2   LIKE anla-anln2,  
        txt50   LIKE anla-txt50,  
        deakt   LIKE anla-deakt,  
        txa50   LIKE anla-txa50,  
        aktiv   LIKE anla-aktiv,  
        invnr   LIKE anla-invnr,

\*        gdlgrp LIKE anla-gdlgrp,

gdlgrp  LIKE anlz-raumn,  
        afasl   LIKE anlb-afasl,  
        ndjar   LIKE anlb-ndjar,  
        ndper   LIKE anlb-ndper,  
        afabg   LIKE anlb-afabg,  
        kostl   LIKE anlz-kostl,  
        menge   LIKE anla-menge,     " 数量  
        meins   LIKE  anla-meins,    "单位  
        ltext   LIKE cskt-ltext,

sernr   TYPE anla-sernr,    " 序列号  
        liefe   TYPE anla-liefe,    " 供应商  
        herst   TYPE anla-herst,    " 制造商  
        vbund   TYPE anla-vbund,    " 贸易伙伴  
        typbz   TYPE anla-typbz,    " 资产小类  
        aibn1   TYPE anla-aibn1,    " 原始资产  
        kfzkz   TYPE anlz-kfzkz,    " 执照牌号  
        caufn   TYPE anlz-caufn,    " 内部订单号  
        anlhtxt TYPE anlh-anlhtxt,  " 资产主号说明

END OF wa\_anla.

DATA: BEGIN OF wa\_anlz,  
        bukrs LIKE anlz-bukrs,  
        anln1 LIKE anlz-anln1,  
        anln2 LIKE anlz-anln2,  
        raumn LIKE anlz-raumn,  
        kostl LIKE anlz-kostl,  
        adatu LIKE anlz-adatu,  
        bdatu LIKE anlz-bdatu,

kfzkz TYPE anlz-kfzkz,    " 执照牌号  
        caufn TYPE anlz-caufn,    " 内部订单号  
      END OF wa\_anlz.

DATA: it\_alv TYPE STANDARD TABLE OF ty\_alv,  
      wa\_alv TYPE ty\_alv.

DATA: it\_anlz LIKE wa\_anlz OCCURS 0.

\*DATA: it\_alv LIKE wa\_alv  OCCURS 0.

DATA: it\_acdoca LIKE wa\_acdoca OCCURS 0.  
DATA: wa\_acdoca1 LIKE wa\_acdoca.  
DATA: it\_acdoca1 LIKE wa\_acdoca OCCURS 0.  
DATA: ls\_acdoca LIKE wa\_acdoca OCCURS 0.  
DATA: it\_t001 LIKE wa\_t001 OCCURS 0.  
DATA: it\_cskt LIKE wa\_cskt OCCURS 0.  
DATA: it\_anla LIKE wa\_anla OCCURS 0.

DATA: wa\_butxt       LIKE t001-butxt,  
      i\_deakt        LIKE anla-deakt,  
      i\_deakt1       LIKE anla-deakt,  
      p\_fiscyearper  LIKE acdoca-fiscyearper,  
      p\_fiscyearper1 LIKE acdoca-fiscyearper,  
      p\_gjahr1       LIKE acdoca-gjahr,  
      p\_period1      LIKE acdoca-depr\_period.

"ALV  
DATA: wa\_layo TYPE lvc\_s\_layo.  
DATA: wa\_fcat TYPE lvc\_s\_fcat,  
      it\_fcat TYPE lvc\_t\_fcat.

DATA: s\_belnr TYPE RANGE OF acdoca-belnr WITH HEADER LINE.

DATA: go\_cl\_grid TYPE REF TO cl\_gui\_alv\_grid.

\*----------------------------------------------------------------------\*  
\*       定义选择屏幕：查询条件  
\*----------------------------------------------------------------------\*

SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE TEXT-001.

\*SELECT-OPTIONS: s\_bukrs FOR anla-bukrs OBLIGATORY NO INTERVALS NO-EXTENSION,     "公司代码  
\*                s\_anln1 FOR anla-anln1 OBLIGATORY  NO INTERVALS NO-EXTENSION,    "资产编号  
\*                s\_anln2 FOR anla-anln2 OBLIGATORY,                               "次级编号  
\*                s\_afabe FOR acdoca-afabe OBLIGATORY DEFAULT '01'.                "折旧范围   默认01  
\*                s\_gjahr FOR acdoca-gjahr OBLIGATORY,                                "财年  
\*                s\_depr\_p FOR acdoca-depr\_period OBLIGATORY                          "折旧期间

SELECT-OPTIONS:  
               s\_anlkl  FOR anla-anlkl,    "资产类型,    "资产类型  
               s\_anln1  FOR acdoca-anln1,  
               s\_anln2  FOR acdoca-anln2,  
               s\_afabe  FOR acdoca-afabe OBLIGATORY DEFAULT '01'.

\*            p\_gjahr FOR acdoca-gjahr OBLIGATORY NO-EXTENSION,                                "财年  
\*            p\_period FOR acdoca-depr\_period  OBLIGATORY.                         "折旧期间

PARAMETERS: s\_rbukrs LIKE acdoca-rbukrs DEFAULT '1000',  
              p\_gjahr  LIKE  acdoca-gjahr OBLIGATORY,  
              p\_period LIKE  acdoca-depr\_period OBLIGATORY,  
              p\_monat  LIKE  bseg-h\_monat NO-DISPLAY.  
SELECTION-SCREEN END OF BLOCK blk1.

\*&-----------------------------------------\*  
\* INITIALIZATION/选择屏幕前初始化  
\*&----------------------------------------\*

INITIALIZATION.

\*&-----------------------------------------------------------------\*  
\*& SELECTION-SCREEN OUTPUT/选择屏幕控制  
\*&-----------------------------------------------------------------\*

AT SELECTION-SCREEN OUTPUT.

\*&---在此可以对选择界面输入的条件进行判断

PERFORM frm\_authority\_check.

\*&-----------------------------------------\*  
\* EVENT START OF SELECTION  
\*&-----------------------------------------\*

START-OF-SELECTION.  
  "显示处理状态  
  PERFORM frm\_show\_progress USING TEXT-s01.  
  "主要逻辑处理  
  CLEAR: gt\_fcat\[\],gw\_layout.  
  PERFORM frm\_main\_ibmle CHANGING gt\_fcat  
                                   gw\_layout.

\*  PERFORM get\_data.  
\*  PERFORM PREPARE\_FIELDCAT.  
\*  PERFORM ALV\_DISPLAY.

END-OF-SELECTION.

\*&---------------------------------------------------------------------\*  
\*&      FORM  FRM\_AUTHORITY\_CHECK  
\*&---------------------------------------------------------------------\*  
\*       TEXT  
\*----------------------------------------------------------------------\*  
\*      -->P\_S\_VKBUR\_LOW  TEXT  
\*----------------------------------------------------------------------\*

FORM frm\_authority\_check.  
ENDFORM.

\*&---------------------------------------------------------------------\*  
\*&      FORM  FRM\_SHOW\_PROGRESS  
\*&---------------------------------------------------------------------\*  
\*       TEXT  
\*----------------------------------------------------------------------\*  
\*      -->P\_TEXT\_S01  TEXT  
\*----------------------------------------------------------------------\*

FORM frm\_show\_progress USING pv\_text\_s01.  
  CALL FUNCTION 'SAPGUI\_PROGRESS\_INDICATOR'  
    EXPORTING  
      text = pv\_text\_s01.  
ENDFORM.

\*&---------------------------------------------------------------------\*  
\*&      FORM  FRM\_MAIN\_ibmLE  
\*&---------------------------------------------------------------------\*  
\*       TEXT  
\*----------------------------------------------------------------------\*  
\*      -->P\_GT\_OUTPUT  TEXT  
\*----------------------------------------------------------------------\*

FORM frm\_main\_ibmle CHANGING ct\_fcat LIKE gt\_fcat  
                                cw\_layout LIKE gw\_layout.

DATA: lv\_error TYPE char1,  
        lv\_messe TYPE string.

CLEAR: lv\_error, lv\_messe.  
  "获取展示数据  
  PERFORM frm\_get\_data .

\*  CHANGING ct\_fcat  
\*                                LV\_ERROR  
\*                                LV\_MESSE.

IF lv\_error = 'E'.  
    MESSAGE s000(zfi001) WITH lv\_messe DISPLAY LIKE 'E'.  
    RETURN.  
  ENDIF.

"ALV展示数据  
  PERFORM frm\_display\_alv CHANGING ct\_fcat  
                                    cw\_layout.

ENDFORM.

\*&---------------------------------------------------------------------\*  
\*& FORM FRM\_GET\_DATA  
\*&---------------------------------------------------------------------\*  
\*& TEXT  
\*&---------------------------------------------------------------------\*  
\*      <--P\_LV\_ERROR  TEXT  
\*      <--P\_LV\_MESSE  TEXT  
\*&---------------------------------------------------------------------\*

\*FORM FRM\_GET\_DATA.  
\*  
\*  CONCATENATE P\_GJAHR P\_PERIOD INTO P\_FISCYEARPER.  
\*  CONCATENATE P\_GJAHR P\_PERIOD+1(2) '01' INTO I\_DEAKT.  
\*  IF P\_PERIOD = '001'.  
\*    P\_GJAHR1 = P\_GJAHR - 1.  
\*    P\_PERIOD1 ='012'.  
\*  ENDIF.  
\*  CONCATENATE P\_GJAHR1 P\_PERIOD1 INTO P\_FISCYEARPER1.  
\*  
\*  CLEAR S\_BELNR.  
\*  S\_BELNR-SIGN = 'E'.  
\*  S\_BELNR-OPTION = 'CP'.  
\*  S\_BELNR-LOW = 'B\*'.  
\*  APPEND S\_BELNR.  
\*  
\*  SELECT B~RBUKRS  
\*     B~ANLN1 B~ANLN2 B~HSL B~BLART B~RACCT B~DRCRK B~GJAHR B~DEPR\_PERIOD  
\*    INTO CORRESPONDING FIELDS OF TABLE IT\_ACDOCA  
\*    FROM ACDOCA AS B  
\*   WHERE RBUKRS IN S\_RBUKRS  
\*     AND BELNR IN S\_BELNR  
\*     AND BELNR <> 'B\*'  
\*     AND B~ANLN1 IN S\_ANLN1  
\*     AND B~ANLN1 IS NOT NULL  
\*     AND B~ANLN2 IN S\_ANLN2  
\*     AND ( ( AFABE IN S\_AFABE ) OR ( AFABE = '' ) )  
\*    AND GJAHR IN P\_GJAHR  
\*    AND DEPR\_PERIOD IN P\_PERIOD.  
\*\*     AND FISCYEARPER <= P\_FISCYEARPER.  
\*  
\*  SELECT RBUKRS ANLN1 ANLN2 HSL BLART RACCT DRCRK GJAHR DEPR\_PERIOD  
\*    INTO CORRESPONDING FIELDS OF TABLE IT\_ACDOCA1  
\*    FROM ACDOCA  
\*   WHERE RBUKRS IN S\_RBUKRS  
\*     AND BELNR IN S\_BELNR  
\*     AND BELNR <> 'B\*'  
\*     AND ANLN1 IN S\_ANLN1  
\*     AND ANLN1 IS NOT NULL  
\*     AND ANLN2 IN S\_ANLN2  
\*     AND ( ( AFABE IN S\_AFABE ) OR ( AFABE = '' ) )  
\*     AND GJAHR IN P\_GJAHR  
\*     AND DEPR\_PERIOD IN P\_PERIOD.  
\*\*     AND FISCYEARPER <= P\_FISCYEARPER1.  
\*  
\*  DELETE IT\_ACDOCA WHERE ANLN1 IS INITIAL.  
\*  DELETE IT\_ACDOCA1 WHERE ANLN1 IS INITIAL.  
\*  
\*    SELECT A~ANLKL K~TXK50 A~ANLN1 A~ANLN2 A~TXT50 A~DEAKT A~TXA50 A~AKTIV  
\*           A~INVNR Z~RAUMN B~AFASL B~NDJAR B~NDPER B~AFABG Z~KOSTL S~LTEXT  
\*      INTO TABLE IT\_ANLA  
\*      FROM ANLA AS A INNER JOIN ANKT AS K  
\*        ON A~ANLKL = K~ANLKL  
\*      INNER JOIN ANLB AS B  
\*        ON A~BUKRS = B~BUKRS  
\*       AND A~ANLN1 = B~ANLN1  
\*       AND A~ANLN2 = B~ANLN2  
\*      INNER JOIN ANLZ AS Z  
\*        ON A~BUKRS = Z~BUKRS  
\*       AND A~ANLN1 = Z~ANLN1  
\*       AND A~ANLN2 = Z~ANLN2  
\*      INNER JOIN CSKT AS S  
\*        ON Z~KOSTL = S~KOSTL  
\*       FOR ALL ENTRIES IN IT\_ACDOCA  
\*     WHERE A~BUKRS = IT\_ACDOCA-RBUKRS  
\*       AND A~ANLN1 = IT\_ACDOCA-ANLN1  
\*       AND A~ANLN2 = IT\_ACDOCA-ANLN2  
\*       AND ( ( B~AFABE IN S\_AFABE ) OR ( B~AFABE = '' ) )  
\*       AND K~SPRAS = SY-LANGU  
\*       AND S~SPRAS = SY-LANGU  
\*       AND S~DATBI >= SY-DATUM  
\*       AND A~ANLKL IN S\_ANLKL.  
\*  
\*  IF IT\_ACDOCA IS INITIAL.  
\*    MESSAGE '无选择数据！' TYPE 'E'.  
\*      LEAVE TO SCREEN 0.  
\*  
\*  ELSE.  
\*    SELECT BUKRS BUTXT INTO TABLE IT\_T001  
\*      FROM T001  
\*     WHERE BUKRS IN S\_RBUKRS.  
\*  
\*  
\*   ENDIF.  
\*\*按资产主数据循环  
\*\*LOOP AT it\_anla INTO wa\_anla.  
\*\*  
\*\*  
\*\*      WA\_ALV-ANLKL = WA\_ANLA-ANLKL.  
\*\*      WA\_ALV-TXK50 = WA\_ANLA-TXK50.  
\*\*      WA\_ALV-TXT50 = WA\_ANLA-TXT50.  
\*\*      WA\_ALV-DEAKT = WA\_ANLA-DEAKT.  
\*\*      WA\_ALV-TXA50 = WA\_ANLA-TXA50.  
\*\*      WA\_ALV-AKTIV = WA\_ANLA-AKTIV.  
\*\*      WA\_ALV-INVNR = WA\_ANLA-INVNR.  
\*\*      WA\_ALV-GDLGRP = WA\_ANLA-GDLGRP.  
\*\*      WA\_ALV-AFASL = WA\_ANLA-AFASL.  
\*\*      WA\_ALV-NDJAR = WA\_ANLA-NDJAR.  
\*\*      WA\_ALV-NDPER = WA\_ANLA-NDPER.  
\*\*      WA\_ALV-AFABG = WA\_ANLA-AFABG.  
\*\*      WA\_ALV-KOSTL = WA\_ANLA-KOSTL.  
\*\*      WA\_ALV-LTEXT = WA\_ANLA-LTEXT.  
\*  SORT IT\_ACDOCA BY ANLN1 ASCENDING GJAHR DEPR\_PERIOD DESCENDING.  
\*  LOOP AT IT\_ACDOCA INTO WA\_ACDOCA .  
\*\*    WHERE ANLN1 = WA\_ANLA-ANLN1  
\*\*                                      AND ANLN2 = WA\_ANLA-ANLN1.  
\*  
\*    WA\_ALV-RBUKRS = WA\_ACDOCA-RBUKRS.  
\*    WA\_ALV-ANLN1 = WA\_ACDOCA-ANLN1.  
\*    WA\_ALV-ANLN2 = WA\_ACDOCA-ANLN2.  
\*    READ TABLE IT\_T001 INTO WA\_T001 WITH KEY BUKRS = WA\_ACDOCA-RBUKRS.  
\*    IF SY-SUBRC = 0.  
\*      WA\_ALV-BUTXT = WA\_T001-BUTXT.  
\*    ENDIF.  
\*  
\*    READ TABLE IT\_ANLA INTO WA\_ANLA WITH KEY ANLN1 = WA\_ACDOCA-ANLN1  
\*                                             ANLN2 = WA\_ACDOCA-ANLN1.  
\*    IF SY-SUBRC = 0.  
\*      WA\_ALV-ANLKL = WA\_ANLA-ANLKL.  
\*      WA\_ALV-TXK50 = WA\_ANLA-TXK50.  
\*      WA\_ALV-TXT50 = WA\_ANLA-TXT50.  
\*      WA\_ALV-DEAKT = WA\_ANLA-DEAKT.  
\*      WA\_ALV-TXA50 = WA\_ANLA-TXA50.  
\*      WA\_ALV-AKTIV = WA\_ANLA-AKTIV.  
\*      WA\_ALV-INVNR = WA\_ANLA-INVNR.  
\*      WA\_ALV-GDLGRP = WA\_ANLA-GDLGRP.  
\*      WA\_ALV-AFASL = WA\_ANLA-AFASL.  
\*      WA\_ALV-NDJAR = WA\_ANLA-NDJAR.  
\*      WA\_ALV-NDPER = WA\_ANLA-NDPER.  
\*      WA\_ALV-AFABG = WA\_ANLA-AFABG.  
\*      WA\_ALV-KOSTL = WA\_ANLA-KOSTL.  
\*      WA\_ALV-LTEXT = WA\_ANLA-LTEXT.  
\*    ENDIF.  
\*  
\*    "原值  
\*    IF wa\_acdoca-blart <> 'AF'   AND ( wa\_acdoca-racct+0(4) = '1601'  OR  
\*                                      WA\_ACDOCA-RACCT+0(4) = '1701' OR  
\*                                      WA\_ACDOCA-RACCT+0(4) = '1801').  
\*\*      IF WA\_ACDOCA-DRCRK = 'S'.  
\*      WA\_ALV-YZ = WA\_ACDOCA-HSL.  
\*\*      ELSE.  
\*\*        WA\_ALV-YZ = WA\_ACDOCA-HSL \* ( -1 ).  
\*\*      ENDIF.  
\*      APPEND WA\_ACDOCA TO LS\_ACDOCA.  
\*    ENDIF.  
\*    "当月折旧  
\*    IF wa\_acdoca-blart = 'AF' AND ( wa\_acdoca-racct+0(4) = '1602' OR wa\_acdoca-racct+0(4) = '1702' ) AND  
\*       WA\_ACDOCA-GJAHR = P\_GJAHR-LOW  AND WA\_ACDOCA-DEPR\_PERIOD = P\_PERIOD-LOW .  "p\_gjahr2017 AND wa\_acdoca-depr\_period = p\_period  
\*\*      IF WA\_ACDOCA-DRCRK = 'S'.  
\*\*        WA\_ALV-DYZJ = WA\_ACDOCA-HSL.  
\*\*      ELSE.  
\*      WA\_ALV-DYZJ = WA\_ACDOCA-HSL \* ( -1 ).  
\*\*      ENDIF.  
\*    ENDIF.  
\*    "累计折旧  
\*    IF wa\_acdoca-racct+0(4) = '1602'.  
\*\*      IF WA\_ACDOCA-DRCRK = 'S'.  
\*\*        WA\_ALV-LJZJ = WA\_ACDOCA-HSL.  
\*\*      ELSE.  
\*      WA\_ALV-LJZJ = WA\_ACDOCA-HSL \* ( -1 ).  
\*\*      ENDIF.  
\*    ENDIF.  
\*    "期末账面净值  
\*    wa\_alv-qmjz = wa\_alv-yz - wa\_alv-ljzj.  
\*    "上月折旧  
\*    LOOP AT it\_acdoca1 INTO wa\_acdoca1 WHERE rbukrs = wa\_acdoca-rbukrs  
\*                                          AND ANLN1 = WA\_ACDOCA-ANLN1  
\*                                          AND ANLN2 = WA\_ACDOCA-ANLN2.  
\*      IF WA\_ACDOCA1-BLART = 'AF' AND ( WA\_ACDOCA1-RACCT+0(4) = '1602' OR WA\_ACDOCA1-RACCT+0(4) = '1702' ) AND  
\*         WA\_ACDOCA1-GJAHR = P\_GJAHR-LOW AND WA\_ACDOCA1-DEPR\_PERIOD = P\_PERIOD1 . "2017p\_gjahr  
\*        WA\_ALV-SYZJ = WA\_ACDOCA1-HSL \* ( -1 ).  
\*      ENDIF.  
\*      CLEAR WA\_ACDOCA1.  
\*    ENDLOOP.  
\*    IF WA\_ALV-DEAKT < I\_DEAKT.  
\*      WA\_ALV-FLAG = ''.  
\*    ELSE.  
\*      WA\_ALV-FLAG = 'X'.  
\*    ENDIF.  
\*  
\*COLLECT WA\_ALV INTO IT\_ALV.  
\*    CLEAR WA\_ALV.  
\*  ENDLOOP.  
\*\*  ENDLOOP.  
\*  LOOP AT IT\_ALV INTO WA\_ALV.  
\*    WA\_ALV-QMJZ = WA\_ALV-YZ - WA\_ALV-LJZJ.  
\*    MODIFY IT\_ALV FROM WA\_ALV.  
\*  ENDLOOP.  
\*ENDFORM.

FORM frm\_get\_data.  
  DATA: lv\_month(2) TYPE c.  
  DATA: lv\_period1  LIKE acdoca-depr\_period.  
  DATA: lw\_anla LIKE wa\_anla.

\*  CONCATENATE p\_gjahr p\_period '30' INTO p\_fiscyearper.

CONCATENATE p\_gjahr p\_period+1(2) '30' INTO i\_deakt1.  
  CALL FUNCTION 'LAST\_DAY\_OF\_MONTHS'  
    EXPORTING  
      day\_in            = i\_deakt1     "输入日期  
    IMPORTING  
      last\_day\_of\_month = i\_deakt1           "返回日期：20140131  
    EXCEPTIONS  
      day\_in\_no\_date    = 1  
      OTHERS            = 2.

CONCATENATE p\_gjahr p\_period+1(2) '01' INTO i\_deakt.  
  IF p\_period = '001'.  
    p\_gjahr1 = p\_gjahr - 1.  
    p\_period1 ='012'.  
  ENDIF.

CONCATENATE p\_gjahr1 p\_period1 INTO p\_fiscyearper1.

CLEAR s\_belnr.  
  s\_belnr-sign = 'E'.  
  s\_belnr-option = 'CP'.  
  s\_belnr-low = 'B\*'.  
  APPEND s\_belnr.

SELECT b~rbukrs  
     b~anln1 b~anln2 b~hsl b~blart b~racct b~drcrk b~gjahr b~depr\_period b~slalittype b~vorgn b~belnr b~poper b~budat  
     b~panl1                                                   "@added by ibmcsh at 2018.09.03  
    INTO CORRESPONDING FIELDS OF TABLE it\_acdoca  
    FROM acdoca AS b  
    WHERE rbukrs = s\_rbukrs  
    AND belnr IN s\_belnr

\*     AND belnr NOT LIKE 'B\*'

AND b~anln1 IN s\_anln1  
    AND b~anln1 IS NOT NULL  
    AND b~anln2 IN s\_anln2  
    AND ( ( afabe IN s\_afabe ) OR ( afabe = '' ) )  
    AND b~blart IS NOT NULL.

\*    AND gjahr <= p\_gjahr  
\*    AND POPER <= P\_PERIOD.  
\*     AND FISCYEARPER <= P\_FISCYEARPER.

SELECT rbukrs anln1 anln2 hsl blart racct drcrk gjahr depr\_period  
          panl1                                                 "@added by ibmcsh at 2018.09.03  
     INTO CORRESPONDING FIELDS OF TABLE it\_acdoca1  
     FROM acdoca  
    WHERE rbukrs = s\_rbukrs  
      AND belnr IN s\_belnr

\*     AND belnr NOT like 'B\*'

AND anln1 IN s\_anln1  
      AND anln1 IS NOT NULL  
      AND anln2 IN s\_anln2  
      AND ( ( afabe IN s\_afabe ) OR ( afabe = '' ) )  
      AND blart  IS NOT NULL  
      AND gjahr <= p\_gjahr  
      AND depr\_period <= p\_period.

\*     AND fiscyearper <= p\_fiscyearper1.

DELETE it\_acdoca WHERE anln1 IS INITIAL.  
  DELETE it\_acdoca1 WHERE anln1 IS INITIAL.

SELECT bukrs anln1 anln2 kostl  
      INTO TABLE it\_anlz  
     FROM anlz.

SELECT a~bukrs  
         a~anlkl  
         k~txk50  
         a~anln1  
         a~anln2  
         a~txt50  
         a~deakt  
         a~txa50  
         a~aktiv  
         a~invnr

a~sernr " 序列号  
        a~liefe " 供应商  
        a~herst " 制造商  
        a~vbund " 贸易伙伴  
        a~typbz " 资产小类  
        a~aibn1 " 原始资产

b~afasl  
         b~ndjar  
         b~ndper  
         b~afabg  
         menge  
         meins

c~anlhtxt  " 资产主号说明  
   INTO CORRESPONDING FIELDS OF TABLE it\_anla  
    FROM anla AS a INNER JOIN ankt AS k  
      ON a~anlkl = k~anlkl  
    INNER JOIN anlb AS b  
      ON a~bukrs = b~bukrs  
     AND a~anln1 = b~anln1  
     AND a~anln2 = b~anln2  
    LEFT JOIN anlh AS c ON a~anln1 = c~anln1 AND a~bukrs = c~bukrs

WHERE  
      ( ( b~afabe IN s\_afabe ) OR ( b~afabe = '' ) )  
     AND  
     k~spras = sy-langu  
     AND a~bukrs = s\_rbukrs  
     AND a~anlkl IN s\_anlkl  
     AND a~anln1 IN s\_anln1  
     AND a~anln2 IN s\_anln2

\*     AND a~erdat <= i\_deakt1.

AND a~aktiv <= i\_deakt1.

\*  SELECT a~bukrs a~anlkl k~txk50 a~anln1 a~anln2 a~txt50 a~deakt a~txa50 a~aktiv  
\*         A~INVNR Z~RAUMN B~AFASL B~NDJAR B~NDPER B~AFABG MENGE MEINS  
\*    INTO CORRESPONDING FIELDS OF TABLE IT\_ANLA  
\*    FROM ANLA AS A INNER JOIN ANKT AS K  
\*      ON A~ANLKL = K~ANLKL  
\*    INNER JOIN ANLB AS B  
\*      ON A~BUKRS = B~BUKRS  
\*     AND A~ANLN1 = B~ANLN1  
\*     AND A~ANLN2 = B~ANLN2  
\*    INNER JOIN ANLZ AS Z  
\*      ON A~BUKRS = Z~BUKRS  
\*     AND A~ANLN1 = Z~ANLN1  
\*     AND A~ANLN2 = Z~ANLN2  
\*   WHERE  
\*      ( ( B~AFABE IN S\_AFABE ) OR ( B~AFABE = '' ) )  
\*     AND K~SPRAS = SY-LANGU  
\*     AND A~BUKRS = S\_RBUKRS  
\*     AND A~ANLKL IN S\_ANLKL  
\*     AND A~ANLN1 IN S\_ANLN1  
\*     AND A~ANLN2 IN S\_ANLN2  
\*     AND A~ERDAT <= I\_DEAKT1  
\*     AND Z~BDATU >= I\_DEAKT.

\*整理ANLA不重复的资产，排除调拨的

\*    SELECT a~bukrs a~anlkl k~txk50 a~anln1 a~anln2 a~txt50 a~deakt a~txa50 a~aktiv  
\*           A~INVNR Z~RAUMN B~AFASL B~NDJAR B~NDPER B~AFABG Z~KOSTL S~LTEXT  
\*      INTO TABLE IT\_ANLA  
\*      FROM ANLA AS A INNER JOIN ANKT AS K  
\*        ON A~ANLKL = K~ANLKL  
\*      INNER JOIN ANLB AS B  
\*        ON A~BUKRS = B~BUKRS  
\*       AND A~ANLN1 = B~ANLN1  
\*       AND A~ANLN2 = B~ANLN2  
\*      INNER JOIN ANLZ AS Z  
\*        ON A~BUKRS = Z~BUKRS  
\*       AND A~ANLN1 = Z~ANLN1  
\*       AND A~ANLN2 = Z~ANLN2  
\*      INNER JOIN CSKT AS S  
\*        ON Z~KOSTL = S~KOSTL  
\*       FOR ALL ENTRIES IN IT\_ACDOCA  
\*     WHERE A~BUKRS = IT\_ACDOCA-RBUKRS  
\*       AND A~ANLN1 = IT\_ACDOCA-ANLN1  
\*       AND A~ANLN2 = IT\_ACDOCA-ANLN2  
\*       AND ( ( B~AFABE IN S\_AFABE ) OR ( B~AFABE = '' ) )  
\*       AND K~SPRAS = SY-LANGU  
\*       AND S~SPRAS = SY-LANGU  
\*       AND S~DATBI >= SY-DATUM  
\*       AND A~ANLKL IN S\_ANLKL.

IF it\_anla IS INITIAL.

\*  IF it\_acdoca IS INITIAL.  
\*    MESSAGE '无选择数据！' TYPE 'E'.

MESSAGE '没有符合条件的数据！' TYPE 'S' DISPLAY LIKE 'E'.

\*    LEAVE TO SCREEN 0.

LEAVE LIST-PROCESSING .  
  ELSE.  
    SELECT bukrs butxt INTO TABLE it\_t001  
      FROM t001  
     WHERE bukrs = s\_rbukrs.

SELECT kostl ltext INTO TABLE it\_cskt  
      FROM cskt  
      WHERE spras = sy-langu AND datbi >= sy-datum..

ENDIF.

\*按资产主数据循环

SORT it\_anla BY bukrs anlkl anln1 anln2.  
  CLEAR wa\_anla.  
  LOOP AT it\_anla INTO wa\_anla.  
    CLEAR wa\_alv.

\*    SORT it\_acdoca BY anln1 ASCENDING gjahr depr\_period DESCENDING.

SELECT bukrs  
            anln1  
            anln2  
            raumn  
            kostl  
            adatu  
            bdatu

kfzkz  " 执照牌号  
           caufn  " 内部订单号  
      INTO TABLE it\_anlz  
       FROM anlz AS a  
      WHERE  
          a~bukrs = wa\_anla-bukrs  
      AND a~anln1 = wa\_anla-anln1  
      AND a~anln2 = wa\_anla-anln2.

SORT it\_anlz BY bdatu DESCENDING.  
    LOOP AT it\_anlz INTO wa\_anlz.  
      IF ( wa\_anlz-bdatu+0(4) >= p\_gjahr OR                                        "@Begin-changed by ibmcsh at 2018.08.30  
         ( wa\_anlz-bdatu+0(4) = p\_gjahr AND wa\_anlz-bdatu+4(2) >= p\_period ) ) AND  
         ( wa\_anlz-adatu+0(4) <= p\_gjahr OR  
         ( wa\_anlz-adatu+0(4) = p\_gjahr AND wa\_anlz-adatu+4(2) <= p\_period ) ).     "@End-changed by ibmcsh at 2018.08.30  
        wa\_anla-kostl = wa\_anlz-kostl.  
        wa\_anla-gdlgrp = wa\_anlz-raumn.

wa\_anla-kfzkz = wa\_anlz-kfzkz.   " 执照牌号  
        wa\_anla-caufn = wa\_anlz-caufn.   " 内部订单号  
        EXIT.  
      ELSE.  
        wa\_anla-kostl = wa\_anlz-kostl.  
        wa\_anla-gdlgrp = wa\_anlz-raumn.

\*        WA\_ANLA-KFZKZ = WA\_ANLZ-KFZKZ.   " 执照牌号  
\*        WA\_ANLA-CAUFN = WA\_ANLZ-CAUFN.   " 内部订单号

EXIT.  
      ENDIF.  
    ENDLOOP.  
    CLEAR wa\_acdoca.

SORT it\_acdoca BY anln1 ASCENDING gjahr poper DESCENDING.

\*    READ TABLE it\_acdoca INTO wa\_acdoca WITH KEY anln1 = wa\_anla-anln1  
\*                                          ANLN2 = WA\_ANLA-ANLN2.

CLEAR wa\_acdoca.  
    DATA lv\_tabix TYPE sy-tabix .  
    LOOP AT it\_acdoca INTO wa\_acdoca WHERE anln1 = wa\_anla-anln1  
                                        AND anln2 = wa\_anla-anln2.  
      lv\_tabix =  sy-tabix  .  
      wa\_alv-anlkl = wa\_anla-anlkl.  
      wa\_alv-txk50 = wa\_anla-txk50.  
      wa\_alv-txt50 = wa\_anla-txt50.  
      wa\_alv-deakt = wa\_anla-deakt.  
      wa\_alv-txa50 = wa\_anla-txa50.  
      wa\_alv-aktiv = wa\_anla-aktiv.  
      wa\_alv-invnr = wa\_anla-invnr.  
      wa\_alv-gdlgrp = wa\_anla-gdlgrp.  
      wa\_alv-afasl = wa\_anla-afasl.  
      wa\_alv-ndjar = wa\_anla-ndjar.  
      wa\_alv-ndper = wa\_anla-ndper.  
      wa\_alv-afabg = wa\_anla-afabg.  
      wa\_alv-kostl = wa\_anla-kostl.  
      wa\_alv-ltext = wa\_anla-ltext.  
      wa\_alv-rbukrs = wa\_anla-bukrs.  
      wa\_alv-anln1 = wa\_anla-anln1.  
      wa\_alv-anln2 = wa\_anla-anln2.

wa\_alv-meins = wa\_anla-meins.

\*&------ 添加序列号、供应商、制造商、贸易伙伴、资产小类、原始资产、执照牌号、内部订单号

wa\_alv-sernr = wa\_anla-sernr.        " 序列号  
      wa\_alv-liefe = wa\_anla-liefe.        " 供应商  
      wa\_alv-herst = wa\_anla-herst.        " 制造商  
      wa\_alv-vbund = wa\_anla-vbund.        " 贸易伙伴  
      wa\_alv-typbz = wa\_anla-typbz.        " 资产小类  
      wa\_alv-aibn1 = wa\_anla-aibn1.        " 原始资产  
      wa\_alv-kfzkz = wa\_anla-kfzkz.        " 执照牌号  
      wa\_alv-caufn = wa\_anla-caufn.        " 内部订单号  
      wa\_alv-anlhtxt = wa\_anla-anlhtxt.    " 资产主号说明

lv\_month = sy-datum+0(4) - wa\_anla-afabg+0(4).

\*\*      CALL FUNCTION FIMA\_DAYS\_AND\_MONTHS\_AND\_YEARS  
\*        CALL FUNCTION 'FIMA\_DAYS\_AND\_MONTHS\_AND\_YEARS'  
\*          EXPORTING  
\*            I\_DATE\_FROM = '20160801'    "wa\_anla-afabg  
\*\*           I\_KEY\_DAY\_FROM  =  
\*            I\_DATE\_TO   = '20170801'     "sy-datum  
\*\*I\_KEY\_DAY\_TO        =  
\*\*           I\_FLG\_SEPARATE   = ' '  
\*          IMPORTING  
\*\*           E\_DAYS      =  
\*            E\_MONTHS    = LV\_MONTH.  
\*\*     E\_YEARS              =             .

\*      LV\_MONTH = SY-DATUM+0(4) - WA\_ANLA-AFABG+0(4) .                          "@Begin-noted by ibmcsh at 2018.08.30  
\*      WA\_ALV-LJZJYF = SY-DATUM+4(2) - WA\_ANLA-AFABG+4(2) + LV\_MONTH \* 12 .     "@End-noted by ibmcsh at 2018.08.30

lv\_month = p\_gjahr - wa\_anla-afabg+0(4).                                  "@Begin-added by ibmcsh at 2018.08.30  
      wa\_alv-ljzjyf = p\_period+1(2) - wa\_anla-afabg+4(2) + lv\_month \* 12.

IF wa\_alv-ljzjyf < 0.  
        wa\_alv-ljzjyf = 0.  
      ENDIF.                                                                   "@End-added by ibmcsh at 2018.08.30

\*        wa\_alv-ljzjyf = lv\_month.         "累计已折旧月份  
\*       计划折旧年ANLB-NDJAR\*12+计划折旧月ANLB-NDPER-累计已折旧月份

wa\_alv-syzjyf = wa\_alv-ndjar \* 12 + wa\_alv-ndper - wa\_alv-ljzjyf .                          "剩余折旧月份

\*        bnzj LIKE ACDOCA-HSL,           "本年折旧

READ TABLE it\_t001 INTO wa\_t001 WITH KEY bukrs = wa\_anla-bukrs.  
      IF sy-subrc = 0.  
        wa\_alv-butxt = wa\_t001-butxt.  
      ENDIF.

READ TABLE it\_cskt INTO wa\_cskt WITH KEY kostl = wa\_anla-kostl .

IF sy-subrc = 0.  
        wa\_alv-ltext = wa\_cskt-ltext.  
      ENDIF.

\*    READ TABLE it\_anla INTO wa\_anla WITH KEY anln1 = wa\_acdoca-anln1  
\*                                             ANLN2 = WA\_ACDOCA-ANLN1.  
\*    IF SY-SUBRC = 0.  
\*      WA\_ALV-ANLKL = WA\_ANLA-ANLKL.  
\*      WA\_ALV-TXK50 = WA\_ANLA-TXK50.  
\*      WA\_ALV-TXT50 = WA\_ANLA-TXT50.  
\*      WA\_ALV-DEAKT = WA\_ANLA-DEAKT.  
\*      WA\_ALV-TXA50 = WA\_ANLA-TXA50.  
\*      WA\_ALV-AKTIV = WA\_ANLA-AKTIV.  
\*      WA\_ALV-INVNR = WA\_ANLA-INVNR.  
\*      WA\_ALV-GDLGRP = WA\_ANLA-GDLGRP.  
\*      WA\_ALV-AFASL = WA\_ANLA-AFASL.  
\*      WA\_ALV-NDJAR = WA\_ANLA-NDJAR.  
\*      WA\_ALV-NDPER = WA\_ANLA-NDPER.  
\*      WA\_ALV-AFABG = WA\_ANLA-AFABG.  
\*      WA\_ALV-KOSTL = WA\_ANLA-KOSTL.  
\*      WA\_ALV-LTEXT = WA\_ANLA-LTEXT.  
\*    ENDIF.

"原值

\*        根据主key在ACDOCA表中，取对应资产的固定资产所本位币金额ACDOCA-HSL汇总值,筛选条件如下：  
\*1.取该固定资产选择的财年和折旧期间之前的所有数据；  
\*2.凭证类型ACDOCA-BLART（1）UE凭证类型取且ACDOCA-SLALITTYPE=7000和7040，以及（2）排除AF和UE凭证其他类型的凭证不限制SLALITTYPE字段  
\*3.取出的凭证排除ACDOCA-VORGN=ABGA（资产报废）的凭证  
\*4.凭证编码ACDOCA-BELNR排除B\*开头的凭证。  
\*5.科目号ACDOCA-RACCT限制为1601开头和1701开头和1801的科目；  
\*6.借贷标识ACDOCA-CRDRC为S，显示正数，为H，显示负数；

IF wa\_acdoca-vorgn <> 'ABGA'.  
        IF wa\_acdoca-blart = 'UE'   AND ( wa\_acdoca-slalittype = '7000'  OR  
                                           wa\_acdoca-slalittype = '7040' ).

\*            AND wa\_acdoca-budat < i\_deakt.  
\*      IF WA\_ACDOCA-DRCRK = 'S'.  
\*          IF WA\_ACDOCA-BUDAT+4(2) <= P\_PERIOD AND WA\_ACDOCA-BUDAT+0(4) <= P\_GJAHR.     "@noted by ibmcsh at 2018.09.03

IF ( wa\_acdoca-budat+0(4) = p\_gjahr AND wa\_acdoca-budat+4(2) <= p\_period ) OR  
                wa\_acdoca-budat+0(4) < p\_gjahr.                                          "@added by ibmcsh at 2018.09.03  
            wa\_alv-yz = wa\_acdoca-hsl.  
          ENDIF.

\*      ELSE.  
\*        WA\_ALV-YZ = WA\_ACDOCA-HSL \* ( -1 ).  
\*      ENDIF.

APPEND wa\_acdoca TO ls\_acdoca.  
        ENDIF.

IF wa\_acdoca-blart <> 'AF' AND wa\_acdoca-blart <> 'UE'  
          AND ( wa\_acdoca-racct+0(4) = '1601' OR wa\_acdoca-racct+0(4) = '1604' OR  
                wa\_acdoca-racct+0(4) = '1701' OR wa\_acdoca-racct+0(4) = '1801' OR  
                wa\_acdoca-racct+0(4) = '2401' ).

\*              AND wa\_acdoca-budat < i\_deakt. .  
\*      IF WA\_ACDOCA-DRCRK = 'S'.  
\*            IF  WA\_ACDOCA-BLART = 'AA' AND WA\_ACDOCA-SLALITTYPE = '7999' AND WA\_ACDOCA-DRCRK = 'S'.  
\*            ELSE.  
\*          IF WA\_ACDOCA-BUDAT+4(2) <= P\_PERIOD AND WA\_ACDOCA-BUDAT+0(4) <= P\_GJAHR.     "@noted by ibmcsh at 2018.09.03

\*            ENDIF.  
\*      ELSE.  
\*        WA\_ALV-YZ = WA\_ACDOCA-HSL \* ( -1 ).  
\*      ENDIF.

APPEND wa\_acdoca TO ls\_acdoca.  
        ENDIF.  
      ELSE.  
        IF wa\_acdoca-blart = 'AA'  ."AND wa\_acdoca-budat < i\_deakt..

\*      IF wa\_acdoca-drcrk = 'S'.  
\*            IF  WA\_ACDOCA-BLART = 'AA' AND WA\_ACDOCA-SLALITTYPE = '7999' AND WA\_ACDOCA-DRCRK = 'S'.  
\*            ELSE.

wa\_alv-yz = wa\_acdoca-hsl.

\*            ENDIF.  
\*      ELSE.  
\*        WA\_ALV-YZ = WA\_ACDOCA-HSL \* ( -1 ).  
\*      ENDIF.

APPEND wa\_acdoca TO ls\_acdoca.  
        ENDIF.  
      ENDIF.

\*      "原值-年初                                            "@Begin-added by ibmcsh at 2018.09.03

IF wa\_acdoca-vorgn <> 'ABGA'.  
        IF wa\_acdoca-blart = 'UE'   AND ( wa\_acdoca-slalittype = '7000'  OR  
                                           wa\_acdoca-slalittype = '7040' ).  
          IF wa\_acdoca-budat+0(4) < p\_gjahr.  
            wa\_alv-yz\_nc = wa\_acdoca-hsl.  
          ENDIF.  
          APPEND wa\_acdoca TO ls\_acdoca.  
        ENDIF.  
        IF wa\_acdoca-blart <> 'AF' AND wa\_acdoca-blart <> 'UE'  
          AND ( wa\_acdoca-racct+0(4) = '1601' OR wa\_acdoca-racct+0(4) = '1604' OR  
                wa\_acdoca-racct+0(4) = '1701' OR wa\_acdoca-racct+0(4) = '1801' OR  
                wa\_acdoca-racct+0(4) = '2401' ).

IF wa\_acdoca-budat+0(4) < p\_gjahr.  
            wa\_alv-yz\_nc = wa\_acdoca-hsl.  
          ENDIF.  
          APPEND wa\_acdoca TO ls\_acdoca.  
        ENDIF.  
      ELSE.  
        IF wa\_acdoca-blart = 'AA'  .  
          wa\_alv-yz\_nc = wa\_acdoca-hsl.  
          APPEND wa\_acdoca TO ls\_acdoca.  
        ENDIF.  
      ENDIF.

"本月累计增值  
      IF wa\_acdoca-budat+0(4) = p\_gjahr AND wa\_acdoca-slalittype = '7040'.  
        IF wa\_acdoca-racct+0(4) = '1604'.  
          IF wa\_acdoca-panl1 = '' OR wa\_acdoca-panl1 IS INITIAL.  
            wa\_alv-bnljzz = wa\_acdoca-hsl.  
          ENDIF.  
        ELSE.  
          wa\_alv-bnljzz = wa\_acdoca-hsl.  
        ENDIF.  
      ENDIF.

"本期增值  
      IF wa\_acdoca-budat+0(4) = p\_gjahr AND wa\_acdoca-budat+4(2) = p\_period+1(2) AND  
          wa\_acdoca-slalittype = '7040'.  
        IF wa\_acdoca-racct+0(4) = '1604'.  
          IF wa\_acdoca-panl1 = '' OR wa\_acdoca-panl1 IS INITIAL.  
            wa\_alv-bnljzz = wa\_acdoca-hsl.  
          ENDIF.  
        ELSE.  
          wa\_alv-bnljzz = wa\_acdoca-hsl.  
        ENDIF.  
      ENDIF.

"本年累计转固  
      IF wa\_acdoca-budat+0(4) = p\_gjahr AND wa\_acdoca-panl1 <> '' AND wa\_acdoca-panl1 IS NOT INITIAL AND  
          wa\_acdoca-racct+0(4) = '1604'.  
        wa\_alv-bnljzg = wa\_acdoca-hsl.

ENDIF.

"本期转固  
      IF wa\_acdoca-budat+0(4) = p\_gjahr AND wa\_acdoca-budat+4(2) = p\_period+1(2) AND  
           wa\_acdoca-panl1 <> '' AND wa\_acdoca-panl1 IS NOT INITIAL AND  
           wa\_acdoca-racct+0(4) = '1604'.  
        wa\_alv-bqzg = wa\_acdoca-hsl.  
      ENDIF.

\*                                                            "@End-added by ibmcsh at 2018.09.03

"当月折旧  
      IF wa\_acdoca-blart = 'AF' AND ( wa\_acdoca-racct+0(4) = '1602' OR wa\_acdoca-racct+0(4) = '1702' OR  
                                        wa\_acdoca-racct+0(4) = '1801' OR wa\_acdoca-racct+0(4) = '2401' ) AND  
          wa\_acdoca-gjahr = p\_gjahr  AND wa\_acdoca-poper = p\_period  .  "改折旧期间字段depr\_period 为 POPER"p\_gjahr2017 AND wa\_acdoca-depr\_period = p\_period

\*      IF wa\_acdoca-drcrk = 'S'.  
\*        WA\_ALV-DYZJ = WA\_ACDOCA-HSL.  
\*      ELSE.

wa\_alv-dyzj = wa\_acdoca-hsl \* ( -1 ).

\*      ENDIF.

ENDIF.

"上月折旧  
      lv\_period1 = p\_period - 1.  
      IF wa\_acdoca-blart = 'AF' AND ( wa\_acdoca-racct+0(4) = '1602' OR wa\_acdoca-racct+0(4) = '1702'  OR  
                                       wa\_acdoca-racct+0(4) = '1801' OR wa\_acdoca-racct+0(4) = '2401' ) AND  
          wa\_acdoca-gjahr = p\_gjahr  AND wa\_acdoca-poper = lv\_period1  .  "p\_gjahr2017 AND wa\_acdoca-depr\_period = p\_period

\*      IF wa\_acdoca-drcrk = 'S'.  
\*        WA\_ALV-DYZJ = WA\_ACDOCA-HSL.  
\*      ELSE.

wa\_alv-syzj = wa\_acdoca-hsl \* ( -1 ).

\*      ENDIF.

ENDIF.

"累计折旧

\*取固定资产所本位币金额ACDOCA-HSL汇总值,筛选条件如下：  
\*1.取该固定资产选择的财年和折旧期间之前的所有数据；  
\*2.取凭证类型AF及UE凭证类型，ACDOCA-SLALITTYPE=7205和7005  
\*3.凭证编码ACDOCA-BELNR排除B\*开头的凭证。  
\*4.科目号ACDOCA-RACCT限制为1602，1702及1801字开头的科目；  
\*5.借贷标识ACDOCA-CRDRC为S，显示正数，为H，显示负数；

IF  wa\_acdoca-blart = 'AF'  
             AND ( wa\_acdoca-racct+0(4) = '1602' OR wa\_acdoca-racct+0(4) = '1702'  OR  
                   wa\_acdoca-racct+0(4) = '1801' OR wa\_acdoca-racct+0(4) = '2401' )  
             AND ( wa\_acdoca-slalittype = '7205' OR wa\_acdoca-slalittype = '7005' )  ."AND wa\_acdoca-budat < i\_deakt..

\*      IF wa\_acdoca-drcrk = 'S'.  
\*        WA\_ALV-LJZJ = WA\_ACDOCA-HSL.  
\*      ELSE.  
\*&------ 累计折旧和原值添加过账日期限制

IF wa\_acdoca-budat+4(2) <= p\_period AND wa\_acdoca-budat+0(4) <= p\_gjahr.  
          wa\_alv-ljzj = wa\_acdoca-hsl \* ( -1 ).  
        ENDIF.

\*      ENDIF.

ENDIF.

IF  wa\_acdoca-blart = 'UE'  
              AND ( wa\_acdoca-racct+0(4) = '1602' OR wa\_acdoca-racct+0(4) = '1702'  OR  
                    wa\_acdoca-racct+0(4) = '1801' OR wa\_acdoca-racct+0(4) = '2401' )  
              AND ( wa\_acdoca-slalittype = '7205' OR wa\_acdoca-slalittype = '7005' ) ." AND wa\_acdoca-budat < i\_deakt..

"modify by lxf   2021-05024  
\*        IF wa\_acdoca-budat+4(2) <= p\_period AND wa\_acdoca-budat+0(4) <= p\_gjahr.  
\*          wa\_alv-ljzj = wa\_acdoca-hsl \* ( -1 ).  
\*        ENDIF.  
        IF  wa\_acdoca-budat+0(4) <= p\_gjahr.  
          wa\_alv-ljzj = wa\_acdoca-hsl \* ( -1 ).  
        ENDIF.

ENDIF.  
      "期末账面净值

IF ( wa\_acdoca-racct+0(4) = '1601' OR wa\_acdoca-racct+0(4) = '1602'  OR wa\_acdoca-racct+0(4) = '1701'  
          OR wa\_acdoca-racct+0(4) = '1702' OR wa\_acdoca-racct+0(4) = '1801'  OR wa\_acdoca-racct+0(4) = '2401' ) ." AND wa\_acdoca-budat < i\_deakt..

\*      IF wa\_acdoca-drcrk = 'S'.  
\*        WA\_ALV-DYZJ = WA\_ACDOCA-HSL.  
\*      ELSE.

wa\_alv-qmjz = wa\_acdoca-hsl.

\*      ENDIF.

ENDIF.

\*        wa\_alv-qmjz = wa\_alv-yz - wa\_alv-ljzj.

"上月折旧

\*        LOOP AT it\_acdoca1 INTO wa\_acdoca1 WHERE rbukrs = wa\_acdoca-rbukrs  
\*                                              AND ANLN1 = WA\_ACDOCA-ANLN1  
\*                                              AND ANLN2 = WA\_ACDOCA-ANLN2.  
\*          IF WA\_ACDOCA1-BLART = 'AF' AND ( WA\_ACDOCA1-RACCT+0(4) = '1602' OR WA\_ACDOCA1-RACCT+0(4) = '1702' ) AND  
\*             WA\_ACDOCA1-GJAHR = P\_GJAHR AND WA\_ACDOCA1-DEPR\_PERIOD = LV\_PERIOD1 . "2017p\_gjahr  
\*            WA\_ALV-SYZJ = WA\_ACDOCA1-HSL \* ( -1 ).  
\*          ENDIF.  
\*  
\*          CLEAR WA\_ACDOCA1.  
\*        ENDLOOP.

"本年折旧  
      IF wa\_acdoca-vorgn <> 'ABGA'.  
        IF ( wa\_acdoca-blart = 'AF' OR wa\_acdoca-blart = 'UE') AND wa\_acdoca-slalittype = '7205'  
              AND ( wa\_acdoca-racct+0(4) = '1602' OR wa\_acdoca-racct+0(4) = '1702' OR

\*&------ 添加递延收益科目2401\*

wa\_acdoca-racct+0(4) = '1801' OR wa\_acdoca-racct+0(4) = '2401' )  
              AND wa\_acdoca-gjahr = p\_gjahr . "2017p\_gjahr

\*             IF wa\_acdoca-drcrk = 'S'.  
\*                   WA\_ALV-BNZJ =   WA\_ACDOCA-HSL.  
\*               ELSE.

wa\_alv-bnzj =   wa\_acdoca-hsl \* ( -1 ).

\*            endif.

ENDIF.  
      ENDIF.

\*        IF wa\_alv-deakt < i\_deakt.

IF wa\_alv-deakt = '00000000'.  
        wa\_alv-flag = ''.  
      ELSE.  
        wa\_alv-flag = 'X'.  
      ENDIF.

COLLECT wa\_alv INTO it\_alv.

CLEAR wa\_alv.  
    ENDLOOP.  
    IF sy-subrc <> 0.  
      wa\_alv-anlkl = wa\_anla-anlkl.  
      wa\_alv-txk50 = wa\_anla-txk50.  
      wa\_alv-txt50 = wa\_anla-txt50.  
      wa\_alv-deakt = wa\_anla-deakt.  
      wa\_alv-txa50 = wa\_anla-txa50.  
      wa\_alv-aktiv = wa\_anla-aktiv.  
      wa\_alv-invnr = wa\_anla-invnr.  
      wa\_alv-gdlgrp = wa\_anla-gdlgrp.  
      wa\_alv-afasl = wa\_anla-afasl.  
      wa\_alv-ndjar = wa\_anla-ndjar.  
      wa\_alv-ndper = wa\_anla-ndper.  
      wa\_alv-afabg = wa\_anla-afabg.  
      wa\_alv-kostl = wa\_anla-kostl.  
      wa\_alv-ltext = wa\_anla-ltext.  
      wa\_alv-rbukrs = wa\_anla-bukrs.  
      wa\_alv-anln1 = wa\_anla-anln1.  
      wa\_alv-anln2 = wa\_anla-anln2.

\*      wa\_alv-menge = wa\_anla-menge.

wa\_alv-meins = wa\_anla-meins.

\*&------ 添加序列号、供应商、制造商、贸易伙伴、资产小类、原始资产、执照牌号、内部订单号

READ TABLE it\_t001 INTO wa\_t001 WITH KEY bukrs = wa\_anla-bukrs.  
      IF sy-subrc = 0.  
        wa\_alv-butxt = wa\_t001-butxt.  
      ENDIF.

READ TABLE it\_cskt INTO wa\_cskt WITH KEY kostl = wa\_anla-kostl .

IF sy-subrc = 0.  
        wa\_alv-ltext = wa\_cskt-ltext.  
      ENDIF.

\*      IF wa\_alv-deakt < i\_deakt.

IF wa\_alv-deakt = '00000000'.  
        wa\_alv-flag = ''.

ELSE.  
        wa\_alv-flag = 'X'.  
      ENDIF.  
      wa\_alv-menge = wa\_anla-menge.  
      APPEND wa\_alv TO it\_alv .  
    ENDIF.

ENDLOOP.

\*--------------------------------------------------------------------\*  
\*ADD BY ibmMY AT 20200424  
  SELECT  
    eban~idnlf,  
    SUM( ekpo~netwr ) AS netwr  
    FROM eban  
    INNER JOIN ekpo ON eban~banfn = ekpo~banfn AND  eban~bnfpo = ekpo~bnfpo  
    INNER JOIN @it\_alv AS a ON   substring( eban~idnlf , 1 ,12 ) = a~anln1  
    AND  substring( eban~idnlf , 14 ,4 ) = a~anln2  
\*    WHERE EKKO~BUKRS = @P\_BUKRS  
    GROUP BY eban~idnlf  
    INTO TABLE  @DATA(lt\_zwxe).

p\_monat = p\_period.  
  SELECT  
    eban~idnlf,  
    SUM( ekpo~netwr ) AS netwr  
    FROM eban  
    INNER JOIN ekpo ON eban~banfn = ekpo~banfn AND  eban~bnfpo = ekpo~bnfpo  
    AND substring( ekpo~aedat , 1 ,4 ) = @p\_gjahr  
    AND   substring( ekpo~aedat , 5 ,2 ) = @p\_monat  
    INNER JOIN @it\_alv AS a ON   substring( eban~idnlf , 1 ,12 ) = a~anln1  
    AND  substring( eban~idnlf , 14 ,4 ) = a~anln2  
    GROUP BY eban~idnlf  
    INTO TABLE  @DATA(lt\_zdywxe).  
\*---& 残值 &残值率  
  SELECT  
    anlb~bukrs,  
    anlb~anln1,"（资产编号）  
    anlb~anln2,  
    anlb~schrw,  
    anlb~schrw\_proz,"（残值 %）  
    anlb~afasl,  
    t090na~anhwsl,  
    t091t~anhtxt  
    FROM anlb  
    LEFT JOIN t090na ON anlb~afasl = t090na~afasl  
    LEFT JOIN t091t  ON t090na~anhwsl = t091t~anhwsl AND t091t~spras = '1'  
    INNER JOIN @it\_alv AS a ON   anlb~anln1 = a~anln1  
    AND  anlb~anln2 = a~anln2  
      where bukrs =  @S\_RBUKRS  
    INTO TABLE @DATA(lt\_cz) .

DATA:lv\_zcl1 TYPE char3.  
  DATA:lv\_zcl2 TYPE char10.

\*--------------------------------------------------------------------\*

LOOP AT it\_alv INTO wa\_alv.  
    READ TABLE it\_anla INTO lw\_anla  
                                            WITH  KEY anln1 = wa\_alv-anln1  
                                                     anln2 = wa\_alv-anln2.  
    IF sy-subrc = 0.  
      wa\_alv-menge = lw\_anla-menge.  
    ENDIF.

\*    wa\_alv-qmjz = wa\_alv-yz - wa\_alv-ljzj.

\*--------------------------------------------------------------------\*  
\*ADD BY ibmMY AT 20200429  
\*---& 总维修额  
    IF line\_exists( lt\_zwxe\[ idnlf+0(12) = wa\_alv-anln1 idnlf+13(4) = wa\_alv-anln2 \] ).  
      wa\_alv-zzwxe = lt\_zwxe\[ idnlf+0(12) = wa\_alv-anln1 idnlf+13(4) = wa\_alv-anln2 \]-netwr.  
    ENDIF.  
\*---&当月维修额  
    IF line\_exists( lt\_zdywxe\[ idnlf+0(12) = wa\_alv-anln1 idnlf+13(4) = wa\_alv-anln2 \] ).  
      wa\_alv-zdywxe = lt\_zdywxe\[ idnlf+0(12) = wa\_alv-anln1 idnlf+13(4) = wa\_alv-anln2 \]-netwr.  
    ENDIF.

\*---&ZCZ     TYPE ANLB-SCHRW, "残值  
\*---&ZCZL    TYPE T091T-ANHTXT, "残值率  
    CLEAR: lv\_zcl1 , lv\_zcl2.  
    READ TABLE lt\_cz INTO DATA(ls\_cz) WITH  KEY anln1 = wa\_alv-anln1  
                                                anln2 = wa\_alv-anln2.  
    IF sy-subrc = 0 .  
      IF ls\_cz-schrw IS NOT INITIAL.  
        wa\_alv-zcz = ls\_cz-schrw.  
      ENDIF.  
      IF ls\_cz-schrw\_proz IS NOT INITIAL.  
        wa\_alv-zczl = ls\_cz-schrw\_proz.  
      ELSE.  
        wa\_alv-zczl = ls\_cz-anhtxt.  
        SPLIT wa\_alv-zczl AT '%' INTO lv\_zcl1 lv\_zcl2.  
        CLEAR: wa\_alv-zczl.  
        wa\_alv-zczl = lv\_zcl1.  
      ENDIF.  
    ENDIF.

IF wa\_alv-zcz  IS INITIAL.  
      wa\_alv-zcz = wa\_alv-yz \* wa\_alv-zczl / 100.  
    ENDIF.  
    IF wa\_alv-zczl IS NOT INITIAL.

wa\_alv-zczl = wa\_alv-zczl && '%'.  
    ENDIF.

\*--------------------------------------------------------------------\*  
    MODIFY it\_alv FROM wa\_alv.  
    CLEAR lw\_anla.  
  ENDLOOP.  
ENDFORM.

\*&---------------------------------------------------------------------\*  
\*&      FORM  FRM\_DISPLAY\_ALV  
\*&---------------------------------------------------------------------\*  
\*       TEXT  
\*----------------------------------------------------------------------\*  
\*      -->P\_T\_OUTPUT  TEXT  
\*      -->P\_T\_FCAT  TEXT  
\*      -->P\_PW\_LAYOUT  TEXT  
\*----------------------------------------------------------------------\*

FORM frm\_display\_alv CHANGING ct\_fcat LIKE gt\_fcat  
                               cw\_layout  LIKE gw\_layout.

\*  初始化屏幕设置

PERFORM frm\_init\_layout CHANGING cw\_layout.

\*\*  初始化屏幕字段

PERFORM frm\_init\_fcat CHANGING ct\_fcat.

\*  屏幕数据展示

PERFORM frm\_output .

\*   CHANGING cw\_layout  
\*                               CT\_FCAT.

ENDFORM.

\*&---------------------------------------------------------------------\*  
\*&      FORM  FRM\_INIT\_LAYOUT  
\*&---------------------------------------------------------------------\*  
\*       设置ALV显示风格  
\*----------------------------------------------------------------------\*  
\*  -->  P1        TEXT  
\*  <--  P2        TEXT  
\*----------------------------------------------------------------------\*

FORM frm\_init\_layout CHANGING cw\_layout LIKE gw\_layout.  
  CLEAR cw\_layout.  
  cw\_layout-cwidth\_opt = 'X'.           "优化列宽度，设置此属性后，wa\_fieldcat-OUTPUTLEN不再起作用

\*  cw\_layout-no\_rowmark = ''.           "不显示选择列  
\*  cw\_layout-box\_fname = 'BOX'.          "选择框

cw\_layout-sel\_mode = 'A'.             "选择方式  
  cw\_layout-zebra = 'X'.                "斑马线

\* cw\_layout-stylefname = 'STYLE'.      "风格控制字段

\*  cw\_layout-info\_fname = 'COLOR'.     "行颜色输出

ENDFORM. " FRM\_LAYOUT2

FORM frm\_output.  
  CLEAR: wa\_layo.  
  wa\_layo-zebra = 'X'.  
  wa\_layo-cwidth\_opt = 'X'.  
  CALL FUNCTION 'REUSE\_ALV\_GRID\_DISPLAY\_LVC'  
    EXPORTING  
      i\_callback\_program       = sy-repid  
      i\_callback\_pf\_status\_set = 'FRM\_SET\_STATUS'  
      is\_layout\_lvc            = wa\_layo  
      it\_fieldcat\_lvc          = it\_fcat  
      i\_save                   = 'U'  
      i\_callback\_user\_command  = 'FRM\_USER\_COMMAND'  
    TABLES  
      t\_outtab                 = it\_alv  
    EXCEPTIONS  
      program\_error            = 1  
      OTHERS                   = 2.  
  IF sy-subrc <> 0.  
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno  
    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.  
  ENDIF.  
ENDFORM.

FORM frm\_init\_fcat  
  CHANGING ct\_fcat LIKE gt\_fcat.  
  DATA: lw\_fcat LIKE LINE OF ct\_fcat\[\].  
  PERFORM frm\_add\_fcat USING: 'RBUKRS' 'C' '公司代码' '20'  
         CHANGING ct\_fcat.  
  PERFORM frm\_add\_fcat USING: 'BUTXT' 'C' '公司' '20'  
         CHANGING ct\_fcat.  
  PERFORM frm\_add\_fcat USING: 'ANLKL' 'C' '资产分类' '20'  
         CHANGING ct\_fcat.  
  PERFORM frm\_add\_fcat USING: 'TXK50' 'C' '资产类型描述' '20'  
         CHANGING ct\_fcat.  
  PERFORM frm\_add\_fcat USING: 'ANLN1' 'C' '资产编码' '20'  
         CHANGING ct\_fcat.  
  PERFORM frm\_add\_fcat USING: 'ANLN2' 'C' '资产次级编号' '20'  
         CHANGING ct\_fcat.  
  PERFORM frm\_add\_fcat USING: 'TXT50' 'C' '资产描述' '20'  
         CHANGING ct\_fcat.  
  PERFORM frm\_add\_fcat USING: 'DEAKT' 'D' '不活动日期' '20'  
         CHANGING ct\_fcat.  
  PERFORM frm\_add\_fcat USING: 'YZ' 'P' '原值' '20'  
         CHANGING ct\_fcat.  
  PERFORM frm\_add\_fcat USING: 'SYZJ' 'P' '上月折旧' '20'  
         CHANGING ct\_fcat.  
  PERFORM frm\_add\_fcat USING: 'DYZJ' 'P' '当月折旧' '20'  
         CHANGING ct\_fcat.  
  PERFORM frm\_add\_fcat USING: 'BNZJ' 'P' '本年折旧' '20'  
         CHANGING ct\_fcat.  
  PERFORM frm\_add\_fcat USING: 'LJZJ' 'P' '累计折旧' '20'  
         CHANGING ct\_fcat.  
  PERFORM frm\_add\_fcat USING: 'QMJZ' 'P' '期末账面净值' '20'  
         CHANGING ct\_fcat.

PERFORM frm\_add\_fcat USING: 'YZ\_NC' 'P' '原值(年初)' '20'          "@Bengin-added by ibmcsh at 20018.09.03  
         CHANGING ct\_fcat.  
  PERFORM frm\_add\_fcat USING: 'BNLJZZ' 'P' '本年累计增值' '20'  
         CHANGING ct\_fcat.  
  PERFORM frm\_add\_fcat USING: 'BQZZ' 'P' '本期增值' '20'  
         CHANGING ct\_fcat.  
  PERFORM frm\_add\_fcat USING: 'BNLJZG' 'P' '本年累计转固' '20'  
         CHANGING ct\_fcat.  
  PERFORM frm\_add\_fcat USING: 'BQZG' 'P' '本期转固' '20'           "@End-added by ibmcsh at 2018.09.03  
         CHANGING ct\_fcat.

\*  PERFORM FRM\_ADD\_FCAT USING: 'TXA50' 'C' '旧资产编号' '50'  
  PERFORM frm\_add\_fcat USING: 'TXA50' 'C' '资产补充描述' '50'  "ADD BY ibmMY AT 20200420  
         CHANGING ct\_fcat.  
  PERFORM frm\_add\_fcat USING: 'AKTIV' 'P' '资本化日期' '20'  
         CHANGING ct\_fcat.  
  PERFORM frm\_add\_fcat USING: 'AFASL' 'P' '折旧码' '20'  
         CHANGING ct\_fcat.  
  PERFORM frm\_add\_fcat USING: 'NDJAR' 'P' '计划使用年' '20'  
         CHANGING ct\_fcat.  
  PERFORM frm\_add\_fcat USING: 'NDPER' 'P' '计划使用月' '20'  
         CHANGING ct\_fcat.  
  PERFORM frm\_add\_fcat USING: 'AFABG' 'P' '折旧开始日' '20'  
         CHANGING ct\_fcat.  
  PERFORM frm\_add\_fcat USING: 'LJZJYF' 'P' '累计折旧月份' '20'  
         CHANGING ct\_fcat.  
  PERFORM frm\_add\_fcat USING: 'SYZJYF' 'P' '剩余折旧月份' '20'  
         CHANGING ct\_fcat.  
  PERFORM frm\_add\_fcat USING: 'KOSTL' 'P' '成本中心编码' '20'  
         CHANGING ct\_fcat.  
  PERFORM frm\_add\_fcat USING: 'LTEXT' 'P' '成本中心名称' '20'  
         CHANGING ct\_fcat.

PERFORM frm\_add\_fcat USING: 'FLAG' 'P' '报废标识' '20'  
         CHANGING ct\_fcat.  
\*  PERFORM FRM\_ADD\_FCAT USING: 'INVNR' 'P' '库存注记' '20'  
  PERFORM frm\_add\_fcat USING: 'INVNR' 'P' '旧系统资产编号' '20' "ADD BY ibmMY AT 20200420  
         CHANGING ct\_fcat.  
\*  PERFORM FRM\_ADD\_FCAT USING: 'GDLGRP' 'P' '保管人' '20'  
  PERFORM frm\_add\_fcat USING: 'GDLGRP' 'P' '房间号' '20' "ADD BY ibmMY AT 20200420  
         CHANGING ct\_fcat.  
  PERFORM frm\_add\_fcat USING: 'MENGE' 'N' '数量' '20'  
         CHANGING ct\_fcat.  
  PERFORM frm\_add\_fcat USING: 'MEINS' 'P' '单位' '20'  
         CHANGING ct\_fcat.

\*&------ 添加序列号、供应商、制造商、贸易伙伴、资产小类、原始资产、执照牌号、内部订单号

PERFORM frm\_add\_fcat USING: 'SERNR' 'C' '序列号' '20'  
         CHANGING ct\_fcat.  
  PERFORM frm\_add\_fcat USING: 'LIEFE' 'C' '供应商' '30'  
        CHANGING ct\_fcat.  
  PERFORM frm\_add\_fcat USING: 'HERST' 'C' '制造商' '30'  
        CHANGING ct\_fcat.  
  PERFORM frm\_add\_fcat USING: 'VBUND' 'C' '贸易伙伴' '10'  
        CHANGING ct\_fcat.  
  PERFORM frm\_add\_fcat USING: 'TYPBZ' 'C' '资产小类' '16'  
        CHANGING ct\_fcat.  
  PERFORM frm\_add\_fcat USING: 'AIBN1' 'C' '原始资产' '16'  
        CHANGING ct\_fcat.  
  PERFORM frm\_add\_fcat USING: 'KFZKZ' 'C' '执照牌号' '16'  
        CHANGING ct\_fcat.  
  PERFORM frm\_add\_fcat USING: 'CAUFN' 'C' '内部订单号' '15'  
        CHANGING ct\_fcat.  
  PERFORM frm\_add\_fcat USING: 'ANLHTXT' 'C' '资产主号说明' '50'  
        CHANGING ct\_fcat.

\*--------------------------------------------------------------------\*  
\*ADD BY ibmMY AT 20200429

PERFORM frm\_add\_fcat USING: 'ZZWXE ' 'C' '总维修额'   '50' CHANGING ct\_fcat.  
  PERFORM frm\_add\_fcat USING: 'ZDYWXE' 'C' '当月维修额' '50' CHANGING ct\_fcat.  
  PERFORM frm\_add\_fcat USING: 'ZCZ   ' 'C' '残值'       '50' CHANGING ct\_fcat.  
  PERFORM frm\_add\_fcat USING: 'ZCZL  ' 'C' '残值率'     '50' CHANGING ct\_fcat.

\*--------------------------------------------------------------------\*

ENDFORM.

FORM frm\_add\_fcat USING value1 value2 value3 value4  
       CHANGING  t\_fcat LIKE gt\_fcat.  
  wa\_fcat-fieldname = value1.  
  wa\_fcat-inttype = value2.  
  wa\_fcat-reptext = value3.  
  wa\_fcat-intlen   = value4.  
  wa\_fcat-no\_zero = 'X'.  
  IF value1 = 'ANLN1'.  
    wa\_fcat-emphasize = 'C110'.  
    wa\_fcat-hotspot = 'X'.  
  ENDIF.  
  IF value1 = 'LIEFE' OR value1 = 'HERST' OR value1 = 'VBUND' OR value1 = 'TYPBZ' OR value1 = 'AIBN1'.  
    wa\_fcat-no\_zero = 'X'.  
  ENDIF.  
  APPEND wa\_fcat TO it\_fcat.  
  CLEAR: wa\_fcat.  
ENDFORM.

FORM frm\_set\_status USING rt\_extab TYPE slis\_t\_extab.  
  SET PF-STATUS 'STANDARD\_FULLSCREEN' OF PROGRAM 'SAPLKKBL'.  
ENDFORM. "FRM\_SET\_STATUS

FORM frm\_user\_command USING r\_ucomm LIKE sy-ucomm  
      rs\_selfield TYPE slis\_selfield.

DATA: lv\_value    TYPE spop-varvalue1,  
        lv\_rowlines TYPE i,  
        lv\_result   TYPE c,  
        lv\_valid    TYPE c.  
  DATA ls\_stable TYPE lvc\_s\_stbl.

IF go\_cl\_grid IS INITIAL.  
    CALL FUNCTION 'GET\_GLOBALS\_FROM\_SLVC\_FULLSCR'  
      IMPORTING  
        e\_grid = go\_cl\_grid.  
  ENDIF.

CASE  r\_ucomm.  
    WHEN '&IC1'.  
\*&------ 获取点击的单元格  
      READ TABLE it\_alv INTO wa\_alv INDEX rs\_selfield-tabindex.  
      IF sy-subrc = 0 AND rs\_selfield-fieldname = 'ANLN1' AND wa\_alv-anln1 <> ''.  
        SET PARAMETER ID 'AN1' FIELD wa\_alv-anln1.  
        SET PARAMETER ID 'AN2' FIELD wa\_alv-anln2.  
        SET PARAMETER ID 'BUK' FIELD wa\_alv-rbukrs.  
        CALL TRANSACTION 'AS03' AND SKIP FIRST SCREEN.  
      ENDIF.  
\*--------------------------------------------------------------------\*  
\*---& ADD BY ibmMY AT 20200429

DATA: ltr\_ebeln      TYPE RANGE OF ekko-ebeln.

READ TABLE it\_alv INTO wa\_alv INDEX rs\_selfield-tabindex.  
      IF sy-subrc = 0 AND rs\_selfield-fieldname = 'ZZWXE' AND wa\_alv-anln1 <> ''.  
        SELECT  
         ekpo~ebeln,  
          eban~idnlf  
         FROM eban  
         INNER JOIN ekpo ON eban~banfn = ekpo~banfn AND  eban~bnfpo = ekpo~bnfpo  
         INNER JOIN @it\_alv AS a ON   substring( eban~idnlf , 1 ,12 ) = a~anln1  
         AND  substring( eban~idnlf , 14 ,4 ) = a~anln2  
         INTO TABLE  @DATA(lt\_ebeln).

LOOP AT  lt\_ebeln INTO DATA(ls\_ebeln) WHERE idnlf+0(12) = wa\_alv-anln1  
          AND idnlf+13(4) = wa\_alv-anln1 .  
          APPEND VALUE \#( sign   = 'I'  
                      option = 'EQ'  
                      low = ls\_ebeln-ebeln  
                    ) TO ltr\_ebeln.

ENDLOOP.

SUBMIT rm06em00 WITH s\_ebeln IN ltr\_ebeln  
        AND RETURN.  
      ENDIF.

READ TABLE it\_alv INTO wa\_alv INDEX rs\_selfield-tabindex.  
      IF sy-subrc = 0 AND rs\_selfield-fieldname = 'ZDYWXE' AND wa\_alv-anln1 <> ''.  
        SELECT  
         ekpo~ebeln,  
          eban~idnlf  
         FROM eban  
         INNER JOIN ekpo ON eban~banfn = ekpo~banfn AND  eban~bnfpo = ekpo~bnfpo  
          AND substring( ekpo~aedat , 1 ,4 ) = @p\_gjahr  
         AND   substring( ekpo~aedat , 5 ,2 ) = @p\_monat  
         INNER JOIN @it\_alv AS a ON   substring( eban~idnlf , 1 ,12 ) = a~anln1  
         AND  substring( eban~idnlf , 14 ,4 ) = a~anln2  
         INTO TABLE  @DATA(lt\_ebelns).

LOOP AT  lt\_ebelns INTO DATA(ls\_ebelns) WHERE idnlf+0(12) = wa\_alv-anln1  
          AND idnlf+13(4) = wa\_alv-anln1 .  
          APPEND VALUE \#( sign   = 'I'  
                      option = 'EQ'  
                      low = ls\_ebelns-ebeln  
                    ) TO ltr\_ebeln.

ENDLOOP.  
        SUBMIT rm06em00 WITH s\_ebeln IN ltr\_ebeln  
        AND RETURN.  
      ENDIF.

\*--------------------------------------------------------------------\*

WHEN OTHERS.  
  ENDCASE.

ls\_stable-row ='X'.  
  ls\_stable-col ='X'.  
  CALL METHOD go\_cl\_grid->refresh\_table\_display  
    EXPORTING  
      is\_stable = ls\_stable.

ENDFORM.