ABAP实现本地化的资产负债表和损益表

ABAP实现本地化的资产负债表和损益表

1.设计思路：

SAP没有提供标准的符合中国标准的资产负债表和损益表，需要我们在系统中自

定义开发，我们在配置报表版本时都指定了

一个项目的编号，一个版本下面都有期其统驭的科目范围，我们可以根据这个项

目编号找到相应的科目范围，然后根据科目范围

获取科目借贷汇总的值。

SAP中资产负债表的配置图示：

L曰1资产Assets

一电io流动资产

一国1301子页付费用-待摊费J

i资金

一日1000货市资金一—

SKGCQ00020L201-0000203101xlxStartofGroup

SKGC000025L101-0000251101X|X银行存款-定期

—由1101交易性金融姿『

—由1121

——国1122

加账准备-应收账2

—由1122A

—由1123

—国

1132EndofGroup

1131竟鸭应收款

—□□1221

—由1400

一笨内到期的非清动资j

—031507

—由1499其他流动资F

一国1488A待处理财产损1

我们传统的资产负债表如下格式:

奥产行次期末余酸年初余额负焦和所有者权益（或股东权益）行次

流动生产：1”顶日洞号深动负债；1

货币资金21000/23,226,46452短期借款2

交易性金融资产31101-交易性金融负俵3

应收票据41121-应付票据4

应收咪款5112212,043,41357应付账款5

预付款项61123一预收款项6

应收利息71132―应付职工薪酬7

应收股利81131-应交税费8

其他应收款912215,559,091.62应付利息9

存货10140015,5€4,52846应付股利10

一年内到期的季淙动费产111507其他应付款11

其他流动费产121499一年内到期的非流动负债12

流动资产合计13C8+C1856,史3,498.17其他流动负债13

手美动资产：14―潦动负得合计14

可供出售金融资产151503李流动负俵：15

持有至到期投费161501长期借款16

我们可以在程序中用项目编号找到其下面的科目范围，然后取科目汇总值，因为

资产负债表是固定的，所以我们要

建立一个CBO表来存放各个具体的项目和在SAP中对应的项目编号。

最后要强调的是在资产负债表中未分配利润的计算：

未分配利润的期末余额二年初结转额（留存收益的上年余额）+今年截至到本月的

盈利额（利润表中有体现）

利润表的思路和资产负债表是一样的。

项目行次本期金籁累计金额

一、营业收入

114,625,999.39124,617,624.78

减：营业成本2

2,991,357.5428,620,869.50

营业税金及附加3

T

销售费用H

44,781,374.6551,372,031.90

管理费用

51,123,316.6110,288,635.08

财务费用

611,790.78-656,625.03

资产减值损失7

1,535,433.04

力口：公允价值变动收益（损失以号埴列）8-一

具体的代码实现：

*&*

*&CompanyCode:N207

*&module:FI

*&createby:rrzhang

*&createdate:2011.12.28

*&*

*&title:资产负债表，利润表

*&Description:资产负债表，利润表报表呈现

*&*

*&ChangeHistory

**

*C.RNo|Date|Developer|Description

**

*2012.01.lllccyu

**

REPORTzfir00026.

INCLUDEzfir00026_top.

INCLUDEzfir00026_cls.

INCLUDEzfir00026_f01.

INCLUDEzfir00026_o01.

INCLUDEzfir00026_i01.

INCLUDE<icon>.

INITIALIZATION.

py=sy-datum+0(4).

p_m=sy-datum+4(2).

ATSELECTTON-SCREENOUTPUT.

PERFORMsetclisUSINGp_rpv.

IFcISINITIAL.

PERFORMsetlist.

gv_name='爱思开实业(上海)商贸有限公司合并财务报表版本'.

c='X'.

gv_rp='资产负债表'.

ELSE.

PERFORMsetpegUSINGp_rpv.

CASEprpv.

WHEN'2070'.

gv-name='爱思开实业（上海）商贸有限公司合并财务报表版本'.

WHEN'2071'.

gv_name=’爱思开实业（上海）商贸有限公总部财务报表版本’.

WHEN'2072'.

gv_name='爱思开实业（上海）商贸有限公司直营店财务报表版本'.

WHEN'2073'.

gv_name=".

ENDCASE.

IFp_rp='BS'.

gv_rp='资产负债表'.

ELSE.

gv_rp='利润表’.

ENDTF.

END1I-.

START-OF-SELECTTON.

PERFORMsynchrodata.

PERFORMgct_datal.

*&*

*&IncludeZFIR00026_T0P

*&*

*Datadefinition

TYPE-POOLSvrm.

