*&---------------------------------------------------------------------* *& Report zfid010 *& *&---------------------------------------------------------------------* * 程序名称：固定资产目录清册查询报表 * 程序名： zfid010 * 开发日期：2016-12-07 * 创建者： *----------------------------------------------------------------------* * 概要说明 *----------------------------------------------------------------------* * 用于拷贝新建程序 * *----------------------------------------------------------------------* * 变更记录 * 日期 修改者 传输请求号 修改内容及原因 *----------------------------------------------------------------------* * *----------------------------------------------------------------------* REPORT zfid010. ************************************************************************ * TABLES 声明 * ************************************************************************ TABLES:anla,anlz. ************************************************************************ * 类型池声明 * ************************************************************************ TYPE-POOLS: slis. ************************************************************************ * 类型定义 * ************************************************************************ TYPES: BEGIN OF ty_output, "ALV显示结构 sel TYPE c LENGTH 1, "ALV 行选择标识 bukrs TYPE anla-bukrs, "公司代码 anln1 TYPE anla-anln1, "固定资产编号 anlkl TYPE anla-anlkl, "固定资产分类 anln2 TYPE anla-anln2, "固定资产子编号 txt50 TYPE anla-txt50, "固定资产描述 txa50 TYPE anla-txa50, "规则型号 sernr TYPE anla-sernr, "序列号 invnr TYPE anla-invnr, "存货号 menge TYPE anla-menge, "数量 meins TYPE anla-meins, "单位 invzu TYPE anla-invzu, "存放地点 lifnr TYPE anla-lifnr, "供应商 liefe TYPE anla-liefe, "供应商名称 aktiv TYPE anla-aktiv, "资本化日期 deakt TYPE anla-deakt, "报废日期 ord41 TYPE anla-ord41, "资产的处置形式（改） ord42 TYPE anla-ord42, "资产状态（改） herst TYPE anla-herst, "制造商 kostl TYPE anlz-kostl, "成本中心 caufn TYPE anlz-caufn, "内部订单 raumn TYPE anlz-raumn, "固定资产保管人 txk20 TYPE ankt-txk20, "固定资产分类描述 anlhtxt TYPE anlh-anlhtxt, afasl TYPE anlb-afasl, "折旧码 ndjar TYPE anlb-ndjar, "使用年限 ndper TYPE anlb-ndper, "使用期间 afabg TYPE anlb-afabg, "折旧开始日期 ndabj TYPE anlc-ndabj, "已使用年份 ndabp TYPE anlc-ndabp, "已使用月份 gouzhi TYPE anlc-kansw, "购置价值 kansw TYPE anlc-kansw, "运算字段(购置价值) answl TYPE anlc-answl, "运算字段(购置价值) zhejiu TYPE anlc-knafa, "累计折旧金额 nafag TYPE anlc-nafag, "改动 safag TYPE anlc-safag, "改动 aafag TYPE anlc-aafag, "改动 aufwb TYPE anlc-aufwb, "固定资产减值 jingzhi TYPE anlc-knafa, butxt TYPE t001-butxt, "公司代码名称 ltext TYPE cskt-ltext, "成本中心说明 name1 TYPE lfa1-name1, "供应商名称 ordtx TYPE t087t-ordtx, "资产的处置形式描述 ordt2 TYPE t087t-ordtx, "资产状态描述 afblpe TYPE string , "累计已计提月份(不区分财年) ahproz LIKE t091p-ahproz, "净残值率 ahpro LIKE anlc-kansw, "净残值 yuezhejiulv LIKE t091p-ahproz, "月折旧率 yuezhejiue TYPE string, "月折旧额 waers LIKE t001-waers, "币种 txt20 LIKE skat-txt20, "对应折旧科目 ktnafb LIKE t095b-ktnafb, "对应折旧科目编码 afatxt LIKE t090nat-afatxt, "折旧方法 typbz LIKE anla-typbz, "使用部门 erdat LIKE anla-erdat, "录入日期 ktogr LIKE anla-ktogr, "科目定位码 bfqzcyz LIKE acdoca-tsl, "报废前资产原值 bfqljzj LIKE anlc-knafa, "报废前累计折旧 END OF ty_output. TYPES: BEGIN OF ty_anlhtxt, anlhtxt TYPE anlh-anlhtxt, "资产主号文本 bukrs TYPE anlh-bukrs, "公司代码 anln1 TYPE anlh-anln1, "固定资产编号 luntn TYPE anlh-luntn, "固定资产子编号 END OF ty_anlhtxt. TYPES: BEGIN OF ty_anlc, ndabj TYPE anlc-ndabj, "已使用年份 ndabp TYPE anlc-ndabp, "已使用月份 kansw TYPE anlc-kansw, answl TYPE anlc-answl, aufwb TYPE anlc-aufwb, "改动 nafag TYPE anlc-nafag, "改动 safag TYPE anlc-safag, "改动 aafag TYPE anlc-aafag, "改动 bukrs TYPE anlc-bukrs, anln1 TYPE anlc-anln1, anln2 TYPE anlc-anln2, afabe LIKE anlc-afabe, END OF ty_anlc. TYPES: BEGIN OF ty_anlb, afasl TYPE anlb-afasl, "折旧码 ndjar TYPE anlb-ndjar, "使用年限 ndper TYPE anlb-ndper, "使用期间 afabg TYPE anlb-afabg, "折旧开始日期 bukrs TYPE anlb-bukrs, anln1 TYPE anlb-anln1, anln2 TYPE anlb-anln2, schrw_proz LIKE anlb-schrw_proz, END OF ty_anlb. TYPES: BEGIN OF ty_anlb2, afasl TYPE anlb-afasl, "折旧码 ndjar TYPE anlb-ndjar, "使用年限 ndper TYPE anlb-ndper, "使用期间 afabg TYPE anlb-afabg, "折旧开始日期 afabe TYPE anlb-afabe, bdatu TYPE anlb-bdatu, bukrs TYPE anlb-bukrs, anln1 TYPE anlb-anln1, anln2 TYPE anlb-anln2, schrw_proz LIKE anlb-schrw_proz, END OF ty_anlb2. ************************************************************************ * 全局变量声明 * ************************************************************************ DATA: it_output TYPE STANDARD TABLE OF ty_output, wa_output LIKE LINE OF it_output, it_anlhtxt TYPE STANDARD TABLE OF ty_anlhtxt, "资产主号文本内表 wa_anlhtxt LIKE LINE OF it_anlhtxt, it_anlb TYPE STANDARD TABLE OF ty_anlb, wa_anlb LIKE LINE OF it_anlb, it_anlb2 TYPE STANDARD TABLE OF ty_anlb2, wa_anlb2 LIKE LINE OF it_anlb2, it_anlc TYPE STANDARD TABLE OF ty_anlc, wa_anlc LIKE LINE OF it_anlc. DATA: BEGIN OF ls_anlc, bukrs LIKE anlc-bukrs, anln1 LIKE anlc-anln1, gjahr LIKE anlc-gjahr, afabe LIKE anlc-afabe, afblpe LIKE anlc-afblpe, answl LIKE anlc-answl, kansw LIKE anlc-kansw, knafa LIKE anlc-knafa, nafag LIKE anlc-nafag, nafal LIKE anlc-nafal, nafav LIKE anlc-nafav, aufwb LIKE anlc-aufwb, ndabj LIKE anlc-ndabj, ndabp LIKE anlc-ndabp, ksafa LIKE anlc-ksafa, kaafa LIKE anlc-kaafa, safag LIKE anlc-safag, aafag LIKE anlc-aafag, safal LIKE anlc-safal, aafal LIKE anlc-aafal, * nafav LIKE anlc-nafav, safav LIKE anlc-safav, aafav LIKE anlc-aafav, END OF ls_anlc. DATA lt_anlc LIKE TABLE OF ls_anlc. DATA: BEGIN OF ls_anlc2, bukrs LIKE anlc-bukrs, anln1 LIKE anlc-anln1, afabe LIKE anlc-afabe, afblpe TYPE i, END OF ls_anlc2. DATA lt_anlc2 LIKE TABLE OF ls_anlc2. DATA: lt_anlc_coll LIKE TABLE OF ls_anlc2, ls_anlc_coll LIKE ls_anlc2. *---forsmartforms DATA: g_fname TYPE rs38l_fnam, "Smartforms对应的函数变量 g_control TYPE ssfctrlop. "Smartforms对应控制变量 ************************************************************************ * ALV 变量声明 * ************************************************************************ DATA: it_fieldcat TYPE slis_t_fieldcat_alv, "ALV列字段内表 wa_fieldcat TYPE slis_fieldcat_alv, wa_layout TYPE slis_layout_alv , "ALV 布局 it_events TYPE slis_t_event. "ALV事件内表 ************************************************************************ * 常量声明 * ************************************************************************ CONSTANTS: cos_alv_title TYPE tdsfname VALUE \'固定资产目录清单查询报表\', cos_form_name TYPE tdsfname VALUE \'ZFID010\'. ************************************************************************ * 选择屏幕 * ************************************************************************ SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE TEXT-001. *PARAMETER p_bukrs TYPE anla-bukrs OBLIGATORY DEFAULT \'1500\'. "公司代码 SELECT-OPTIONS s_bukrs FOR anla-bukrs OBLIGATORY . SELECT-OPTIONS: s_anlkl FOR anla-anlkl , "资产分类 s_anln1 FOR anla-anln1 , "资产编号 s_kostl FOR anlz-kostl , "成本中心 s_raumn FOR anlz-raumn , "使用人 * s_caufn FOR anlz-caufn , "内部订单 s_aktiv FOR anla-aktiv , "资本化日期 s_deakt FOR anla-deakt , "不活动日期 s_bdatu FOR anlz-bdatu NO INTERVALS NO-EXTENSION DEFAULT \'99991231\'. "资产有效结束日期 SELECTION-SCREEN END OF BLOCK blk1. *----------------------------------------------------------------------* * INITIALIZATION * 程序一执行时触发的事件 *----------------------------------------------------------------------* INITIALIZATION. PERFORM frm_initialization. *----------------------------------------------------------------------* * at selection-screen output * 选择屏幕输出事件，当输出选择屏幕时，会执行该事件后的代码块 * 例如，在该事件中， 可以选择屏幕上的字段作出修改 *----------------------------------------------------------------------* AT SELECTION-SCREEN OUTPUT. PERFORM frm_modify_screen. *----------------------------------------------------------------------* * at selection-screen * 选择屏幕上事件，当输入Enter、点击执行时，会执行该事件后的代码块 *----------------------------------------------------------------------* AT SELECTION-SCREEN. PERFORM frm_check_authority. "权限检查 PERFORM check_company_auth. *----------------------------------------------------------------------* * start-of-selection * 点击执行按钮后触发该事件后的代码块 * 在该事件后主要是对数据的获取与处理等 *----------------------------------------------------------------------* START-OF-SELECTION. PERFORM frm_getdata. *----------------------------------------------------------------------* * end-of-selection * 当执行完对数据处理的事件后，将对数据进行输出显示。 *----------------------------------------------------------------------* END-OF-SELECTION. PERFORM frm_set_alv_event. "设置ALV事件 PERFORM frm_set_alv_layout. "设置ALV布局 PERFORM frm_set_alv_fieldcats. "设置ALV列字段 PERFORM frm_alv_output. "显示ALV PERFORM frm_free_object. "释放全局内表 *&---------------------------------------------------------------------* *& Form FRM_INITIALIZATION *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_initialization . ENDFORM. " FRM_INITIALIZATION *&---------------------------------------------------------------------* *& Form FRM_MODIFY_SCREEN *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_modify_screen . * LOOP AT SCREEN. * IF screen-group1 = \'MD1\'. * screen-input = \'0\'. * MODIFY SCREEN. * ENDIF. * ENDLOOP. ENDFORM. " FRM_MODIFY_SCREEN *&---------------------------------------------------------------------* *& Form FRM_CHECK_AUTHORITY *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_check_authority . ENDFORM. " FRM_CHECK_AUTHORITY *&---------------------------------------------------------------------* *& Form FRM_GETDATA *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM check_company_auth . DATA l_bukrs TYPE bukrs. SELECT SINGLE bukrs INTO l_bukrs FROM t001 WHERE bukrs IN s_bukrs. IF sy-subrc <> 0. MESSAGE \'公司代码不存在\' TYPE \'E\'. ENDIF. * AUTHORITY-CHECK OBJECT \'F_BKPF_BUK\' * ID \'ACTVT\' FIELD \'03\' * ID \'BUKRS\' FIELD l_bukrs. * IF sy-subrc <> 0. * MESSAGE \'您没权限\' TYPE \'E\'. *** You have no authorization for company code & * ENDIF. ENDFORM. " CHECK_COMPANY_AUTH FORM frm_getdata . DATA: BEGIN OF ls_t090na, afapl LIKE t090na-afapl, afasl LIKE t090na-afasl, anhwsl LIKE t090na-anhwsl, * afatxt LIKE t090na-afatxt, END OF ls_t090na. DATA lt_t090na LIKE TABLE OF ls_t090na. DATA: lt_t090nat TYPE TABLE OF t090nat, ls_t090nat TYPE t090nat. DATA: lt_t091p TYPE TABLE OF t091p, ls_t091p TYPE t091p. DATA: lt_t095b TYPE TABLE OF t095b, ls_t095b TYPE t095b. DATA: lt_ska1 TYPE TABLE OF ska1, ls_ska1 TYPE ska1. DATA: lt_skat TYPE TABLE OF skat, ls_skat TYPE skat. DATA: lt_anlp TYPE TABLE OF anlp, lt_anlp2 TYPE TABLE OF anlp, ls_anlp TYPE anlp, ls_anlp2 TYPE anlp. DATA: BEGIN OF ls_acdoca, rldnr LIKE acdoca-rldnr, rbukrs LIKE acdoca-rbukrs, gjahr LIKE acdoca-gjahr, belnr LIKE acdoca-belnr, docln LIKE acdoca-docln, anln1 LIKE acdoca-anln1, anbwa LIKE acdoca-anbwa, slalittype LIKE acdoca-slalittype, tsl LIKE acdoca-tsl, END OF ls_acdoca. DATA lt_acdoca LIKE TABLE OF ls_acdoca. DATA l_tsl LIKE acdoca-tsl . SELECT anla~bukrs "公司代码 anla~anlkl "固定资产分类 anla~anln1 "固定资产编号 anla~anln2 "固定资产子编号 anla~txt50 "固定资产描述 anla~txa50 "规则型号 anla~sernr "序列号 anla~invnr "存货号 anla~menge "数量 anla~meins "单位 anla~invzu "存放地点 anla~ord41 "资产状态 anla~lifnr "供应商 anla~liefe "供应商名称关联字段 anla~aktiv "资本化日期 anla~deakt "不活动日期 anla~herst "制造商 * anla~ord41 "资产的处置形式（改） anla~ord42 "资产状态（改） anlz~kostl "成本中心 anlz~caufn "内部订单 anlz~raumn "固定资产保管人 anla~typbz "使用部门 anla~erdat "录入日期 anla~ktogr "科目定位码 FROM anla INNER JOIN anlz ON anla~bukrs = anlz~bukrs AND anla~anln1 = anlz~anln1 AND anla~anln2 = anlz~anln2 INTO CORRESPONDING FIELDS OF TABLE it_output WHERE anla~bukrs IN s_bukrs AND anla~anlkl IN s_anlkl AND anla~anln1 IN s_anln1 AND anla~aktiv IN s_aktiv * AND anlz~caufn IN s_caufn AND anlz~kostl IN s_kostl AND anla~deakt IN s_deakt AND anlz~bdatu IN s_bdatu AND anlz~raumn IN s_raumn. IF it_output IS NOT INITIAL. SELECT rldnr rbukrs gjahr belnr docln anln1 anbwa slalittype tsl INTO CORRESPONDING FIELDS OF TABLE lt_acdoca FROM acdoca FOR ALL ENTRIES IN it_output WHERE rbukrs = it_output-bukrs AND anln1 = it_output-anln1 AND ( anbwa = \'100\' OR ( anbwa = \'970\' AND slalittype = \'7000\' ) OR ( anbwa = \'980\' AND slalittype = \'7000\' ) OR ( anbwa = \'346\' ) ) . SORT lt_acdoca BY rbukrs anln1. SELECT anlh~anlhtxt "资产主号文本 anlh~bukrs anlh~anln1 anlh~luntn FROM anlh INTO CORRESPONDING FIELDS OF TABLE it_anlhtxt FOR ALL ENTRIES IN it_output WHERE anlh~bukrs = it_output-bukrs AND anlh~anln1 = it_output-anln1 AND anlh~luntn = it_output-anln2. SORT it_anlhtxt BY bukrs anln1 luntn. SELECT bukrs gjahr peraf afbnr anln1 anln2 afaber zujhr zucod nafaz aafaz INTO CORRESPONDING FIELDS OF TABLE lt_anlp FROM anlp FOR ALL ENTRIES IN it_output WHERE anlp~bukrs = it_output-bukrs AND anlp~anln1 = it_output-anln1 AND anlp~anln2 = it_output-anln2 AND afaber = \'01\'. SORT lt_anlp BY bukrs anln1 gjahr peraf DESCENDING . APPEND LINES OF lt_anlp TO lt_anlp2 . SORT lt_anlp2 BY bukrs anln1 peraf . SELECT anlc~ndabj "已使用年份 anlc~ndabp "已使用月份 anlc~kansw anlc~answl anlc~aufwb "改动 anlc~nafag "改动 anlc~safag "改动 anlc~aafag "改动 anlc~bukrs anlc~anln1 anlc~anln2 anlc~afabe anlc~knafa anlc~nafal anlc~nafav FROM anlc INTO CORRESPONDING FIELDS OF TABLE it_anlc FOR ALL ENTRIES IN it_output WHERE anlc~bukrs = it_output-bukrs AND anlc~anln1 = it_output-anln1 AND anlc~anln2 = it_output-anln2. SORT it_anlc BY bukrs anln1 anln2 . SELECT bukrs anln1 gjahr afabe afblpe answl kansw knafa nafag nafal nafav ndabj ndabp ksafa kaafa safag aafag safal aafal nafav safav aafav INTO CORRESPONDING FIELDS OF TABLE lt_anlc FROM anlc FOR ALL ENTRIES IN it_anlc WHERE bukrs = it_anlc-bukrs AND anln1 = it_anlc-anln1 AND afabe = it_anlc-afabe. SORT lt_anlc BY bukrs anln1 afabe gjahr DESCENDING."根据财年降序排列 LOOP AT lt_anlc INTO ls_anlc. MOVE-CORRESPONDING ls_anlc TO ls_anlc2. APPEND ls_anlc2 TO lt_anlc2. CLEAR: ls_anlc2,ls_anlc. ENDLOOP. SORT lt_anlc2 BY bukrs anln1 afabe . LOOP AT lt_anlc2 INTO ls_anlc2. COLLECT ls_anlc2 INTO lt_anlc_coll. CLEAR ls_anlc2. ENDLOOP. SORT lt_anlc_coll BY bukrs anln1 afabe. SELECT anlb~afasl "折旧码 anlb~ndjar "使用年限 anlb~ndper "使用期间 anlb~afabg "折旧开始日期 anlb~bukrs anlb~anln1 anlb~anln2 anlb~schrw_proz FROM anlb INTO TABLE it_anlb FOR ALL ENTRIES IN it_output WHERE anlb~bukrs = it_output-bukrs AND anlb~anln1 = it_output-anln1 AND anlb~anln2 = it_output-anln2. SORT it_anlb BY bukrs anln1 anln2. SELECT anlb~afasl "折旧码 anlb~ndjar "使用年限 anlb~ndper "使用期间 anlb~afabg "折旧开始日期 anlb~bdatu " anlb~afabe anlb~bukrs anlb~anln1 anlb~anln2 anlb~schrw_proz FROM anlb INTO CORRESPONDING FIELDS OF TABLE it_anlb2 FOR ALL ENTRIES IN it_output WHERE anlb~bukrs = it_output-bukrs AND anlb~anln1 = it_output-anln1 AND anlb~anln2 = it_output-anln2. SORT it_anlb2 BY bukrs anln1 afabe bdatu DESCENDING. "根据财年降序排列 IF it_anlb IS NOT INITIAL . SELECT afapl afasl anhwsl * afatxt INTO CORRESPONDING FIELDS OF TABLE lt_t090na FROM t090na FOR ALL ENTRIES IN it_anlb WHERE afasl = it_anlb-afasl AND afapl = \'1000\'. IF lt_t090na IS NOT INITIAL . SELECT * INTO TABLE lt_t090nat FROM t090nat WHERE spras = 1. SORT lt_t090nat BY afapl afasl . ENDIF. SELECT * INTO TABLE lt_t091p FROM t091p . SORT lt_t090na BY afasl . SORT lt_t091p BY anhwsl . ENDIF. SELECT * INTO TABLE lt_t095b FROM t095b FOR ALL ENTRIES IN it_output WHERE ktogr = it_output-ktogr AND ktopl = \'1000\' AND afabe = 1. SORT lt_t095b BY ktogr. IF lt_t095b IS NOT INITIAL . * SELECT * * INTO TABLE lt_ska1 * FROM ska1 * FOR ALL ENTRIES IN lt_t095b * WHERE saknr = lt_t095b-ktnafb * AND ktopl = \'1000\'. * SORT lt_ska1 BY saknr . * IF LT_SKA1 IS NOT INITIAL . SELECT * INTO TABLE lt_skat FROM skat FOR ALL ENTRIES IN lt_t095b WHERE spras = 1 AND saknr = lt_t095b-ktnafb AND ktopl = \'1000\'. SORT lt_skat BY ktopl saknr. * ENDIF. ENDIF. ENDIF. LOOP AT it_output INTO wa_output. CALL FUNCTION \'CONVERSION_EXIT_CUNIT_OUTPUT\' EXPORTING input = wa_output-meins language = sy-langu IMPORTING * long_text = output = wa_output-meins * short_text = EXCEPTIONS unit_not_found = 1 OTHERS = 2. IF sy-subrc <> 0. * Implement suitable error handling here ENDIF. SELECT SINGLE t001~butxt "公司代码名称 t001~waers "币种 FROM t001 INTO (wa_output-butxt, wa_output-waers) WHERE t001~bukrs = wa_output-bukrs. SELECT SINGLE cskt~ltext "成本中心描述 FROM cskt INTO wa_output-ltext WHERE cskt~kostl = wa_output-kostl. SELECT SINGLE ankt~txk20 "固定资产分类描述 FROM ankt INTO wa_output-txk20 WHERE ankt~anlkl = wa_output-anlkl AND spras = sy-langu. READ TABLE it_anlhtxt INTO wa_anlhtxt WITH KEY bukrs = wa_output-bukrs anln1 = wa_output-anln1 luntn = wa_output-anln2 BINARY SEARCH. IF sy-subrc = 0. wa_output-anlhtxt = wa_anlhtxt-anlhtxt. "资产主号文本 ENDIF. SELECT SINGLE lfa1~name1 FROM lfa1 INTO wa_output-name1 WHERE lfa1~lifnr = wa_output-lifnr AND lfa1~land1 = \'CN\'. SELECT SINGLE t087t~ordtx FROM t087t INTO wa_output-ordtx WHERE t087t~ord4x = wa_output-ord41 AND ordnr = 1 AND t087t~spras = sy-langu. SELECT SINGLE t087t~ordtx AS ordt2 FROM t087t INTO wa_output-ordt2 WHERE t087t~ord4x = wa_output-ord42 AND t087t~spras = sy-langu. READ TABLE lt_t095b INTO ls_t095b WITH KEY ktogr = wa_output-ktogr BINARY SEARCH. IF sy-subrc = 0. wa_output-ktnafb = ls_t095b-ktnafb. READ TABLE lt_skat INTO ls_skat WITH KEY saknr = ls_t095b-ktnafb BINARY SEARCH . IF sy-subrc = 0. wa_output-txt20 = ls_skat-txt20. ENDIF. ENDIF. READ TABLE it_anlb INTO wa_anlb WITH KEY bukrs = wa_output-bukrs anln1 = wa_output-anln1 anln2 = wa_output-anln2 BINARY SEARCH. IF sy-subrc = 0. wa_output-afasl = wa_anlb-afasl. "折旧码 wa_output-ndjar = wa_anlb-ndjar."使用年限 wa_output-ndper = wa_anlb-ndper."使用期间 wa_output-afabg = wa_anlb-afabg. "折旧开始日期 " 净残值率 IF wa_anlb-schrw_proz <> \'0\' . wa_output-ahproz = wa_anlb-schrw_proz . ELSE. READ TABLE lt_t090na INTO ls_t090na WITH KEY afasl = wa_anlb-afasl BINARY SEARCH. IF sy-subrc = 0 . IF ls_t090na-anhwsl IS NOT INITIAL. READ TABLE lt_t091p INTO ls_t091p WITH KEY anhwsl = ls_t090na-anhwsl BINARY SEARCH. IF sy-subrc = 0. wa_output-ahproz = ls_t091p-ahproz."净残值率 ENDIF. ELSE. wa_output-ahproz = 0. ENDIF. CLEAR ls_t090na . ENDIF. ENDIF. READ TABLE lt_t090na INTO ls_t090na WITH KEY afasl = wa_anlb-afasl BINARY SEARCH. IF sy-subrc = 0 . READ TABLE lt_t090nat INTO ls_t090nat WITH KEY afapl = ls_t090na-afapl afasl = ls_t090na-afasl BINARY SEARCH . IF sy-subrc = 0. wa_output-afatxt = ls_t090nat-afatxt."折旧方法 ENDIF. ENDIF. ENDIF. READ TABLE it_anlc INTO wa_anlc WITH KEY bukrs = wa_output-bukrs anln1 = wa_output-anln1 anln2 = wa_output-anln2 BINARY SEARCH. IF sy-subrc = 0. wa_output-ndabj = wa_anlc-ndabj. "已使用年份 wa_output-ndabp = wa_anlc-ndabp."已使用月份 wa_output-kansw = wa_anlc-kansw. wa_output-answl = wa_anlc-answl. wa_output-aufwb = wa_anlc-aufwb."改动 wa_output-nafag = wa_anlc-nafag."改动 wa_output-safag = wa_anlc-safag."改动 wa_output-aafag = wa_anlc-aafag."改动 IF wa_output-anlkl = \'Z300\'. wa_output-afblpe = 0 . ELSE. CLEAR ls_anlc. READ TABLE lt_anlc INTO ls_anlc WITH KEY bukrs = wa_anlc-bukrs anln1 = wa_anlc-anln1 afabe = 1 BINARY SEARCH. IF sy-subrc = 0. * wa_output-afblpe = ls_anlc-ndabj * 12 + ls_anlc-ndabp ."已计提月份 READ TABLE it_anlb2 INTO wa_anlb2 WITH KEY bukrs = wa_anlc-bukrs anln1 = wa_anlc-anln1 afabe = 1 BINARY SEARCH. IF sy-subrc = 0. * wa_output-afblpe = ls_anlc-ndabj * 12 + ls_anlc-ndabp ."已计提月份 DATA l_year TYPE char4. DATA l_mon TYPE char2 . l_year = wa_anlb2-afabg+0(4). l_mon = wa_anlb2-afabg+4(2). wa_output-afblpe = ( ls_anlc-gjahr - l_year ) * 12 + ( ls_anlc-afblpe - l_mon + 1 ) . IF wa_output-afblpe < 0 . CALL FUNCTION \'CLOI_PUT_SIGN_IN_FRONT\' CHANGING value = wa_output-afblpe. ENDIF. CLEAR ls_anlc. ENDIF. CLEAR ls_anlc. ENDIF. ENDIF. * READ TABLE lt_anlc_coll INTO ls_anlc_coll WITH KEY bukrs = wa_anlc-bukrs * anln1 = wa_anlc-anln1 * afabe = wa_anlc-afabe * BINARY SEARCH . * IF sy-subrc = 0. * wa_output-afblpe = ls_anlc_coll-afblpe. * CLEAR ls_anlc_coll. * ENDIF. READ TABLE lt_anlc INTO ls_anlc WITH KEY bukrs = wa_anlc-bukrs anln1 = wa_anlc-anln1 afabe = wa_anlc-afabe BINARY SEARCH. IF sy-subrc = 0. wa_output-gouzhi = ls_anlc-kansw + ls_anlc-answl."原值 wa_output-zhejiu = ls_anlc-knafa + ls_anlc-ksafa + ls_anlc-kaafa + ls_anlc-nafag + ls_anlc-safag + ls_anlc-aafag + ls_anlc-nafal + ls_anlc-safal + ls_anlc-aafal + ls_anlc-nafav + ls_anlc-safav + ls_anlc-aafav ."累计折旧 * wa_output-jingzhi = wa_output-gouzhi - wa_output-zhejiu."净值 wa_output-jingzhi = wa_output-gouzhi + wa_output-zhejiu + ls_anlc-aufwb."净值 IF wa_output-deakt IS INITIAL . wa_output-bfqljzj = wa_output-zhejiu . ELSE. wa_output-bfqljzj = ( ls_anlc-nafal + ls_anlc-safal + ls_anlc-aafal + ls_anlc-safav + ls_anlc-aafav + ls_anlc-nafav ) * -1 . ENDIF. ENDIF. ENDIF. wa_output-ahpro = wa_output-gouzhi * wa_output-ahproz / 100."净残值 " 月折旧额 IF wa_output-anlkl = \'Z300\'. wa_output-yuezhejiue = 0 . ELSE. * wa_output-yuezhejiue = ( wa_output-jingzhi - wa_output-ahpro ) / * ( wa_output-ndjar * 12 + wa_output-ndper - wa_output-afblpe ) . READ TABLE lt_anlp INTO ls_anlp2 WITH KEY bukrs = wa_output-bukrs anln1 = wa_output-anln1 BINARY SEARCH . IF sy-subrc = 0 . LOOP AT lt_anlp INTO ls_anlp FROM sy-tabix . IF ls_anlp-bukrs = wa_output-bukrs AND ls_anlp-anln1 = wa_output-anln1 AND ls_anlp-gjahr = ls_anlp2-gjahr AND ls_anlp-peraf = ls_anlp2-peraf . wa_output-yuezhejiue = wa_output-yuezhejiue + ls_anlp-nafaz + ls_anlp-aafaz . ELSE. EXIT. ENDIF. CLEAR ls_anlp . ENDLOOP. * READ TABLE lt_anlp2 WITH KEY bukrs = wa_output-bukrs * anln1 = wa_output-anln1 * BINARY SEARCH TRANSPORTING NO FIELDS . * IF sy-subrc = 0 . * LOOP AT lt_anlp2 INTO ls_anlp2 FROM sy-tabix . * IF ls_anlp2-bukrs = wa_output-bukrs AND * ls_anlp2-anln1 = wa_output-anln1 . * wa_output-yuezhejiue = wa_output-yuezhejiue + ls_anlp2-aafaz . * ELSE. * EXIT . * ENDIF. * ENDLOOP. * ENDIF. ENDIF. IF wa_output-yuezhejiue < 0 . CALL FUNCTION \'CLOI_PUT_SIGN_IN_FRONT\' CHANGING value = wa_output-yuezhejiue. ENDIF. CLEAR ls_anlp2 . ENDIF. " 月折旧率 IF wa_output-gouzhi = 0 . wa_output-yuezhejiulv = 0 . ELSE . wa_output-yuezhejiulv = wa_output-yuezhejiue / wa_output-gouzhi * 100 . ENDIF. IF wa_output-deakt IS INITIAL . wa_output-bfqzcyz = wa_output-gouzhi . ELSE. READ TABLE lt_acdoca WITH KEY rbukrs = wa_output-bukrs anln1 = wa_output-anln1 BINARY SEARCH TRANSPORTING NO FIELDS . IF sy-subrc = 0. LOOP AT lt_acdoca INTO ls_acdoca FROM sy-tabix . IF ls_acdoca-rbukrs = wa_output-bukrs AND ls_acdoca-anln1 = wa_output-anln1 . l_tsl = l_tsl + ls_acdoca-tsl . ELSE. EXIT. ENDIF. ENDLOOP. ENDIF. wa_output-bfqzcyz = l_tsl. CLEAR l_tsl. ENDIF. * wa_output-gouzhi = wa_output-kansw + wa_output-answl. * wa_output-zhejiu = wa_output-nafag + wa_output-safag + wa_output-aafag. * wa_output-jingzhi = wa_output-gouzhi + wa_output-zhejiu + wa_output-aufwb. MODIFY it_output FROM wa_output. ENDLOOP. SORT it_output BY bukrs anlkl anln1. ENDFORM. " FRM_GETDATA *&---------------------------------------------------------------------* *& Form frm_set_alv_fieldcats *&---------------------------------------------------------------------* * text fiedcat settings for alv *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_set_alv_fieldcats . PERFORM frm_set_fieldcat USING: \'ANLKL\' \'\' \'资产类别编号\' 10 \'\', \'TXK20\' \'\' \'资产类别名称\' 14 \'\', \'BUKRS\' \'\' \'公司代码\' 8 \'\', \'BUTXT\' \'\' \'公司代码名称\' 8 \'\', \'ANLN1\' \'\' \'固定资产编号\' 12 \'\', * \'ANLN2\' \'\' \'固定资产子编号\' 15 \'\', \'TXT50\' \'\' \'固定资产名称\' 20 \'\', \'HERST\' \'\' \'U8编码\' 10 \'\', \'KOSTL\' \'\' \'成本中心\' 10 \'\', \'INVNR\' \'\' \'规格型号\' 10 \'\', \'SERNR\' \'\' \'序列号\' 10 \'\', * \'TXA50\' \'\' \'规格型号\' 10 \'X\', * \'ANLHTXT\' \'\' \'资产主号文本\' 20 \'\', \'MENGE\' \'\' \'数量\' 10 \'\', \'MEINS\' \'\' \'基本计量单位\' 10 \'\', * \'ORD41\' \'\' \'状态\' 13 \'\', \'ORDTX\' \'\' \'状态(描述)\' 15 \'\', \'AKTIV\' \'\' \'开始使用日期\' 10 \'\', \'NDJAR\' \'\' \'使用年限(年)\' 10 \'\', \'NDPER\' \'\' \'使用年限(月)\' 10 \'\', \'AFBLPE\' \'\' \'已计提月份\' 10 \'\', \'GOUZHI\' \'\' \'原值\' 10 \'\', \'AHPROZ\' \'\' \'净残值率(%)\' 10 \'\', \'AHPRO\' \'\' \'净残值\' 10 \'\', \'YUEZHEJIULV\' \'\' \'月折旧率(%)\' 10 \'\', \'YUEZHEJIUE\' \'\' \'月折旧额\' 10 \'\', \'ZHEJIU\' \'\' \'累计折旧金额\' 10 \'\', \'JINGZHI\' \'\' \'净值\' 10 \'\', \'WAERS\' \'\' \'币种\' 10 \'\', \'TXT20\' \'\' \'对应折旧科目\' 10 \'\', \'KTNAFB\' \'\' \'对应折旧科目编码\' 10 \'\', \'AFATXT\' \'\' \'折旧方法\' 10 \'\', \'INVZU\' \'\' \'存放地点\' 10 \'\', \'TYPBZ\' \'\' \'使用部门\' 10 \'\', \'RAUMN\' \'\' \'使用人\' 10 \'\', \'LIFNR\' \'\' \'供货单位\' 10 \'\', \'ERDAT\' \'\' \'录入日期\' 10 \'\', \'DEAKT\' \'\' \'报废日期\' 10 \'\', \'BFQZCYZ\' \'\' \'报废前资产原值\' 10 \'\', \'BFQLJZJ\' \'\' \'报废前累计折旧\' 10 \'\'. * \'ORD42\' \'\' \'资产状态\' 10 \'\', * \'ORDT2\' \'\' \'资产状态描述\' 15 \'\', * * * \'CAUFN\' \'\' \'内部订单\' 10 \'\', * * \'NAME1\' \'\' \'供应商名称\' 10 \'\', * * * * \'AFASL\' \'\' \'折旧码\' 10 \'\', * * \'NDPER\' \'\' \'使用期间\' 10 \'\', * \'NDABJ\' \'\' \'已使用年份\' 10 \'\', * \'NDABP\' \'\' \'已使用月份\' 10 \'\', * \'AFABG\' \'\' \'折旧开始日期\' 10 \'\', * * * \'AUFWB\' \'\' \'固定资产减值\' 10 \'\'. ENDFORM. " frm_set_alv_fieldcats *&---------------------------------------------------------------------* *& Form FRM_SET_FIELDCAT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->P_0136 text * -->P_0137 text * -->P_0138 text *----------------------------------------------------------------------* FORM frm_set_fieldcat USING p_fieldname TYPE slis_fieldname p_ref_tabname TYPE slis_tabname p_text TYPE dd03p-scrtext_l p_outputlen TYPE dd03p-outputlen p_zero TYPE char1. CLEAR wa_fieldcat. wa_fieldcat-fieldname = p_fieldname. "对应的内表字段名 wa_fieldcat-ref_tabname = p_ref_tabname."参考的系统表 wa_fieldcat-seltext_l = p_text. "标题内容 wa_fieldcat-outputlen = p_outputlen. "列宽 wa_fieldcat-no_zero = p_zero. "显示时去前导零 APPEND wa_fieldcat TO it_fieldcat. ENDFORM. " frm_set_fieldcat *&---------------------------------------------------------------------* *& Form frm_set_alv_layout *&---------------------------------------------------------------------* * text layout settings for alv *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_set_alv_layout . wa_layout-zebra = \'X\'. "条纹显示 wa_layout-box_fieldname = \'SEL\'. "行选择标识. ENDFORM. " frm_set_alv_layout *&---------------------------------------------------------------------* *& Form frm_set_alv_event *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_set_alv_event . DATA: l_top_of_page TYPE slis_formname VALUE \'FRM_TOP_OF_PAGE\', lw_events TYPE slis_alv_event. CALL FUNCTION \'REUSE_ALV_EVENTS_GET\' EXPORTING i_list_type = 0 IMPORTING et_events = it_events EXCEPTIONS list_type_wrong = 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. * 在事件(字段名:name)为 "top_of_page" 的行中将form名(字段名:form) * 设为 frm_top_of_page, 这样,系统就会自动 perform frm_top_of_page CLEAR lw_events. READ TABLE it_events INTO lw_events WITH KEY name = slis_ev_top_of_page . " TOP_OF_PAGE IF sy-subrc = 0. lw_events-form = l_top_of_page."调用子程序名 MODIFY it_events FROM lw_events INDEX sy-tabix. ENDIF. ENDFORM. " frm_set_alv_event *&---------------------------------------------------------------------* *& Form FRM_TOP_OF_PAGE *&---------------------------------------------------------------------* * 表头 *&---------------------------------------------------------------------* * --> p1 text * <-- p2 text *&---------------------------------------------------------------------* FORM frm_top_of_page. DATA: lt_listheader TYPE slis_t_listheader, lw_listheader LIKE LINE OF lt_listheader. lw_listheader-typ = \'H\'." 大标题 lw_listheader-info = cos_alv_title. "标题内容 APPEND lw_listheader TO lt_listheader. CALL FUNCTION \'REUSE_ALV_COMMENTARY_WRITE\' EXPORTING it_list_commentary = lt_listheader. ENDFORM. "FRM_TOP_OF_PAGE *&---------------------------------------------------------------------* *& Form frm_alv_output *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_alv_output . CALL FUNCTION \'REUSE_ALV_GRID_DISPLAY\' EXPORTING i_callback_program = sy-repid is_layout = wa_layout it_fieldcat = it_fieldcat "输出的列信息 i_save = \'A\' "变式可保存 it_events = it_events "事件内表 * i_callback_pf_status_set = \'FRM_SET_STATUS\' "状态栏 * i_callback_user_command = \'FRM_USER_COMMAND\' "按钮处理 TABLES t_outtab = it_output "输出内容内表 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. " frm_alv_output *&---------------------------------------------------------------------* *& Form FRM_FREE_OBJECT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_free_object . FREE: it_output. ENDFORM. " FRM_FREE_OBJECT **&---------------------------------------------------------------------* **& Form FRM_SET_STATUS **&---------------------------------------------------------------------* ** text **----------------------------------------------------------------------* ** -->PT_EXTAB text **----------------------------------------------------------------------* *FORM frm_set_status USING pt_extab TYPE slis_t_extab . * SET PF-STATUS \'STANDARD\'. * *ENDFORM. "Frm_SET_STATUS * **&---------------------------------------------------------------------* **& Form FRM_USER_COMMAND **&---------------------------------------------------------------------* ** text **----------------------------------------------------------------------* ** -->R_UCOMM text ** -->RS_SELFIELD text **----------------------------------------------------------------------* *FORM frm_user_command USING r_ucomm LIKE sy-ucomm * rs_selfield TYPE slis_selfield. * * CASE r_ucomm. * WHEN \'PRNT\'. * PERFORM frm_print_data." Smartform 打印 * * WHEN \'&IC1\'. "双击时间 * READ TABLE it_output INTO wa_output INDEX rs_selfield-tabindex. * CASE rs_selfield-fieldname. * SET PARAMETER ID \'BUK\' FIELD \'1010\'. * SET PARAMETER ID \'AN1\' FIELD wa_output-anln1. * SET PARAMETER ID \'AN2\' FIELD wa_output-anln2. * CALL TRANSACTION \'AS03\' AND SKIP FIRST SCREEN. * * ENDCASE. * *** 设置刷新模式，行列保持不变 * rs_selfield-refresh = \'X\'. * rs_selfield-col_stable = \'X\'. * rs_selfield-row_stable = \'X\'. * ENDCASE. *ENDFORM. "user_command **&---------------------------------------------------------------------* **& Form FRM_PRINT_DATA **&---------------------------------------------------------------------* ** text **----------------------------------------------------------------------* ** --> p1 text ** <-- p2 text **----------------------------------------------------------------------* *FORM frm_print_data . * PERFORM frm_ssf_open. * PERFORM frm_ssf_process. * PERFORM frm_ssf_close. * *ENDFORM. " FRM_PRINT_DATA * **&---------------------------------------------------------------------* **& Form FRM_SSF_OPEN **&---------------------------------------------------------------------* ** text **----------------------------------------------------------------------* *FORM frm_ssf_open . ** g_control-no_dialog = \'X\'. "不弹出对话框 * g_control-preview = \'X\'. "预览 * g_control-no_open = \'X\'. * g_control-no_close = \'X\'. * * CALL FUNCTION \'SSF_FUNCTION_MODULE_NAME\' * EXPORTING * formname = cos_form_name * IMPORTING * fm_name = g_fname * EXCEPTIONS * no_form = 1 * no_function_module = 2 * OTHERS = 3. * IF sy-subrc <> 0. * MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno * WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. * ENDIF. * * CALL FUNCTION \'SSF_OPEN\' * EXPORTING * control_parameters = g_control * EXCEPTIONS * formatting_error = 1 * internal_error = 2 * send_error = 3 * user_canceled = 4 * OTHERS = 5. * *ENDFORM. " FRM_SSF_OPEN * **&---------------------------------------------------------------------* **& Form FRM_SSF_PROCESS **&---------------------------------------------------------------------* ** text **----------------------------------------------------------------------* ** --> p1 text ** <-- p2 text **----------------------------------------------------------------------* *FORM frm_ssf_process . * DATA: lt_output TYPE STANDARD TABLE OF zzfis015, "参考的格式为 smartfroms 的内表参考的格式 * lw_output LIKE LINE OF lt_output, * lt_zzfis015 TYPE STANDARD TABLE OF zzfis015, * lw_zzfis015 LIKE LINE OF lt_zzfis015. * * DATA l_fm_name TYPE rs38l_fnam. * * LOOP AT it_output INTO wa_output WHERE sel = \'X\'. "选中的行 * CLEAR lw_zzfis015. * MOVE-CORRESPONDING wa_output TO lw_zzfis015. * APPEND lw_zzfis015 TO lt_zzfis015. * ENDLOOP. * * SORT lt_zzfis015 BY anln1. "按照供应商编号进行派讯 * * LOOP AT lt_zzfis015 INTO lw_zzfis015. * READ TABLE lt_zzfis015 INTO lw_output INDEX sy-tabix. * * AT END OF anln1. "读取出排序后的内表（按供应商排序）一个供应商的最后一行值 * APPEND lw_output TO lt_output. * CALL FUNCTION g_fname "把当作参数的函数名把内表参数传到表格 * EXPORTING * control_parameters = g_control * TABLES * it_output2 = lt_output * EXCEPTIONS * formatting_error = 1 * internal_error = 2 * send_error = 3 * user_canceled = 4 * OTHERS = 5. * IF sy-subrc <> 0. * MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno * WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. * ENDIF. * CLEAR lt_output. * CONTINUE. * ENDAT. * * APPEND lw_output TO lt_output. * * ENDLOOP. * *ENDFORM. " FRM_SSF_PROCESS * * **&---------------------------------------------------------------------* **& Form FRM_SSF_CLOSE **&---------------------------------------------------------------------* ** text **----------------------------------------------------------------------* ** --> p1 text ** <-- p2 text **----------------------------------------------------------------------* *FORM frm_ssf_close . * CALL FUNCTION \'SSF_CLOSE\' * EXCEPTIONS * formatting_error = 1 * internal_error = 2 * send_error = 3 * OTHERS = 4. * *ENDFORM. " FRM_SSF_CLOSE