资产负债表和损益表开发

资产负债表和损益表，在SAP标准系统中，可以通过事务代码E01执行；但其结果所取数

据为SAP系统内的数据，需要根据实际情况进行修改和合并，并导出到EXCEL中。

在事务代码OB58中，定义会计报表项目。此会计报表项目定义直接影响科目在报表上列式

的位置

步骤：

1.从标准程序RFBILAOO拷贝一个ZRFBILAOO程序，为ZRFBILAOO指定事务代码:ZF01.

2.在ZRFBILAOO主程序中搜索Submit：Submit将内表scr_data中的数据提交

3.SCR_data的结构：

BUKRSERGSLBSUMVSUM

公司代码财务码当前值比较值

需要根据财务ob58配的财务版本修改SCR_DATA的数据

4.在LayoutSet中，ERP+财务码取出的数是当前数；

ECP+财务码取出的数是比较数

5.针对浪潮需要做如下修改：

源程序部分：

在submit之前，添加以下程序段：

*addedbyc0125

*2003.11.19

*定义导出Excel的格式

DATA:BEGINOFitab_sci、OCCURS0,

bukrsLIKEskbl-bukrs,

gsberLIKEskcla-gsber,

ergslLIKErfOllq-ergsl,

typ(l)TYPEc,

bsumLIKEbseg-dmbtr,

vsumLIKEbseg-dmbtr,

saldoLIKEamount,AbsoluteAbweichung

relab(16)TYPEpDECIMALS1,“RelativeAbweichung

star(5)TYPEc,

waersLIKEtOOl-waers,

ENDOFitab_scr.

*根据财务要求修改scr_data,包括一些正负号和合并的要求

LOOPATscr_data.

ifSCR_DATA-ERGSL='23'or

SCR_DATA-ERGSL='26'or

*SCR_DATA-ERGSL='33'or

SCR_DATA-ERGSL='47'or

SCR_DATA-ERGSL='112'or

SCR_DATA-ERGSL(1)='6'or

SCR_DATA-ERGSL='70'or

SCR_DATA-ERGSL='73'or

SCR_DATA-ERGSL='74'or

SCR_DATA-ERGSL='114'or

SCRDATA-ERGSL='71'or

SCR_DATA-ERGSL=，72,or

SCR_DATA-ERGSL='58'or

SCR_DATA-ERGSL=，75'or

SCR_DATA-ERGSL='76'or

SCR_DATA-ERGSL=，77'or

SCR_DATA-ERGSL=T15'or

SCR_DATA-ERGSL=，116'or

SCR_DATA-ERGSL=，78'or

SCR_DATA-ERGSL=，59,or

SCR_DATA-ERGSL=，79'or

SCR_DATA-ERGSL=，56'or

SCR_DATA-ERGSL=T20'or

SCR_DATA-ERGSL='80'or

SCR_DATA-ERGSL=，118'or

SCR_DATA-ERGSL=，117'or

SCR_DATA-ERGSL='81'or

SCR_DATA-ERGSL='82'or

SCR_DATA-ERGSL='83'or

SCR_DATA-ERGSL='84'or

SCR_DATA-ERGSL='96'or

SCR_DATA-ERGSL=，57'or

SCR_DATA-ERGSL='104'or

SCR_DATA-ERGSL='90'or

SCR_DATA-ERGSL='91'or

SCR_DATA-ERGSL='93'or

SCR_DATA-ERGSL='99'or

SCR_DATA-ERGSL='88'or

SCR_DATA-ERGSL='86'or

SCR_DATA-ERGSL='5'

SCR_DATA-vsum=SCR_DATA-vsum*'T'

SCR_DATA-bsum=SCR_DATA-bsum*'T'

modifySCR_DATA.

endif.

MOVE-CORRESPONDINGscr_dataTOitab_scr.

*itab_scr-bsum=itab_scr-bsum/100.

*itab_scr-vsum=itab_scr-vsum/100.

APPENDitab_scr.

ENDLOOP.

*导出itabscr

PERFORMfrm_process_scr_data.

REFRESHitab_scr.

*根据layout的名称选择是资产负债表逻辑，还是损益表逻辑。

FORMfrmprocess_scr_data.

IFscr_form='Z_BILA_BACN，.

PERFORMfrm_banlance_sheet.

ELSE.

IFscr_form='Z_BILA_O1，.

PERFORMfrmprofit.

ENDIF.

ENDIF.

ENDFORM.〃frm_process_scr_data