TABLES:fag!flexa.

“同步数据用的凭证抬头表

DATA:BEGINOFgt_bkpfsynOCCURS0,

gjahrLIKEbkpf-gjahr,

bukrsLIKEbkpf-bukrs,

belnrLIKEbkpf-belnr,

ENDOFgtbkpfsyn.

DATAly(4)TYPEn.

“同步数据用的凭证行项目表(bseg)

DATA:BEGINOFgt_bsegsynOCCURS0,

gjahrLIKEbseg-gjahr,

bukrsLIKEbseg-bukrs,

belnrLIKEbseg-belnr,

prctrLIKEbseg-prctr,

pprctLIKEbseg-pprct,

buzeiLIKEbseg-buzei,

ENDOFgt_bsegsyn.

DATA:BEGINOFgt_fagasynOCCURS0.

INCLUDESTRUCTUREfaglflexa.

DATA:ENDOFgt_fagasyn.

TYPES:ch(3)TYPEc,

cf(4)TYPEc,

cgcp(12)TYPEc,

ok_codeLIKEsy-uconm.

DATA:c,d,

gvbsTYPEukurs_currVALUE1,“倍数

gv_iden(2).

“要显示的资产负债表

DATA:BEGINOFgt_alv_bsOOCCURS0,

IctlTYPEinti,

itemlTYPEzitem,

yamtlTYPEhslvtl2,

ysamtlTYPEhslvt12,

lct2TYPEinti,

item2TYPEzitem,

yamt2TYPEhslvtl2,

ysamt2TYPEhslvtl2,

waersLIKEtOOl-waers,

ENDOFgt_alvbsO.

DATA:BEGINOFgt_bsOCCURS0,

ukursTYPEukurscurr,

gdatuTYPEgdatu_inv,

ENDOFgtbs.

DATA:gv_mf(5).Themonthfield

*Thereportversionaccountinformation.

“要显示的利润表

DATA:BEGINOFgt_alv_is0OCCURS0,

letTYPEinti,

itemTYPEzitem,

yamtLIKEfaglflext-hslvt,本年累计数

mamtLIKEfaglflext-hslvt,ff本月累计数

waersLIKE1001-waers,

ENDOFgt_alv_is0.

“下载数据的内表

DATA:BEGINOFgt_alv_is01OCCURS0,

letTYPEinti,

itemTYPEzitem,

yamtLIKEfaglflext-hslvt,w本年累计数

mamtLIKEfaglflext-hslvt,本月累计数

ENDOFgt_alv_is01.

*利润表下钻数据内表

*->2012.01.16CCYUSTART

DATA:BEGINOFgt_skatOCCURS0,

saknrLIKEskat-saknr,

txt50LIKEskat-txt50,

ENDOFgt_skat.

*<-2012.01.16CCYUEND.

DATA:BEGINOFgOlvis_dplOCCURS0,

racctLIKEfaglflexa-racct,

*->2012.01.16CCYUSTART

txt50LIKEskat-txt50,

*<-2012.01.16CCYUEND.

hslLIKEfaglflexa-hsl,

ENDOFgt_alv_is_dpl.

*利润表下钻数据内表

DATA:BEGINOFgt_alv_bs_dplOCCURS0,

racctLIKEfaglflexa-racct,

*->2012.01.16CCYUSTART

txt50LIKEskat-txt50,

*<-2012.01.16CCYUEND.

hslLIKEfaglflexa-hsl,

ENDOFgtalvbsdpi.

DATA:BEGINOFgt_alv_bs_dp2OCCURS0,

racctLIKEfaglflexa-racct,

*->2012.01.16CCYUSTART

txt50LIKEskat-txt50,

*<-2012.01.16CCYUEND.

hslLIKEfaglflexa-hsl,

ENDOFgt_alv_bs_dp2.

TYPES:BEGINOFgs_alv_bs_dp_obj,

racctLIKEfaglflexa-racct,

*->2012.01.16CCYUSTART

txt50LIKEskat-txt50,

*<-2012.01.16CCYUEND.

hslLIKEfaglflexa-hsl,

ENDOFgs_alv_bs_dp_obj.

DATA:gs_alv_bs_dp_obj1TYPEgs_a1v_bs_dp_obj.

TYPES:gt_alv_bs_dpTYPESTANDARDTABLEOFgs_alv_bs_dp_obj.

*利润表下钻临时数据内表

DATA:BEGINOFgt_alv_is_dp2OCCURS0,

racctLIKEfaglflexa-racct,

*->2012.01.16CCYUSTART

txt50LIKEskat-txt50,

*<-2012.01.16CCYUEND.

