资产负债表和损益表开发.pdf

资产负债表和损益表，在 SAP标准系统中，可以通过事务代码E01执行；但其结果所取数据为SAP系统内的数据，需要根据实际情况进行修改和合并，并导出到EXCEL中。在事务代码OB58中，定义会计报表项目。此会计报表项目定义直接影响科目在报表上列式的位置步骤：1.从标准程序RFBILAOO拷贝一个ZRFBILAOO程序，为 ZRFBILAOO指定事务代码:ZF01.2.在 ZRFBILAOO主程序中搜索Submit：Submit将内表s c r_ d a ta 中的数据提交3 .S C R_d at a 的 结 构：BUKRS ERGSL BSUM VSUM公 司 代 码 财 务 码 当前值 比较值需要根据财务ob58配的财务版本修改SCR_DATA的数据4.在 Layout Set中，ERP+财务码 取出的数是当前数；ECP+财务码取出的数是比较数5.针对浪潮需要做如下修改：源程序部分：在 submit之前，添加以下程序段：*ad d e d by c 0 1 2 5*2 0 0 3.1 1.1 9*定义导出E x c e l的格式D A T A:B E G I N O F i t ab_s c i、O C C U RS 0,bu k r sL I K Es k bl-bu k r s,g s be rL I K Es k c l a-g s be r,e r g s lL I K Er f O l l q-e r g s l,t y p(l)T YP Ec,bs u mL I K Ebs e g-d m bt r,v s u mL I K Ebs e g-d m bt r,s al d oL I K Eam o u n t,A bs o l u t e A bw e i c h u n gr e l ab(1 6)T YP Ep D E C I M A L S 1,“Re l at i v e A bw e i c h u n gs t ar (5)T YP Ec,w ae r sL I K Et O O l-w ae r s,E N D O F i t ab_s c r.*根 据 财 务 要 求 修 改s c r _d at a,包括一些正负号和合并的要求L O O P A T s c r _d at a.i f S C R_D A T A-E RG S L =2 3 o rS C R_D A T A-E RG S L =2 6 o r*S C R_D A T A-E RG S L =3 3 o rS C R_D A T A-E RG S L =4 7 o rS C R_D A T A-E RG S L =1 1 2 o rS C R_D A T A-E RG S L(1)=6 o rS C R_D A T A-E RG S L =7 0 o rS C R_D A T A-E RG S L =7 3 o rS C R_D A T A-E RG S L =7 4 o rS C R_D A T A-E RG S L =1 1 4 o rS C R D A T A-E RG S L =7 1 o rS C R_D A T A-E RG S L=，7 2,o rS C R_D A T A-E RG S L=5 8 o rS C R_D A T A-E RG S L=，7 5 o rS C R_D A T A-E RG S L=7 6 o rS C R_D A T A-E RG S L=，7 7 o rS C R_D A T A-E RG S L=T 1 5 o rS C R_D A T A-E RG S L=，1 1 6 o rS C R_D A T A-E RG S L=，7 8 o rS C R_D A T A-E RG S L=，5 9,o rS C R_D A T A-E RG S L=，79o rS C R_D A T A-E RG S L=，5 6 o rS C R_D A T A-E RG S L=T 2 0 o rS C R_D A T A-E RG S L=8 0 o rS C R_D A T A-E RG S L=，1 1 8 o rS C R_D A T A-E RG S L=，1 1 7 o rS C R_D A T A-E RG S L=8 1 o rS C R_D A T A-E RG S L=8 2 o rS C R_D A T A-E RG S L=8 3 o rS C R_D A T A-E RG S L=8 4 o rS C R_D A T A-E RG S L=9 6 o rS C R_D A T A-E RG S L=，5 7 o rS C R_D A T A-E RG S L=1 0 4 o rS C R_D A T A-E RG S L=9 0 o rS C R_D A T A-E RG S L=9 1 o rS C R_D A T A-E RG S L=9 3 o rS C R_D A T A-E RG S L=9 9 o rS C R_D A T A-E RG S L=8 8 o rS C R_D A T A-E RG S LS C R_D A T A-E RG S L=8 6=5 o rS C R_D A T A-v s u m =S C R_D A T A-v s u m *T S C R_D A T A-bs u m =m o d i f y S C R_D A T A.e n d i f.S C R_D A T A-bs u m *T M O V E-C O RRE S P O N D I N G s c r _d at a T O i t ab_s c r.*i t ab_s c r-bs u m =i t ab_s c r-bs u m /1 0 0.*i t ab_s c r-v s u m =i t ab_s c r-v s u m /1 0 0.A P P E N D i t ab_s c r.E N D L O O P.*导出i t ab s c rP E RF O RM f r m _p r o c e s s _s c r _d at a.RE F RE S H i t ab_s c r.*根据l ay o u t 的名称选择是资产负债表逻辑，还是损益表逻辑。F O RM f r m p r o c e s s _s c r _d at a.I F s c r _f o r m =Z_B I L A _B A C N，.P E RF O RM f r m _ban l an c e _s h e e t.E L S E.I F s c r _f o r m =Z_B I L A _O 1，.P E RF O RM f r m p r o f i t.E N D I F.E N D I F.E N D F O RM.f r m _p r o c e s s _s c r _d at a*调整i t ab_e x c e l 的结构，并导出F O RM f r m _ban l an c e _s h e e t.RE F RE S H i t ab_e x c e l.i t ab_e x c e l-c o l 1 1i t ab_e x c e l-c o l l 2i t ab_e x c e l-c o l l 3i t ab_e x c e l-c o l l 4i t ab_e x c e l-c o l 2 1i t ab_e x c e l-c o l 2 2i t ab_e x c e l-c o l 2 3i t ab_e x c e l-c o l 2 4=项目=行次.二 年初数.=期末数.=项目=行次.=年初数.二 期末数.A P P E N D i t ab e x c e l.065款64，K5巾67 O5o673,662.一552646应55，579668661123债负动流据票守6款，,5帐款，T558产隆资短资掰弱德熊收坏款嚅Tl r嚼麻期付，短应着于:准222价跌Y资，投额,5期净收品资利费金，娱旗速交款应付他应预商工福税付，销付付交应代应应应，26,74S6526412O,9,&,，准款，款帐净 预付帐款 1 2 1 9 预提费用 6 2 7 4 ,应收补贴款 1 3 2 0 预计负债 6 3 T 1 4 ,应收出口退税 1 4 2 1 一年内到期的长期负债 6 4 7 1 ,存货，其中：其他流动负债 6 5A1V.木匚“匚口5?原八广在72678O781221 减：存货跌价准备T 9 2 9 存货净额 2 0 3 6 待摊费用 2 1 3 7 待处理流动资产净损失 2 2 3 8 一年内到期的长期债券投资 2 3 5 0 0 3 4 2 ,其他流动资产 2 4 4 0 流动资产合计 2 5 7 流动负债合计 6 6 5 8 ,长期投资：长期负债:长期股权投资 2 6 3 0 长期债券投资 2 7 3 1 长期投资合计 2 8 3 2 减：长期投资减值准备 长期投资净额 3 0 3 4 长期借款 6 7 7 5 ,应付债券 6 8 7 6 ,长期应付款 6 9 7 7 ,2 9 3 3 专项应付款 7 0 递延收益 7 1 T 1 6 ,1 1 5 ,其中：合并价差 3 1 3 5 其他长期负债 7 2 7 8 ,固定资产：长期负债合计 7 3 5 9 ,固定资产原价 3 2 4 6 递延税项：减：累计折旧 3 3 4 7 递延税款贷项 7 4 7 9 ,固定资产净值 3 4 T 1 3 减：固定资产减值准备 3 5 1 1 2 固定资产净额 3 6 4 1 工程物资 3 7 4 2 在建工程 3 8 4 3 固定资产清理 3 9 4 4 待处理固定资产净损失 4 0 4 5 负债合计 7 5 5 6 ,固定资产合计 4 1 9 少数股东权益 7 6 1 2 0 ,无形资产与其他资产：股东权益：，无形资产 4 2 4 8 股本 7 7 8 0 ,其中：土地使用权 4 3 5 2 减：已规还投资 7 8 1 1 8 ,开办费 4 4 4。股本净额 7 9 1 1 7 ,长期待摊费用 4 5 1 1 9 资本公积 8 0 8 1 ,其中：固定资产改良支出 4 6 5 4 盈余公积 8 1 8 2 ,其他长期资产 4 7 5 1 其中：公益金 8 2 8 3 ,无形资产与其他资产合计 4 8 1 0 未分配利润 8 3 8 4 ,递延税项 递延税款借项 4 9 5 5 股东权益合计 8 4 5 7 ,资产总计 5 0 6 负债及所有者权益合计 8 5 5 .*导出exc elC A L L F U N C T I O N D O W N L O A D E X P O R T I N Gfiletype=D A T filename=1 C:Z C F Z B.D A TT A B L E Sdata_ tab=itab_ exc elE X C E P T I O N Sinvalid_ filesize=1invalid_ tab1 e_ width=2invalid_ type=3no_ batc h=4unknown_ error=5gui_ refuse_ filetransfer=6c ustomer_ error=7O T H E R S=8.6.导出的文件是以Tab键分割的，为了方便财务使用，可以通过Excel宏编程，将数据显示为默认格式。程序如下：Sub auto_open()aulo_open()代表启动excel自动执行 如果不需要自动执行，则可以随便起名字Application.WindowState=xlMinimizedSet currentbook=Application.ActiveWorkbookold_page_name=currentbook.NameSheets(usheetln).Visible=True,Sheets(Msheetr,).Unprotect aaa，给模板加密，防止其他用户进行修改Workbooks.Open Filename:=uc:zcfzb.datn 打开头文件，头文件里面一般是凭证的抬头信息Windows(old_page_name).Activate将 zcfzb.dat的相应字段复制到模板中For i=5 To 58j 二 i-2Cells(i,3)=Val(Workbooks(Hzcfzb.dat).Sheets(,zcfzb).Cells(j,3)Cells(i,4)=Val(Workbooks(,zcfzb.dat).Sheets(,zcfzb,).Cells(j,4)Cells(i,7)=Val(Workbooks(,zcfzb.dat).Sheets(,zcfzb,).Cells(j,7)Cells(i,8)=Val(Workbooks(,zcfzb.dat).Sheets(,zcfzb).Cells(j,8)Next i 关掉头文件表、行项目表和初始模板表，剩下的就是所有的凭证表Windows(zcfzb.dat,).Close savechanges:=False*Windows(old_page_name).Close savechanges:=False 预览或者不预览直接打印,ActiveWorkbook.Printout Copies:=lActiveWorkbook.PrintOut Copies:=l,Preview:=True,Collate:=True,Sheets(nsheetl).Visible=xlVeryHidden 退出Application.QuitEnd Sub7.报表平衡判断：资产总额=负债总额+所有者权益总额资产负债表中本年利润应与损益表中本年的累计利润金额一致