SEPC_ERP试点阶段_技术书_FICO_ZFIR0002_资产负债表_V1

文件名：SEPC/ERP 项目试点组/自定义四川省电力公司企业资源管理(ERP)系统实施项目技术设计说明书文件名：SEPC/ERP 项目试点组/自定义3.1业务需求描述如果屏选择输入某个利润中心，则以下每个行项目都以所输入的利润中心的(FAGLFLEXT-PRCTR)值为限制条件取数；当不输入利润中心时则表示所有利润中心数据。

1、 表头编制单位取利润中心名称；表头日期为屏选日期，单位为“元”。

2、 表头项目：项目、行次、年末数、年初数。

3、 年末数：取科目代码（FAGLFLEXT-RACCT ）值为XX 的科目的借方(FAGLFLEXT-DRCRK=“S ”)，汇总字段（FAGLFLEXT-HSLVT+HSL01…当期）的金额“a ”；再取科目代码（FAGLFLEXT-RACCT ）值为XX 的科目的贷方(FAGLFLEXT-DRCRK=“H ”)，汇总字段（FAGLFLEXT-HSLVT+ TSL01…当期）的金额b ；两个金额相加（a+b ），IF “a+ b 〉0”，就直接显示；如果小于零，就显示为“–”余额格式。

贷方发生额取负数，借贷方余额取正数，借方发生额取正数。

年初数：取科目代码（FAGLFLEXT-RACCT ）值为XX 的HSLVT 字段值的汇总值。