hslLIKEfaglflexa-hsl,

ENDOFgt_alv_is_dp2.

DATA:BEGINOFgtfaglOllzcOCCURS0,

versnLIKEfagl_01Izc-versn,

ergslLIKEfagl_01Izc-ergsl,

txt45LIKEfagl_011qt-txt45,

vonktLIKEfagl_011zc-vonkt,

bisktLIKEfagl_Ollzc-biskt,

ENDOFgt_fagl_011zc.

DATA:BEGINOFgt_fagl,OllqtOCCURS0,

ergslLIKEfagl_011qt-ergsl,

txt45LIKEfagl011qt-txt45,

ENDOFgt_fagl_011qt.

DATA:BEGINOFgtrnant_isOCCURS0,

amtLIKEfaglflext-hslvt,

ENDOFgt_mamt_is.

RANGESgr_actFORfaglflext-racct.

DATA:BEGINOFgt_monvOCCURS0,

month(2)TYPEn,

valueLIKEfaglflext-hslvt,

ENDOFgt_monv.

DATA:BEGINOFgs_hsl,

hslOlLIKEfaglflext-hslvt,

hs102LIKEfaglflext-hslvt,

hs103LIKEfaglflext-hslvt,

hsl04LIKEfaglflext-hslvt,

hsl05LIKEfaglflext-hslvt,

hsl06LIKEfaglflext-hslvt,

hs107LIKEfaglflext-hslvt,

hsl08LIKEfaglflext-hslvt,

hs109LIKEfaglflext-hslvt,

hsllOLIKEfaglflext-hslvt,

hslllLIKEfaglflext-hslvt,

hsll2LIKEfaglflext-hslvt,

ENDOFgs_hsl.

DATA:BEGINOFgs_hsll,

hslOlLIKEfaglflext-hslvt,

hslO2LIKEfaglflext-hslvt,

hsl03LIKEfaglflext-hslvt,

hs104LIKEfaglflext-hslvt,

hsl05LIKEfaglflext-hslvt,

hsl06LIKEfaglflext-hslvt,

hsl07LIKEfaglflext-hslvt,

hs108LIKEfaglflext-hslvt,

hsl09LIKEfaglflext-hslvt,

hsllOLIKEfaglflext-hslvt,

hslllLIKEfaglflext-hslvt,

hsll2LIKEfaglflext-hslvt,

hslvtLIKEfaglflext-hslvt,

END01'gs_hsll.

DATA:gs_alvisTYPEREFTOcl_gui_alvgrid,nthealvobjectforisreport

gs_alv_bsTYPEREFT'Ocl_gui_alv_grid,“thealvobjectforbsreport

gsalvisdpiTYPEREFTOclguialvgrid,"thealvobjectforbsreport

gs_alv_bs_dplTYPEREFTOcl_gui_alv_grid,“thealvobjectforbsreport

gs_conTYPEREFTOcl_gui_customcontainer,wthecontianerobject

gs_conlTYPEREFTOcl_gui_custom_container,wthecontianerobject

gs_layoutTYPElvc_s_layo,wsetthelayoutofthealv

gt_fieldcatTYPElvc_t_fcat,wthefieldcatelogtable

gs_fieldcatTYPElvc_s_fcat,thefieldcatelogworkarea

gtoolbarTYPEui_functions,“thetoolbarofthealv

g_toolbarlTYPEui_functions,“thetoolbarofthealv

gt_sortTYPElvc_t_sort,ncontrolthesortofthealv

gs_sortTYPElvc_s_sort.theworkareaofthegt_sort

DATA:gsdyndoc_idTYPEREFTOcldddocument,

gs_dyndoc_idlTYPEREFTOcl_dd_document,

gs_splitterTYPEREFTOcl_gui_splitter_container,

gs_parent_htmlTYPEREFTOcl_gui_container,

gs_parcnt_gridTYPEREFTOcl_gui_containcr,

gs_splitterlTYPEREFTOcl_gui_splitter_container,

gs_parent_htmllTYPEREFTOcl_gui_container,

gs_parent_gridlTYPEREFTOcl_gui_container,

gs_html_cntrlTYPEREFTOcl_gui_html_viewer.

"SCREENDEFINE

DATAokcode.

*->2012.01.17CCYUSTART

DATA:BEGINOFgtheadlOCCURS0,

tl(6),

t2(20),

t3(20),

t4(20),

t5(6),

t6(20),

t7(20),

t8(20),

ENDOFgt_headl.

DATA:BEGINOFgt_head2OCCURS0,

tl(6),

t2(20),

t3(20),

t4(20),

ENDOFgt_head2.