*调整itab_excel的结构，并导出

FORMfrm_banlance_sheet.

REFRESHitab_excel.

itab_excel-col11='项目

itab_excel-coll2='行次'.

itab_excel-coll3二'年初数'.

itab_excel-coll4='期末数'.

itab_excel-col21='项目

itab_excel-col22='行次'.

itab_excel-col23='年初数'.

itab_excel-col24二'期末数'.

APPENDitabexcel.

嚅

产

流动

负债,

隆

:短期5.6

一

T应

资

票据

2225262‘

付

’

守

着

短

’

应

期

投

跌

价

准

资巾K^

23款506

于

^资

收

款

预

净

额

「

帐

‘

’

，Y>，4

'5

64，

掰

品

’

代

销商

款

，

>^’565

5'，

,54，

弱

资

付

应

工

，

6S6’66>

,5

德

利

付

‘

，

应

费

’

,16福5T67

熊

交

金

’

，

，

‘

应

lr,24税68

嚼

58‘

应

收

娱

款

’

‘

，

>25付69

9,>

坏

旗

帐

准

‘

他

应交

,O26，6o

麻

&，7O5

款

速

净

应

款

款

7,付

61173

‘预付帐款'‘12''19''预提费用‘’62''74',

'应收补贴款‘‘13‘'20''预计负债''63'T14',

'应收出口退税'‘14‘'21''一年内到期的长期负债‘’64'

'71',

5?1

'存货，，A'其他流动负债’’6572

原

.V627‘

木

'其中：八

匚

728‘

广“

在

匚811O

口

'减：存货跌价准备‘T9'’29'

‘存货净额''20‘'36'

‘待摊费用‘‘21‘'37'''

'待处理流动资产净损失‘‘22'’38'

'一年内到期的长期债券投资‘’23'

'500342',

'其他流动资产‘‘24'’40'

流动资产合计‘’25‘'7''流动负债合计‘’66''58',

'长期投资：长期负债:

'长期股权投资‘‘26''30''长期借款''67''75',

'长期债券投资‘‘27''31'‘应付债券’’68''76',

'长期投资合计‘'28'’32''长期应付款‘‘69''77',

'减：长期投资减值准备''29'’33''专项应付款'’70'115',

'长期投资净额''30'’34''递延收益''71'T16',

'其中：合并价差‘‘31‘'35''其他长期负债‘‘72''78',

'固定资产：长期负债合计‘’73''59',

'固定资产原价‘‘32''46''递延税项：’

'减：累计折旧‘'33'’47''递延税款贷项‘‘74''79',

'固定资产净值‘‘34‘T13'

'减：固定资产减值准备‘‘35'’112'

'固定资产净额‘‘36‘'41'

'工程物资‘'37''42'

'在建工程’‘38''43'

'固定资产清理’‘39''44'

'待处理固定资产净损失‘‘40‘’45''负债合计‘’75''56',

'固定资产合计‘'41''9''少数股东权益''76''120',

'无形资产与其他资产：股东权益：‘‘‘‘‘，

‘无形资产‘'42'’48''股本‘'77'’80',

'其中：土地使用权‘‘43‘'52''减：已规还投资’‘78''118',

‘开办费‘‘44''4。’股本净额‘‘79''117',

'长期待摊费用‘‘45''119''资本公积‘‘80''81',

'其中：固定资产改良支出‘‘46''54''盈余公积‘‘81''82',

'其他长期资产‘‘47‘'51''其中：公益金‘‘82''83',

'无形资产与其他资产合计‘’48‘'10''未分配利润‘'83''84',

‘递延税项

'递延税款借项‘‘49''55''股东权益合计‘‘84''57',

‘资产总计‘‘50''6''负债及所有者权益合计‘‘85''5'.

*导出excel

CALLFUNCTION'DOWNLOAD'

EXPORTING

filetype='DAT'

filename=1C:\ZCFZB.DAT

TABLES

data_tab=itab_excel

EXCEPTIONS

invalid_filesize=1

invalid_tab1e_width=2

invalid_type=3

no_batch=4

unknown_error=5

gui_refuse_filetransfer=6

customer_error=7

OTHERS=8.

6.导出的文件是以Tab键分割的，为了方便财务使用，可以通过Excel宏编程，将数据显

示为默认格式。

程序如下：

Subauto_open()

'aulo_open()代表启动excel自动执行

’如果不需要自动执行，则可以随便起名字

Application.WindowState=xlMinimized

Setcurrentbook=Application