3.2技术解决方案1、从表FAGLFLEXT 里获取数据2、使用函数REUSE_ALV_GRID_DISPLAY 展示数据3、使用SMW0 上载的数据模板，将内表的数据导入到数据模板中，打印或者导入到本地文件名：SEPC/ERP 项目试点组/自定义IF SCREEN -NAME = 'P_PRCTR-HIGH'. SCREEN -INPUT = 0. MODIFY SCREEN . ENDIF . ENDLOOP .REFRESH P_PRCTR. ELSE .LOOP AT SCREEN .IF SCREEN -NAME = 'P_SET-LOW'. SCREEN -INPUT = 0. MODIFY SCREEN . ENDIF .IF SCREEN -NAME = 'P_SET-HIGH'. SCREEN -INPUT = 0. MODIFY SCREEN . ENDIF . ENDLOOP .REFRESH P_SET. ENDIF ." 利润中心权限检查 SELECT * FROM CEPCWHERE PRCTR IN P_PRCTR AND KOKRS EQ '1900'. "1900 是四川电力的控制范围 AUTHORITY-CHECK OBJECT 'K_PCAR_REP' ID 'PRCTR' FIELD CEPC-PRCTR ID 'ACTVT' FIELD '03'. IF SY-SUBRC NE 0.IF P_SET-LOW IS NOT INITIAL .MESSAGE S000 WITH '你没有查看该利润中心组的权限！' .STOP . ELSE .MESSAGE S000 WITH '你没有查看利润中心' CEPC-PRCTR '的权限！'. STOP . ENDIF . ENDIF . ENDSELECT .IF SY-SUBRC NE 0.MESSAGE S000 WITH '此客户端下没有定义您输入的利润中心，请按F4帮助！' . STOP . ENDIF . INCLUDE ZFIR0002_DATADECLARE.文件名：SEPC/ERP 项目试点组/自定义INCLUDE ZFIR0002_GETDATA.INCLUDE ZFIR0002_DISDATA.INCLUDE ZFIR0002_PRINTDATA. "EXCEL 导出INCLUDE ZFIR0002_PRINTDATA1. "EXCEL 预览INCLUDE ZFIR0002_PAGEBREAK.INCLUDE ZFIR0002_CHECK_A.INCLUDE ZFIR0002_EVENT.INCLUDE ZFIR0002_WPS. "WPS 与 EXCEL 不同的子程序INCLUDE ZIFR0002_WPS_PRINT. " WPS 打印预览及导出*&---------------------------------------------------------------------* *& 包括 ZFIR0002_DATADECLARE *& 包括 数据声明*&---------------------------------------------------------------------*REPORT ZFIR0002 NO STANDARD PAGE HEADING LINE -COUNT 50 LINE -SIZE 128 MESSAGE -ID ZFI01.*数据声明*TABLES :SETHEADER,BSEG,FAGLFLEXT,CEPC.TYPE -POOLS: SLIS,VRM.CONSTANTS :CI_LINESOFPAGE TYPE I VALUE 50, CI_COLUMNSOFPAGE TYPE I VALUE 13,CI_DATAOFFSET_TOP TYPE I VALUE 12, CI_DATAOFFSET_LEFT TYPE I VALUE 0, CI_DATAOFFSET_RIGHT TYPE I VALUE 0,CI_DATAOFFSET_BUTTOM TYPE I VALUE 2. "打印参数CONSTANTS :CO_OBJID TYPE WWWDATATAB-OBJID VALUE 'ZFIR0002'. "打印模板名称TYPES : BEGIN OF TY_OUTPUT, DW TYPE STRING,BUKRS TYPE FAGLFLEXT-RBUKRS,"公司代码 BUTXT TYPE T001-BUTXT,"公司名称 *流动资产*HBZJNC TYPE FAGLFLEXT-HSLVT,"货币资金年初 HBZJNM TYPE FAGLFLEXT-HSLVT,"货币资金年末JYXJRZJNC TYPE FAGLFLEXT-HSLVT,"交易性金融资金年初文件名：SEPC/ERP 项目试点组/自定义JYXJRZJNM TYPE FAGLFLEXT-HSLVT,"交易性金融资金年末* DQTZNC TYPE FAGLFLEXT-HSLVT," 短期投资年初 * DQTZNM TYPE FAGLFLEXT-HSLVT," 短期投资年末YSPJNC TYPE FAGLFLEXT-HSLVT, "应收票据年初 YSPJNM TYPE FAGLFLEXT-HSLVT,"应收票据年末YSGLNC TYPE FAGLFLEXT-HSLVT,"应收股利年初 YSGLNM TYPE FAGLFLEXT-HSLVT,"应收股利年末YSLXNC TYPE FAGLFLEXT-HSLVT,"应收利息年初 YSLXNM TYPE FAGLFLEXT-HSLVT,"应收利息年末YSZKNC TYPE FAGLFLEXT-HSLVT,"应收帐款年初 YSZKNM TYPE FAGLFLEXT-HSLVT,"应收帐款年末QTYSKNC TYPE FAGLFLEXT-HSLVT,"其他应收款年初 QTYSKNM TYPE FAGLFLEXT-HSLVT,"其他应收款年末YFKXNC TYPE FAGLFLEXT-HSLVT,"预付款项年初 YFKXNM TYPE FAGLFLEXT-HSLVT,"预付款项年末CHNC TYPE FAGLFLEXT-HSLVT,"存货年初 CHNM TYPE FAGLFLEXT-HSLVT,"存货年末YNNDQFLDNC TYPE FAGLFLEXT-HSLVT, "一年内到期的非流动资产年初 YNNDQFLDNM TYPE FAGLFLEXT-HSLVT, "一年内到期的非流动资产年末QTLDZCNC TYPE FAGLFLEXT-HSLVT,"其他流动资产年初 QTLDZCNM TYPE FAGLFLEXT-HSLVT,"其他流动资产年末* WTDKNC TYPE FAGLFLEXT-HSLVT,"委托贷款年初 * WTDKNM TYPE FAGLFLEXT-HSLVT,"委托贷款年末LDZCHJNC TYPE FAGLFLEXT-HSLVT,"流动资产合计年初 LDZCHJNM TYPE FAGLFLEXT-HSLVT,"流动资产合计年末*非流动资产*KGCSJRZCNC TYPE FAGLFLEXT-HSLVT,"可供出售金融资产年初 KGCSJRZCNM TYPE FAGLFLEXT-HSLVT,"可供出售金融资产年末CYZDQTZNC TYPE FAGLFLEXT-HSLVT,"持有至到期投资年初 CYZDQTZNM TYPE FAGLFLEXT-HSLVT,"持有至到期投资年末* CQZQTZNC TYPE FAGLFLEXT-HSLVT,"长期债权投资年初 * CQZQTZNM TYPE FAGLFLEXT-HSLVT,"长期债权投资年末CQYSKNC TYPE FAGLFLEXT-HSLVT,"△长期应收款年初 CQYSKNM TYPE FAGLFLEXT-HSLVT,"△长期应收款年末CQGQTZNC TYPE FAGLFLEXT-HSLVT,"长期股权投资年初 CQGQTZNM TYPE FAGLFLEXT-HSLVT,"长期股权投资年末文件名：SEPC/ERP 项目试点组/自定义* GQFZLTQNC TYPE FAGLFLEXT-HSLVT,"股权分置流通权年初 * GQFZLTQNM TYPE FAGLFLEXT-HSLVT,"股权分置流通权年末BFSSZJNC TYPE FAGLFLEXT-HSLVT,"拨付所属资金年初 BFSSZJNM TYPE FAGLFLEXT-HSLVT,"拨付所属资金年末TZXFDCNC TYPE FAGLFLEXT-HSLVT,"△投资性房地产年初 TZXFDCNM TYPE FAGLFLEXT-HSLVT,"△投资性房地产年末GDZCYJNC TYPE FAGLFLEXT-HSLVT,"固定资产原价年初 GDZCYJNM TYPE FAGLFLEXT-HSLVT,"固定资产原价年末LJZJNC TYPE FAGLFLEXT-HSLVT,"减：累计折旧年初 LJZJNM TYPE FAGLFLEXT-HSLVT,"减：累计折旧年末GDZCJZNC TYPE FAGLFLEXT-HSLVT,"固定资产净值年初 GDZCJZNM TYPE FAGLFLEXT-HSLVT,"固定资产净值年末GDZCJZZBNC TYPE FAGLFLEXT-HSLVT," 减：固定资产减值准备年初 GDZCJZZBNM TYPE FAGLFLEXT-HSLVT,"减：固定资产减值准备年末GDZCJENC TYPE FAGLFLEXT-HSLVT,"固定资产净额年初 GDZCJENM TYPE FAGLFLEXT-HSLVT,"固定资产净额年末GCWZNC TYPE FAGLFLEXT-HSLVT,"工程物资年初 GCWZNM TYPE FAGLFLEXT-HSLVT,"工程物资年末ZJGCNC TYPE FAGLFLEXT-HSLVT,"在建工程年初 ZJGCNM TYPE FAGLFLEXT-HSLVT,"在建工程年末GDZCQLNC TYPE FAGLFLEXT-HSLVT,"固定资产清理年初 GDZCQLNM TYPE FAGLFLEXT-HSLVT,"固定资产清理年末WXZCNC TYPE FAGLFLEXT-HSLVT,"无形资产年初 WXZCNM TYPE FAGLFLEXT-HSLVT,"无形资产年末KFZCNC TYPE FAGLFLEXT-HSLVT,"△开发支出年初 KFZCNM TYPE FAGLFLEXT-HSLVT,"△开发支出年末SYNC TYPE FAGLFLEXT-HSLVT,"△商誉年初 SYNM TYPE FAGLFLEXT-HSLVT,"△商誉年末* HBCJNC TYPE FAGLFLEXT-HSLVT,"合并价差年初 * HBCJNM TYPE FAGLFLEXT-HSLVT,"合并价差年末CQDTFYNC TYPE FAGLFLEXT-HSLVT,"长期待摊费用年初 CQDTFYNM TYPE FAGLFLEXT-HSLVT,"长期待摊费用年末DYSDSZCNC TYPE FAGLFLEXT-HSLVT,"递延所得税资产年初 DYSDSZCNM TYPE FAGLFLEXT-HSLVT,"递延所得税资产年末* DYSKJXNC TYPE FAGLFLEXT-HSLVT,"递延税款借项年初 * DYSKJXNM TYPE FAGLFLEXT-HSLVT,"递延税款借项年末文件名：SEPC/ERP 项目试点组/自定义QTFLDZCNC TYPE FAGLFLEXT-HSLVT,"其他非流动资产年初 QTFLDZCNM TYPE FAGLFLEXT-HSLVT,"其他非流动资产年末* LSSSNC TYPE FAGLFLEXT-HSLVT,"其中：临时设施年初 * LSSSNM TYPE FAGLFLEXT-HSLVT,"其中：临时设施年末* DCLCCSYNC TYPE FAGLFLEXT-HSLVT,"待处理财产损益年初 * DCLCCSYNM TYPE FAGLFLEXT-HSLVT,"待处理财产损益年末FLDZCHJNC TYPE FAGLFLEXT-HSLVT,"非流动资产合计年初 FLDZCHJNM TYPE FAGLFLEXT-HSLVT,"非流动资产合计年末ZCZJNC TYPE FAGLFLEXT-HSLVT,"资产总计年初 ZCZJNM TYPE FAGLFLEXT-HSLVT,"资产总计年末"流动负债"DQJKNC TYPE FAGLFLEXT-HSLVT,"短期借款年初 DQJKNM TYPE FAGLFLEXT-HSLVT,"短期借款年末JYXJRFZNC TYPE FAGLFLEXT-HSLVT,"交易性金融负债年初 JYXJRFZNM TYPE FAGLFLEXT-HSLVT,"交易性金融负债年末* YFQZNC TYPE FAGLFLEXT-HSLVT,"应付权证年初 * YFQZNM TYPE FAGLFLEXT-HSLVT,"应付权证年末YFPJNC TYPE FAGLFLEXT-HSLVT,"应付票据年初 YFPJNM TYPE FAGLFLEXT-HSLVT,"应付票据年末YFZKNC TYPE FAGLFLEXT-HSLVT,"应付账款年初 YFZKNM TYPE FAGLFLEXT-HSLVT,"应付账款年末YSKXNC TYPE FAGLFLEXT-HSLVT,"预收款项年初 YSKXNM TYPE FAGLFLEXT-HSLVT,"预收款项年末YFZGXZNC TYPE FAGLFLEXT-HSLVT,"应付职工薪酬年初 YFZGXZNM TYPE FAGLFLEXT-HSLVT,"应付职工薪酬年末YJSFNC TYPE FAGLFLEXT-HSLVT,"应交税费年初 YJSFNM TYPE FAGLFLEXT-HSLVT,"应交税费年末YFLXNC TYPE FAGLFLEXT-HSLVT,"应付利息年初 YFLXNM TYPE FAGLFLEXT-HSLVT,"应付利息年末YFGLNC TYPE FAGLFLEXT-HSLVT,"应付股利（应付利润）年初 YFGLNM TYPE FAGLFLEXT-HSLVT,"应付股利（应付利润）年末QTYFKNC TYPE FAGLFLEXT-HSLVT,"其他应付款年初 QTYFKNM TYPE FAGLFLEXT-HSLVT,"其他应付款年末NBWLNC TYPE FAGLFLEXT-HSLVT,"内部往来年初 NBWLNM TYPE FAGLFLEXT-HSLVT,"内部往来年末YNNDQFLDFZNC TYPE FAGLFLEXT-HSLVT,"一年内到期的非流动负债年初 YNNDQFLDFZNM TYPE FAGLFLEXT-HSLVT,"一年内到期的非流动负债年末文件名：SEPC/ERP 项目试点组/自定义QTLDFZNC TYPE FAGLFLEXT-HSLVT,"其他流动负债年初 QTLDFZNM TYPE FAGLFLEXT-HSLVT,"其他流动负债年末LDFZHJNC TYPE FAGLFLEXT-HSLVT,"流动负债合计年初 LDFZHJNM TYPE FAGLFLEXT-HSLVT,"流动负债合计年末"非流动负债"CQJKNC TYPE FAGLFLEXT-HSLVT,"长期借款年初 CQJKNM TYPE FAGLFLEXT-HSLVT,"长期借款年末YFZQNC TYPE FAGLFLEXT-HSLVT,"应付债券年初 YFZQNM TYPE FAGLFLEXT-HSLVT,"应付债券年末CQYFKNC TYPE FAGLFLEXT-HSLVT,"长期应付款年初 CQYFKNM TYPE FAGLFLEXT-HSLVT,"长期应付款年末SJBRZJNC TYPE FAGLFLEXT-HSLVT,"上级拨入资金年初 SJBRZJNM TYPE FAGLFLEXT-HSLVT,"上级拨入资金年末ZXYFKNC TYPE FAGLFLEXT-HSLVT,"专项应付款年初 ZXYFKNM TYPE FAGLFLEXT-HSLVT,"专项应付款年末DYSYNC TYPE FAGLFLEXT-HSLVT,"递延收益年初 DYSYNM TYPE FAGLFLEXT-HSLVT,"递延收益年末YJFZNC TYPE FAGLFLEXT-HSLVT,"预计负债年初 YJFZNM TYPE FAGLFLEXT-HSLVT,"预计负债年末DYSDSFZNC TYPE FAGLFLEXT-HSLVT,"递延所得税负债年初 DYSDSFZNM TYPE FAGLFLEXT-HSLVT,"递延所得税负债年末* DYSKDXNC TYPE FAGLFLEXT-HSLVT,"递延税款贷项年初 * DYSKDXNM TYPE FAGLFLEXT-HSLVT,"递延税款贷项年末QTFLDFZNC TYPE FAGLFLEXT-HSLVT,"其他非流动负债年初 QTFLDFZNM TYPE FAGLFLEXT-HSLVT,"其他非流动负债年末FLDFZHJNC TYPE FAGLFLEXT-HSLVT,"非流动负债合计年初 FLDFZHJNM TYPE FAGLFLEXT-HSLVT,"非流动负债合计年末FZHJNC TYPE FAGLFLEXT-HSLVT,"负债合计年初 FZHJNM TYPE FAGLFLEXT-HSLVT,"负债合计年末*所有者权益（或股东权益）*SSZBNC TYPE FAGLFLEXT-HSLVT,"实收资本（股本）年初 SSZBNM TYPE FAGLFLEXT-HSLVT,"实收资本（股本）年末ZBGJNC TYPE FAGLFLEXT-HSLVT,"资本公积年初 ZBGJNM TYPE FAGLFLEXT-HSLVT,"资本公积年末KCGNC TYPE FAGLFLEXT-HSLVT,"△减：库存股年初 KCGNM TYPE FAGLFLEXT-HSLVT,"△减：库存股年末文件名：SEPC/ERP 项目试点组/自定义YYGJNC TYPE FAGLFLEXT-HSLVT,"盈余公积年初 YYGJNM TYPE FAGLFLEXT-HSLVT,"盈余公积年末YBFXZBNC TYPE FAGLFLEXT-HSLVT,"一般风险准备年初 YBFXZBNM TYPE FAGLFLEXT-HSLVT,"一般风险准备年末* WQRTZSSNC TYPE FAGLFLEXT-HSLVT,"未确认投资损失年初 * WQRTZSSNM TYPE FAGLFLEXT-HSLVT,"未确认投资损失年末WFPLRNC TYPE FAGLFLEXT-HSLVT,"未分配利润年初 WFPLRNM TYPE FAGLFLEXT-HSLVT,"未分配利润年末WBBBZSCENC TYPE FAGLFLEXT-HSLVT,"外币报表折算差额年初 WBBBZSCENM TYPE FAGLFLEXT-HSLVT,"外币报表折算差额年末GSMGSSYZQYNC TYPE FAGLFLEXT-HSLVT,"归属于母公司所有者权益合计年初 GSMGSSYZQYNM TYPE FAGLFLEXT-HSLVT,"归属于母公司所有者权益合计年末SSGDQYNC TYPE FAGLFLEXT-HSLVT,"少数股东权益年初 SSGDQYNM TYPE FAGLFLEXT-HSLVT,"少数股东权益年末SYZQYHJNC TYPE FAGLFLEXT-HSLVT,"所有者权益合计年初 SYZQYHJNM TYPE FAGLFLEXT-HSLVT,"所有者权益合计年末* WCLZCSSNC TYPE FAGLFLEXT-HSLVT,"减：未处理资产损失年初 * WCLZCSSNM TYPE FAGLFLEXT-HSLVT,"减：未处理资产损失年末* SYZQYHJTCNC TYPE FAGLFLEXT-HSLVT,"所有者权益合计（剔除未处理资产损失后的金额）年初 * SYZQYHJTCNM TYPE FAGLFLEXT-HSLVT,"所有者权益合计（剔除未处理资产损失后的金额）年末FZHSYZZJNC TYPE FAGLFLEXT-HSLVT,"负债和所有者权益总计年初 FZHSYZZJNM TYPE FAGLFLEXT-HSLVT,"负债和所有者权益总计年末END OF TY_OUTPUT.TYPES : BEGIN OF TY_QJ,RBUKRS TYPE FAGLFLEXT-RBUKRS, RACCT TYPE FAGLFLEXT-RACCT, HSL01 TYPE FAGLFLEXT-HSL01 , HSL02 TYPE FAGLFLEXT-HSL02 , HSL03 TYPE FAGLFLEXT-HSL03 , HSL04 TYPE FAGLFLEXT-HSL04 , HSL05 TYPE FAGLFLEXT-HSL05 , HSL06 TYPE FAGLFLEXT-HSL06 , HSL07 TYPE FAGLFLEXT-HSL07 , HSL08 TYPE FAGLFLEXT-HSL08 , HSL09 TYPE FAGLFLEXT-HSL09 , HSL10 TYPE FAGLFLEXT-HSL10 , HSL11 TYPE FAGLFLEXT-HSL11 , HSL12 TYPE FAGLFLEXT-HSL12 , HSL13 TYPE FAGLFLEXT-HSL13 , HSL14 TYPE FAGLFLEXT-HSL14 , HSL15 TYPE FAGLFLEXT-HSL15 , HSL16 TYPE FAGLFLEXT-HSL16 , END OF TY_QJ.文件名：SEPC/ERP 项目试点组/自定义DATA : WA_OUTPUT TYPE TY_OUTPUT, WA_ZFI_042 TYPE ZFI_042,IT_ZFI_042 TYPE STANDARD TABLE OF ZFI_042. DATA : IT_OUTPUT TYPE STANDARD TABLE OF TY_OUTPUT.DATA : WA_QJ TYPE TY_QJ,IT_QJ TYPE STANDARD TABLE OF TY_QJ.DATA : DA_QJ(2) TYPE N. "期间值DATA : P_FILENAME TYPE SAPB-SAPPFAD.DATA : TEXTQJ TYPE STRING. DATA : DATEQJ TYPE D.DATA : G_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE , GD_REPID LIKE SY-REPID VALUE 'SY-REPID', GD_LAYOUT TYPE SLIS_LAYOUT_ALV.DATA : G_COMMAND TYPE SLIS_FORMNAME VALUE 'FRM_PROCESS_USER_COMMAND', IT_EXCLUDE TYPE SLIS_T_EXTAB WITH HEADER LINE .TYPES : BEGIN OF TY_ITAB, XM TYPE STRING, HC(2) TYPE C ,NMS TYPE P DECIMALS 2, NCS TYPE P DECIMALS 2, END OF TY_ITAB.DATA : IT_ITAB TYPE STANDARD TABLE OF TY_ITAB , WA_ITAB TYPE TY_ITAB.DATA : ID TYPE I VALUE 1.DATA : BEGIN OF IT_BUKRS OCCURS 0,BUKRS LIKE T001-BUKRS, "公司代码 END OF IT_BUKRS.TYPES : BEGIN OF TY_BUKRS,BUKRS LIKE T001-BUKRS, "公司代码 END OF TY_BUKRS.DATA IT_BUKRS2 TYPE TY_BUKRS OCCURS 0. DATA WA_BUKRS2 TYPE TY_BUKRS.RANGES RA_BUKRS FOR T001-BUKRS.TYPES : BEGIN OF TY_BSEG, GSBER TYPE BSEG-GSBER, BELNR TYPE BSEG-BELNR, HKONT TYPE BSEG-HKONT,文件名：SEPC/ERP 项目试点组/自定义GJAHR TYPE BSEG-GJAHR,BUKRS TYPE BSEG-BUKRS,MONAT TYPE BKPF-MONAT,DMBTR TYPE BSEG-DMBTR,SHKZG TYPE BSEG-SHKZG,END OF TY_BSEG.DATA : WA_BSEG TYPE TY_BSEG,IT_BSEG TYPE STANDARD TABLE OF TY_BSEG.DATA NAME TYPE STRING.DATA TMSG TYPE STRING.DATA G_WARNING TYPE I .TYPES : BEGIN OF TY_PRCTR,PRCTR LIKE FAGLFLEXT-PRCTR,END OF TY_PRCTR.TYPES : BEGIN OF TY_SETNAME,SETNAME LIKE SETHEADER-SETNAME,SETTYPE LIKE SETHEADER-SETTYPE,END OF TY_SETNAME.TYPES : BEGIN OF TY_SUBSETNAME,SUBSETNAME LIKE SETNODE-SUBSETNAME,END OF TY_SUBSETNAME.DATA : WA_PRCTR TYPE TY_PRCTR,IT_PRCTR TYPE STANDARD TABLE OF TY_PRCTR.DATA : WA_SETNAME TYPE TY_SETNAME,IT_SETNAME TYPE STANDARD TABLE OF TY_SETNAME.DATA : WA_SETNAMETMP TYPE TY_SETNAME,IT_SETNAMETMP TYPE STANDARD TABLE OF TY_SETNAME.DATA : WA_SUBSETNAME TYPE TY_SUBSETNAME,IT_SUBSETNAME TYPE STANDARD TABLE OF TY_SUBSETNAME.*选择屏幕*PARAMETERS P_HEBING AS CHECKBOX USER-COMMAND HEBING.SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT -001.SELECT -OPTIONS: P_SET FOR SETHEADER-SETNAME MATCHCODE OBJECT ZFISETNAME. "利润中心组SELECT -OPTIONS: P_PRCTR FOR FAGLFLEXT-PRCTR MATCHCODE OBJECT PRCTS. "利润中心PARAMETERS :P_BUKRS LIKE FAGLFLEXT-RBUKRS DEFAULT '1900', "公司代码P_RYEAR TYPE GJAHR MEMORY ID GJH,P_RPMAX TYPE RPMAX MEMORY ID RPM.SELECTION-SCREEN END OF BLOCK B1.*&---------------------------------------------------------------------**& 包括 ZFIR0002_GETDATA*&---------------------------------------------------------------------**&---------------------------------------------------------------------**& Form FRM_GETDATA*&---------------------------------------------------------------------** text*----------------------------------------------------------------------** --> p1 text* <-- p2 text*----------------------------------------------------------------------*文件名：SEPC/ERP 项目试点组/自定义FORM FRM_GETDATA .CHECK P_PRCTR IS NOT INITIAL .CHECK P_RYEAR IS NOT INITIAL .CHECK P_RPMAX IS NOT INITIAL ." 利润中心权限检查SELECT * FROM CEPCWHERE PRCTR IN P_PRCTR AND KOKRS EQ '1900'. "1900 是四川电力的控制范围AUTHORITY-CHECK OBJECT 'K_PCAR_REP'ID 'PRCTR' FIELD CEPC-PRCTRID 'ACTVT' FIELD '03'.IF SY-SUBRC NE 0.IF P_SET-LOW IS NOT INITIAL .MESSAGE S000 WITH '你没有查看该利润中心组的权限！' .STOP .ELSE .MESSAGE S000 WITH '你没有查看利润中心' CEPC-PRCTR '的权限！'.STOP .ENDIF .ENDIF .ENDSELECT .IF SY-SUBRC NE 0.MESSAGE S000 WITH '此客户端下没有定义您输入的利润中心，请按F4帮助！' .STOP .ENDIF .PERFORM FRM_DATA.PERFORM FRM_ALVDATA.SORT IT_OUTPUT .ENDFORM . " FRM_GETDATA*&---------------------------------------------------------------------**& Form FRM_DATA*&---------------------------------------------------------------------** text*----------------------------------------------------------------------*FORM FRM_DATA.DATA : W_LTEXT TYPE CEPCT-LTEXT.DATA : L_SUBRC LIKE SY-SUBRC,L_TABIX LIKE SY-TABIX.DA_QJ = P_RPMAX."将利润中心描述保存到字段输出表 it_output 中的字段 dw 中IF P_HEBING = 'X'.IF P_SET-HIGH IS INITIAL AND P_SET-LOW NE '*'.SELECT SINGLE DESCRIPTINTO NAMEFROM SETHEADERTWHERE SETHEADERT~SETNAME IN P_SETAND LANGU EQ SY-LANGUAND SETCLASS = '0106'AND SUBCLASS = '1900'.ELSEIF P_SET-LOW = '*'.NAME = '四川电力'.ELSE .CONCATENATE P_SET-LOW '到' P_SET-HIGH INTO NAME SEPARATED BY SPACE.ENDIF .ELSE .IF P_PRCTR-HIGH IS INITIAL AND P_PRCTR-LOW NE '*'.文件名：SEPC/ERP 项目试点组/自定义SELECT SINGLE KTEXTINTO NAMEFROM CEPCTWHERE CEPCT~PRCTR IN P_PRCTR ANDSPRAS EQ SY-LANGU.ELSEIF P_PRCTR-LOW = '*'.NAME = '四川电力'.ELSE .CONCATENATE P_PRCTR-LOW '到' P_PRCTR-HIGH INTO NAME SEPARATED BY SPACE. ENDIF .ENDIF .CHECK NAME IS NOT INITIAL .WA_OUTPUT-DW = NAME.APPEND WA_OUTPUT TO IT_OUTPUT.*1122 DATA : DAT1122NM LIKE WA_OUTPUT-YFZKNM,DAT1122NC LIKE WA_OUTPUT-YFZKNM.*1123 DATA : DAT1123NM LIKE WA_OUTPUT-YFZKNM,DAT1123NC LIKE WA_OUTPUT-YFZKNM.*2202DATA : DAT2202NM LIKE WA_OUTPUT-YFZKNM,DAT2202NC LIKE WA_OUTPUT-YFZKNM.*2203DATA : DAT2203NM LIKE WA_OUTPUT-YFZKNM,DAT2203NC LIKE WA_OUTPUT-YFZKNM.*2241DATA : DAT2241NM LIKE WA_OUTPUT-YFZKNM,DAT2241NC LIKE WA_OUTPUT-YFZKNM.*2242DATA : DAT2242NM LIKE WA_OUTPUT-YFZKNM,DAT2242NC LIKE WA_OUTPUT-YFZKNM.*1221DATA : DAT1221NM LIKE WA_OUTPUT-YFZKNM,DAT1221NC LIKE WA_OUTPUT-YFZKNM.DATA : TMP1 LIKE BSEG-WRBTR,TMP2 LIKE BSEG-WRBTR,TMP3 LIKE BSEG-WRBTR.CLEAR : DAT1122NM, DAT1122NC,DAT1123NM, DAT1123NC,DAT2202NM, DAT2202NC,DAT2203NM, DAT2203NC,DAT2241NM, DAT2241NC,DAT2242NM, DAT2242NC,DAT1221NM, DAT1221NC,TMP1,TMP2,TMP3.**----------------------------------------------------*%货币资金年初%LOOP AT IT_OUTPUT INTO WA_OUTPUT.文件名：SEPC/ERP 项目试点组/自定义SELECT SUM ( FAGLFLEXT~HSLVT ) FROM FAGLFLEXTINTO WA_OUTPUT-HBZJNCWHEREFAGLFLEXT~RBUKRS = P_BUKRS ANDFAGLFLEXT~RYEAR = P_RYEAR ANDFAGLFLEXT~PRCTR IN P_PRCTR AND( FAGLFLEXT~RACCT LIKE '1001%' ORFAGLFLEXT~RACCT LIKE '1002%' ORFAGLFLEXT~RACCT LIKE '1012%') .MODIFY IT_OUTPUT FROM WA_OUTPUT. ENDLOOP .*%交易性金融资金年初%LOOP AT IT_OUTPUT INTO WA_OUTPUT.SELECT SUM ( FAGLFLEXT~HSLVT ) FROM FAGLFLEXTINTO WA_OUTPUT-JYXJRZJNCWHEREFAGLFLEXT~RBUKRS = P_BUKRS ANDFAGLFLEXT~RYEAR = P_RYEAR ANDFAGLFLEXT~PRCTR IN P_PRCTR ANDFAGLFLEXT~RACCT LIKE '1101%' .MODIFY IT_OUTPUT FROM WA_OUTPUT.ENDLOOP .*%应收票据年初%LOOP AT IT_OUTPUT INTO WA_OUTPUT.SELECT SUM ( FAGLFLEXT~HSLVT ) FROM FAGLFLEXTINTO TMP1WHEREFAGLFLEXT~RBUKRS = P_BUKRS ANDFAGLFLEXT~RYEAR = P_RYEAR ANDFAGLFLEXT~PRCTR IN P_PRCTR ANDFAGLFLEXT~RACCT LIKE '1121%'.SELECT SUM ( FAGLFLEXT~HSLVT ) FROM FAGLFLEXTINTO TMP2WHEREFAGLFLEXT~RBUKRS = P_BUKRS ANDFAGLFLEXT~RYEAR = P_RYEAR ANDFAGLFLEXT~PRCTR IN P_PRCTR ANDFAGLFLEXT~RACCT = '1231010000'.WA_OUTPUT-YSPJNC = TMP1 - TMP2.MODIFY IT_OUTPUT FROM WA_OUTPUT.CLEAR : TMP1,TMP2.ENDLOOP .*%应收股利年初%LOOP AT IT_OUTPUT INTO WA_OUTPUT.SELECT SUM ( FAGLFLEXT~HSLVT ) FROM FAGLFLEXTINTO TMP1WHEREFAGLFLEXT~RBUKRS = P_BUKRS ANDFAGLFLEXT~RYEAR = P_RYEAR ANDFAGLFLEXT~PRCTR IN P_PRCTR ANDFAGLFLEXT~RACCT LIKE '1131%'.SELECT SUM ( FAGLFLEXT~HSLVT ) FROM FAGLFLEXTINTO TMP2WHERE文件名：SEPC/ERP 项目试点组/自定义FAGLFLEXT~RBUKRS = P_BUKRS ANDFAGLFLEXT~RYEAR = P_RYEAR ANDFAGLFLEXT~PRCTR IN P_PRCTR ANDFAGLFLEXT~RACCT LIKE '123106%'.WA_OUTPUT-YSPJNC = TMP1 - TMP2.MODIFY IT_OUTPUT FROM WA_OUTPUT.CLEAR : TMP1,TMP2.ENDLOOP .*%应收利息年初%LOOP AT IT_OUTPUT INTO WA_OUTPUT.SELECT SUM ( FAGLFLEXT~HSLVT ) FROM FAGLFLEXTINTO TMP1WHEREFAGLFLEXT~RBUKRS = P_BUKRS ANDFAGLFLEXT~RYEAR = P_RYEAR ANDFAGLFLEXT~PRCTR IN P_PRCTR ANDFAGLFLEXT~RACCT LIKE '1132%'.SELECT SUM ( FAGLFLEXT~HSLVT ) FROM FAGLFLEXTINTO TMP2WHEREFAGLFLEXT~RBUKRS = P_BUKRS ANDFAGLFLEXT~RYEAR = P_RYEAR ANDFAGLFLEXT~PRCTR IN P_PRCTR ANDFAGLFLEXT~RACCT LIKE '123105%'.WA_OUTPUT-YSPJNC = TMP1 - TMP2.MODIFY IT_OUTPUT FROM WA_OUTPUT.CLEAR : TMP1,TMP2.ENDLOOP .*%应收帐款年初%LOOP AT IT_OUTPUT INTO WA_OUTPUT.SELECT SUM ( FAGLFLEXT~HSLVT ) FROM FAGLFLEXTINTO TMP1WHEREFAGLFLEXT~RBUKRS = P_BUKRS ANDFAGLFLEXT~RYEAR = P_RYEAR ANDFAGLFLEXT~PRCTR IN P_PRCTR ANDFAGLFLEXT~RACCT LIKE '1122%'.SELECT SUM ( FAGLFLEXT~HSLVT ) FROM FAGLFLEXTINTO TMP2WHEREFAGLFLEXT~RBUKRS = P_BUKRS ANDFAGLFLEXT~RYEAR = P_RYEAR ANDFAGLFLEXT~PRCTR IN P_PRCTR ANDFAGLFLEXT~RACCT LIKE '123102%'.SELECT SUM ( FAGLFLEXT~HSLVT ) FROM FAGLFLEXTINTO TMP3WHEREFAGLFLEXT~RBUKRS = P_BUKRS ANDFAGLFLEXT~RYEAR = P_RYEAR ANDFAGLFLEXT~PRCTR IN P_PRCTR ANDFAGLFLEXT~RACCT LIKE '2203%'.IF TMP1 > 0.IF TMP3 > 0.WA_OUTPUT-YFZKNC = TMP1 + TMP2 + TMP3.ELSE .文件名：SEPC/ERP 项目试点组/自定义WA_OUTPUT-YFZKNC = TMP1 + TMP2 .ENDIF .ELSE .IF TMP3 > 0. WA_OUTPUT-YFZKNC = TMP2 + TMP3.ELSE .WA_OUTPUT-YFZKNC = TMP2 .ENDIF .ENDIF .MODIFY IT_OUTPUT FROM WA_OUTPUT.CLEAR : TMP1,TMP2,TMP3.ENDLOOP .*%其他应收款年初%LOOP AT IT_OUTPUT INTO WA_OUTPUT.SELECT SUM ( FAGLFLEXT~HSLVT ) FROM FAGLFLEXTINTO TMP1WHEREFAGLFLEXT~RBUKRS = P_BUKRS ANDFAGLFLEXT~RYEAR = P_RYEAR ANDFAGLFLEXT~PRCTR IN P_PRCTR AND( FAGLFLEXT~RACCT LIKE '1013%'* OR FAGLFLEXT~RACCT LIKE '1221%'OR FAGLFLEXT~RACCT LIKE '123103%'OR FAGLFLEXT~RACCT LIKE '1313%'* OR FAGLFLEXT~RACCT LIKE '1304%').SELECT SUM ( FAGLFLEXT~HSLVT ) FROM FAGLFLEXTINTO TMP2WHEREFAGLFLEXT~RBUKRS = P_BUKRS ANDFAGLFLEXT~RYEAR = P_RYEAR ANDFAGLFLEXT~PRCTR IN P_PRCTR ANDFAGLFLEXT~RACCT LIKE '1221%'.SELECT SUM ( FAGLFLEXT~HSLVT ) FROM FAGLFLEXTINTO TMP3WHEREFAGLFLEXT~RBUKRS = P_BUKRS AND FAGLFLEXT~RYEAR = P_RYEAR ANDFAGLFLEXT~PRCTR IN P_PRCTR ANDFAGLFLEXT~RACCT LIKE '1304%'.IF TMP2 > 0.WA_OUTPUT-QTYSKNC = TMP1 + TMP2 - TMP3.ELSE .WA_OUTPUT-QTYSKNC = TMP1 - TMP3.ENDIF .CLEAR : TMP1,TMP2,TMP3.MODIFY IT_OUTPUT FROM WA_OUTPUT.ENDLOOP .*%预付款项年初%LOOP AT IT_OUTPUT INTO WA_OUTPUT.SELECT SUM ( FAGLFLEXT~HSLVT ) FROM FAGLFLEXTINTO TMP1文件名：SEPC/ERP 项目试点组/自定义WHEREFAGLFLEXT~RBUKRS = P_BUKRS ANDFAGLFLEXT~RYEAR = P_RYEAR ANDFAGLFLEXT~PRCTR IN P_PRCTR ANDFAGLFLEXT~RACCT LIKE '1123%'.SELECT SUM ( FAGLFLEXT~HSLVT ) FROM FAGLFLEXTINTO TMP2WHEREFAGLFLEXT~RBUKRS = P_BUKRS ANDFAGLFLEXT~RYEAR = P_RYEAR ANDFAGLFLEXT~PRCTR IN P_PRCTR ANDFAGLFLEXT~RACCT LIKE '2202%'.SELECT SUM ( FAGLFLEXT~HSLVT ) FROM FAGLFLEXTINTO TMP3WHEREFAGLFLEXT~RBUKRS = P_BUKRS ANDFAGLFLEXT~RYEAR = P_RYEAR ANDFAGLFLEXT~PRCTR IN P_PRCTR ANDFAGLFLEXT~RACCT LIKE '123104%'. WA_OUTPUT-YFKXNC = TMP1 - TMP3.IF TMP2 < 0. "2202期初余额为负时，则取反。