DATA:BEGINOFgt_alv_bs01OCCURS0,

IctlTYPEinti,

itemlTYPEzitem,

yamtlTYPEhslvtl2,

ysamtlTYPEhslvtl2,

lct2TYPEinti,

item2TYPEzitem,

yamt2TYPEhslvt12,

ysamt2TYPEhslvt12,

ENDOFgt_alvbsOl.

*<-2012.01.17CCYUEND.

SELECTTON-SCREENBEGINOFBLOCKblkWITHFRAMETITLEtext-001.

“公司代码

SELECTION-SCREENBEGINOFLINE.

SELECTION-SCREENPOSITION1.

SELECTION-SCREENCOMMENT(79)text-002.

SELECTION-SCREENENDOFLINE.

“Currency

SELECTTON-SCREENBEGINOFLINE.

SELECTION-SCREENPOSITION

1.“从位置1开始输出

SELECTION-SCREENCOMMENT(7)text-003FORFIELDp_curr.

SELECTION-SCREENPOSITION15.

PARAMETERSp_currTVPEchASLISTBOXVISIBLELENGTH12OBLIGATORY

DEFAULT'CNY'.

SELECTION-SCREENENDOFLINE.

reportversion

SELECTION-SCREENBEGINOFLINE.

SELECTION-SCREENPOSITION1.

SELECTION-SCREENCOMMENT(9)text-004FORFIELDp_rpv.

SELECTTON-SCREENPOSITION15.

PARAMETERSp_rpvTYPEcfASLISTBOXVISIBLELENGTH12USER-COMMANDdp

OBLIGATORYDEFAULT'2070'.

SELECTION-SCREENPOSITION28.

SELECTION-SCREENCOMMENT(60)gv_name.

SELECTTON-SCREENENDOFLINE.

uprofitcentergroup

SELECTTON-SCREENBEGINOFLINE.

SELECTION-SCREENPOSITION1.

SELECTION-SCREENCOMMENT(12)text-005FORFIELDppeg.

SELECTION-SCREENPOSITION15.

PARAMETERSp_pcgTYPEegepASLISTBOXVISIBLELENGTH12USER-COMMANDdpi

OBLIGATORY.

SELECTTON-SCREENENDOFLINE.

“profitcenter

SELECTION-SCREENBEGINOFLINE.

SELECTION-SCREENPOSITION1.

SELECTION-SCREENCOMMENT(12)text-006FORFIELDp_pc.

SELECTION-SCREENPOSITION15.

PARAMETERSp_pcTYPEegepASLISTBOXVISIBLELENGTH12MODIFIDpc.

SELECTTON-SCREENENDOFLINE.

“REPROT

SELECTTON-SCREENBEGINOFLINE.

SELECTION-SCREENPOSITION1.

SELECTION-SCREENCOMMENT(12)text-007FORFIELDp_rp.

SELECTION-SCREENPOSITION15.

PARAMETERSp_rpTYPEegepASLISTBOXVISIBLELENGTH12USER-COMMANDrp

OBLIGATORYDEFAULT'BS'.

SELECTTON-SCREENCOMMENT(12)gvrp.

SELECTIONSCREENENDOFLINE.

“YEAR

SELECTTON-SCREENBEGINOFLINE.

SELECTION-SCREENPOSITION1.

SELECTTON-SCREENCOMMENT(12)text-008FORFIELDpy.

SELECTION-SCREENPOSITION15.

PARAMETERSp_y(4)TYPEnOBLIGATORY.

SELECTION-SCREENENDOFLINE.

“MONTH

SELECTION-SCREENBEGINOFLINE.

SELECTION-SCREENPOSITION1.

SELECTTON-SCREENCOMMENT(12)text-009FORFIELDpm.

SELECTION-SCREENPOSITION15.

*PARAMETERSPM(2)TYPENOBLIGATORY.

*->2012.01.11ccyuSTART

PARAMETERSpin(3)TYPEnASLISTBOXVISIBLELENGTH4OBLIGATORY.

*<-2012.01.11ccyuEND.

SELECTION-SCREENENDOFLINE.

SELECTION-SCREENENDOFBLOCKblk.

极*

*&*

*&ClassLCL_APP_COMPT

*&*

*theeventhandlerclassforalv

**

CLASSLCLAPPCOMPTDEFINITION.

PUBLICSECTION.

*thefunctionhandletoolbarwhichhandlethetoolbareventofthealv

METHODS:HANDLE_TOOLBARFOREVENTTOOLBAR

OFCL_GUIALVGRID

IMPORTINGE_OB.JECT

E_INTERACTIVE.

*thefunctionhand1e_user_commandwhichhandletheuser_command

*eventofthealv

METHODS:HANDLE_USER_COMMANDFOREVENTUSER_COMMAND

OFCL_GUI_ALV_GRID

IMPORTINGE_UCOMM.

*thefunctionhand1e_topofpagewhichhandlethetopofpage

METHODS:HANDLETOPOFPAGEFOREVENTTOPOFPAGE

OFCL_GUI_ALV_GRID

IMPORTINGEDYNDOC.ID.

"handlethehotspot_click事件

METHODS:HANDLE_HOTSPOT_CLICKFOREVENTHOTSPOT^CLICK

OFCL_GUI_ALV_GRID

IMPORTINGE_ROW_IDE_COLUMN_IDES_ROW_NO.

ENDCLASS.“LCL_APP_COMPT

*&IncludeZOOALV_CLS

*

*&*

*&*

*&Class(Implementation)lcl_app_compt

*&*

*implementation:foralv

**

CLASSLCLAPPCOMPTIMPLEMENTATION.

METHOD:HANDLE_TOOLBAR.

PERFORMMODIFY_TOOLBARUSINGEOBJECT”.

ENDMETHOD.”：

METHOD:HANDLE_USER_COMMAND.

PERFORMFM_USER_COMMANDUSINGE_UCOMM.

ENDMETHOD.nhandle_user_command

*TOPOFPAGE

METHOD:HANDLE_TOPOFPAGE.

PERFORMFMADDTOPOFPAGEUSINGEDYNDOCID.

ENDMETIIOD.”handle_topofpage

METHOD:HANDLEHOTSPOTCLICK.

PERFORMDR1LLDOWN1S1USINGE_ROW_IDE_COLUMN_IDES_ROW_NO.

ENDMETHOD.nHANDLE_HOTSPOT_CLICK

ENDCLASS.lcl_app_compt

*&*

*&IncludeZFIR00026_F01

*&*

*&*

*&FormSETLIST

*&*

*text

*•_*

*->pltext

*<-p2text

**

FORMsetlist.

DATA:itabTYPESTANDARDTABLEOFvrm_value,

lineTYPEvrm_value.

CLEARitab[].

line-key='CNY'.

line-text='CNY'.

APPENDlineTOitab.

line-key=<KRW,.

line-text='KRW'.

APPENDlineTOitab.

CALLFUNCTION'VRMSETVALUESJ

EXPORTING

id='P_CURR'

values=itab[],

CLEARitab[].

CLEARline.

line-key='2070'.

line-text='2070'.

APPENDlineTOitab.

line-key='2071'.

line-text='2071’.

APPENDlineTOitab.

line-key=‘2072’.

line-text='2072’.

APPENDlineTOitab.

line-key='2073’.

line-text='2073'.

APPENDlineTOitab.

CALLFUNCTION'VRM_SET_VALUES'

EXPORTING

id=<P_RPV,

values=itab[].

IFp_pcgISINITIAL.

CLEARitab[].

CLEARline.

line-key='N207'.

line-text='N207'.

APPENDlineTOitab.

CALLFUNCTION<VRM_SET_VALUES,

EXPORTING

id='P_PCG'

values=itab[].

ENDTF.

CLEARitab[].

CLEARline.

line-key='BS

line-text='BS'.

APPENDlineTOitab.

line-key='IS'.

line-text='TS'.

APPENDlineTOitab.

CALLFUNCTION4VRMSETVALUES'

EXPORTING

id='P_RP'

values=itab[].

*->2012.01.11CCYUSRART

CLEARitab[].

CLEARline.

line-key='01'.

line-text='01'.

APPENDlineTOitab.

line-key='02'.

line-text='02'.

APPENDlineTOitab.

line-key='03'.

line-text='03'.

APPENDlineTOitab.

line-key='04'.

line-text='04'.

APPENDlineTOitab.

line-key='05'.

line-text='05'.

APPENDlineTOitab.

line-key='06'.

line-text='06'.

APPENDlineTOitab.

line-key='07'.

line-text='07'.

APPENDlineTOitab.

line-key='08'.

line-text='08'.

APPENDlineTOitab.

line-key='09'.

line-text='09'.

APPENDlineTOitab.

line-key='10’.

line-text='10'.

APPENDlineTOitab.

line-key='ll',

line-text='ll'.

APPENDlineTOitab.

line-key='12'.

line-text='12'.

APPENDlineTOitab.

CALLFUNCTION'VRMSETVALUES'

EXPORTING

id='P_M'

values=itab[].

”IFP_PCGISINITIAL.

”CLEARTTAB[].

”CALLFUNCT1ON'VRM_SET_VALUES'

"EXPORTING

"ID<P_PC,

"VALUES=ITAB[].

”ELSE.

PERFORMsetpegUSINGp_rpv.

"ENDIF.

*<-2012.01.11CCYUEND.

ENDFORM.”SETLIST

*&*

*&FormSETPCG

*&*

*text

**

*SETTHEPROFITCENTERGROUP

**

FORMsetpegUSINGp.

DATA:itabTYPESTANDARDTABLEOFvrm_value,

lineTYPEvrm_value.

CLEAR:itab[],line.

“CLEARp_pcg.

IFp='2070'.

line-key='N207'.

line-text='N207'.

APPENDlineTOitab.

CALLFUNCTION'VRM_SET_VALUES'

EXPORTING

id='P_PCG'

values=itab[].

p_pcg='N207'.

CLEARitab[].

”APPENDLINETOITAB.

CALLFUNCTION'VRM_SET_VALUES'

EXPORTING

id='P_PC'

values=itab[].

CLEARd.

ELSE.

CLEARitab[].

CLEARp_pc.

CALLFUNCTION'VRM_SET_VALUES'

EXPORTING

id='PPC'

values=itab[].

IFdISINITIAL.

SELECTDISTINCTsetnameASkeysetnameAStextFROMsetleaf

INTOCORRESPONDINGFIELDSOFTABLEitab

WHEREsubclass='N207'ANDsetclass='0106'.

IFitab[]ISNOTINITIAL.

CALLFUNCTION'VRMSETVALUES'

EXPORTING

id=<P_PCG,

values=itab[].

READTABLEitabINTOlineINDEX1.

p_pcg=line-key.

CLEARitab[].

SELECTDISTINCTvalfromASkeyvalfromAStextFROMsetleaf

INTOCORRESPONDINGFIELDSOFTABLEitab

WHEREsubclass='N207'ANDsetname=ppegANDsetclass='0106'.

IFitab[]ISNOTINITIAL.

CALLFUNCTION'VRMSETVALUESJ

EXPORTING

id='P_PC'

values=itab[],

ENDIF.

d='X'.

ENDIF.

ELSE.

SELECTDISTINCTvalfromASkeyvalfromAStextFROMsetleaf

INTOCORRESPONDINGFIELDSOFTABLEitab

WHEREsubclass'N207'ANDsetname=p_pcgANDsetclass='0106’.

IFitab[]ISNOTINITIAL.

CALLFUNCTION'VRMSETVALUES'

EXPORTING

（

id二PPC'

values=itab[].

ENDIF.

CLEARitab[].

ENDIF.

ENDIF.

ENDFORM.”SETPCG

*&*

*&FormSETDIS

*&*

*setthedisableoftheprofitcenter

**

*->PPRPVtext

*一*

FORMsetdisUSINGp.

LOOPATSCREEN.

IFp='2070'.

IFscreen-groupl='PC'.

screen-input='O'.

ENDIF.

ENDTF.

MODIFYSCREEN.

ENDLOOP.

ENDFORM."SETDIS

*&*

*&FormGETDATA

*&*

*text

**

*->pltext

*<-p2text

**

FORMget_datal.

PERFORMgetrv."获取报表项目对应的科目范围

ENDFORM.”GETDATA

*&*

*&FormGETRV

*&*

*getthereportitemandtheaccountrange

**

*->pltext

*<-p2text

**

FORMgetrv.

CLEARgt_fagl_011zc[].

SELECTversn

ergsl

vonkt

biskt

FROMfagl_011zcINTOCORRESPONDINGFIELDSOFTABLEgt_fagl_01Izc

WHEREversn=prpv.

IFgt_fagl_011zc[]ISNOTINITIAL.

SELECTDISTINCTergsl

txt45

INTOCORRESPONDINGFIELDSOFTABLEgt_fagl_011qt

FROMfagl_011qtFORALLENTRIESINgt_fagl_01Izc

WHEREversn=p_rpvANDergsl=gt_fagl_011zc-ergs1.

IFgt_fagl_011qt[]ISNOTINITIAL.

SORTgt_fagl_01IqtBYergsl.

LOOPATgt_fagl_011zc.

READTABLEgt_fagl_01IqtWITHKEYergsl=gt_fagl_01Izc-ergslBINARY

SEARCH.

IFsy-subrc=0.

gt_fagl_01lzc-txt45=gt_fagl_01lqt-txt45.

ENDIF.

MODIFYgt_fagl_011zc.

ENDLOOP.

ENDIF.

IFp_curr='KRW'.

PERFORMgetbs.

ENDIF.

ly=p_y-1.”取去年

CALLFUNCT1ON'CONVERSION_EX1T_ALPHA_INPUT'

EXPORTING

input=p_m

IMPORTING

output=p_m.

IFp_rp='BS'.

CLEARgt_alv_bsO[].

PERFORMsctbsitcm.

SORTgt_alv_bsOBYIctlASCENDING.

DATA:lv_pro(10)TYPEpDECIMALS2VALUE'3’，

lv_i(10)TYPEpDECZMALS2VALUE’3’.

“为核算固定资产等项目设置的临时变量

DATA:al601_1TYPEhslvtl2,

a!601_2TYPEhslvt12,

al602_lTYPEhslvtl2,

al602_2TYPEhslvt12,

al603_lTYPEhslvtl2,

al603_2TYPEhslvtl2,

a4001_lTYPEhslvtl2,

a4001_2TYPEhslvtl2,

a3103_lTYPEhslvtl2,

a3103_2TYPEhslvtl2,

a4104_lTYPEhslvt12,

a41042TYPEhslvtl2,

a4102_lTYPEhslvt12,

a4102_2TYPEhslvt12,

al3yamtlTYPEhslvt12,

al3ysamtlTYPEhslvtl2,

al4yamt2TYPEhslvt12,

al4ysamt2TYPEhslvtl2,

a23yamt2TYPEhslvt12,

a23ysamt2TYPEhslvtl2,

a24yamt2TYPEhslvt12,

a24ysamt2TYPEhslvtl2,

a31yamt2TYPEhslvt12,

a31ysamt2TYPEhslvtl2,

a32yamtlTYPEhslvt12,

a32ysamtlTYPEhslvtl2,

a33yamtlTYPEhslvt!2,

a33ysamtlTYPEhslvll2,

a33yamt2TYPEhslvt!2,

a33ysamt2TYPEhslvtl2,

a30yamt2TYPEhslvt12,

a30ysamt2TYPEhslvtl2,

a26yamt2TYPEhslvt12,

a26ysamt2TYPEhslvtl2,

a27yamt2TYPEhslvt12,

a27ysamt2TYPEhslvtl2,

a29yamt2TYPEhslvt12,

a29ysamt2TYPEhslvtl2.

“构造科目查询范围的查询条件

LOOPATgt_alvbsO.

IFgt_alv_bsO-iteml='货币资金，.

PERFORMgetbsamtUSING:gtalvbsO-yamtlgtalvbsO-ysamtl'1000'ly,

gt_alv_bs0-yamt2gt_alv_bs0-ysamt2"2001'ly.

ELSEIFgt_alv_bsO-iteml='交易性金融资产'.

PERFORMgetbsamtUSING:gt_alv_bsO-yamtlgt_alv_bsO-ysamt1'1101'ly,

gt_alv_bs0-yamt2gt_alv_bs0-ysamt2'2010'ly.

ELSEIFgt_alv_bsO-iteml=，应收票据，.

PERFORMgetbsamtUSING:gt_alv_bsO-yamtlgt_alvbsO-ysamt1'1121'ly,

gt_alvbs0-yamt2gt_alvbs0-ysamt2'2201'ly.

ELSEIFgt_alv_bsO-iteml='应收账款'.

PERFORMgetbsamtUSING:gt_alv_bsO-yamtlgt_alv_bsO-ysamt1'1122'ly,

gt_alv_bs0-yamt2gt_alv_bs0-ysamt2'2202'ly.

ELSEIFgt_alv_bsO-iteml='预付款项，.

PERFORMgetbsamtUSING:gt_alv_bsO-yamtlgt_alv_bsO-ysamt1'1123'ly,

gt_alv_bs0-yamt2gt_alv_bs0-ysamt2'2203'ly.

ELSEIFgt_alv_bsO-iteml='应收利息，.

PERFORMgetbsamtUSING:gt_a1vbsO-yamt1gt_alvbsO-ysamt1'1132'ly,

gt_alv_bs0-yamt2gt_alv_bs0-ysamt2'2211'ly.

ELSEIFgt_alv_bsO-iteml='应收股利'.

PERFORMgetbsamtUSING:gt_alvbsO-yamtlgt_alvbsO-ysamt1'1131'ly,

gt_alv_bs0-yamt2gt_alv_bs0-ysamt2'2221'ly.

ELSEIFgt_alvbsO-iteml=，其他应收款'.

PERFORMgetbsamtUSING:gt_alv_bsO-yamtlgt_alv_bsO-ysamt1'1221'ly,

gt_alv_bsO-yamt2gt_alv_bs0-ysamt2'2231'ly.

ELSEIFgt_alv_bsO-iteml=，存货'.

PERFORMgetbsamtUSING:gt_alv_bsO-yamt1gt_alvbsO-ysamt1'1400'ly,

gtalvbs0-yamt2gtalvbs0-ysamt2'2232'ly.

ELSEIFgt_alv_bsO-iteml=，一年内到期的非流动资产，.

PERFORMgetbsamtUSING:gt_alvbsO-yamt1gt_alvbsO-ysamtl'1507'ly,

gt_alv_bsO-yamt2gt_alv_bs0-ysamt2'2241'ly.

ELSEIFgt_alv_bsO-iteml=，其他流动资产'.

PERFORMgetbsamtUSING:gt_alv_bsO-yamtlgt_alv_bsO-ysamt1'1499'ly,

gt_alv_bs0-yamt2gt_alv_bsQ-ysamt2'2240'ly.

ELSEIFgt_alvbsO-iteml='流动资产合计，.

PERFORMgetbsamtUSINGgt_alv_bs0-yamt2gt_alv_bs0-ysamt2'2222'ly.

ELSEIFgt_alv_bsO-iteml='可供出售金融资产'.

PERFORMgetbsamtUSING:gt_alv_bsO-yamtlgt_alvbsO-ysamt1'1503'ly.

ELSEIFgt_alvbsO-iteml='持有至到期投资'.

PERFORMgetbsamtUSING:gt_alv_bsO-yamtlgt_alv_bsO-ysamt1'1501'ly,

gt_alv_bs0-yamt2gt_alv_bs0-ysamt2'2501'ly.

ELSEIFgt_alv_bsO-iteml=，长期应收款'.

PERFORMgetbsamtUSING:gt_alv_bsO-yamt1gt_alvbsO-ysamt1'1504'ly,

gt_alv_bs0-yamt2gt_alv_bs0-ysamt2'2502'ly.

ELSEIFgt_alv_bsO-iteml=，长期股权投资'.

PERFORMgetbsamtUSING:gt_alvbsO-yamtlgt_alvbsO-ysamt1'1511'ly,

gt_alv_bs0-yamt2gt_alv_bs0-ysamt2'2701'ly.

ELSEIFgt_alvbsO-iteml='投资性房地产'.

PERFORMgetbsamtUSING:gt_alv_bsO-yamtlgt_alv_bsO-ysamt1'1521'ly,

gt_alv_bsO-yamt2gt_alv_bs0-ysamt2'2711'ly.

ELSEIFgt_alv_bsO-iteml='固定资产，.

CLEAR:al601_l,al601_2,a1602_i,al602_2,al603_l,al603_2.

PERFORMgetbsamtUS：NG:al6011al6012'1601'ly,

al602_lal602_2'1602'ly,

al603_lal603„2‘1603'ly,

gt_alv_bsO-yamt2gt_alv_bs0-ysamt2'2801'ly.

gt_alvbsO-yamt1=al601_l+al602_l+al603_l.

gt_alv_bsO-ysamt1=al601_2+al602_2+al603_2.

ELSEIFgt_alv_bsO-iteml='在建工程’.

PERFORMgetbsamtUSING:gt_alvbsO-yamtlgt_alvbsO-ysamt1'1604'ly,

gt_alv_bs0-yamt2gt_alv_bs0-ysamt2'2901'ly.

ELSEIFgt_alv_bsO-iteml='工程物资'.

PERFORMgetbsamtUSING:gt_alv_bsO-yamtlgt_alvbsO-ysamt1'1605'ly,

gtalvbs0-yamt2gtalvbs0-ysamt2'2000'ly.

ELSEIFgt_alv_bsO-iteml='固定资产清理，.

PERFORMgetbsamtUSING:gt_a1vbsO-yamt1gt_alv_bsO-ysamtl'1606'ly.

ELSEIFgt_alv_bsO-iteml='无形资产'.

PERFORMgetbsamtUSING:gt_alv_bsO-yamt1gt_alvbsO-ysamt1'1701'ly,

a4001_la4001_2'4001'ly,

a3103_la3103_243103/ly.

gt_alv_bs0-yamt2=a4001_1+a3103_l.

gt_alv_bs0-ysamt2=a4001_2+a3103_2.

ELSEIFgt_alvbsO-iteml='开发支出，.

PERFORMgetbsamtUSING:gt_alv_bsO-yamtlgt_alv_bsO-ysamt1'1710'ly,

gt_alv_bsO-yamt2gt_alv_bs0-ysamt2'4002'ly.

ELSEIFgt_alv_bsO-iteml='商誉，.

PERFORMgetbsamtUS