资产负债表和损益表开发

资产负债表和损益表,在SAP标准系统中,可以通过事务代码F.01执行;但其结果所取数据为SAP系统内的数据，需要根据实际情况进行修改和合并，并导出到EXCEL中。在事务代码OB58中,定义会计报表项目。此会计报表项目定义直接影响科目在报表上列式的位置步骤:.从标准程序RFBILAOO拷贝一个ZRFBILAOO程序，为ZRFBILAOO指定事务代码:ZF01..在ZRFBILAOO主程序中搜索Submit：Submit将内表scjdata中的数据提交.SCR_data的结构:BUKRSERGSLBSUM VSUM公司代码财务码 当前值 比较值需要根据财务ob58配的财务版本修改SCR_DATA的数据.在LayoutSet中，ERP+财务码取出的数是当前数:ECP+财务码取出的数是比较数.针对浪潮需要做如下修改:源程序部分:在submit之前，添加以下程序段:addedbyc01252003.11.19定义导出Excel的格式DATA:BEGINOFitab_sciヽOCCURS0,bukrsLIKEskbl-bukrs,gsberLIKEskcla-gsber,ergslLIKErfOllq-ergsl,typ(l)TYPEc,bsumLIKEbseg-dmbtr,vsumLIKEbseg-dmbtr,saldoLIKEamount,z/AbsoluteAbweichungrelab(16)TYPEpDECIMALS1,RelativeAbweichungstar(5)TYPEc.waersLIKEtOOl-waers,ENDOFitab_scr.根据财务要求修改scr_data,包括ー些正负号和合并的要求LOOPATscr_data.ifSCR_DATA-ERGSL='23'orSCR_DATA-ERGSL='26'orSCR_DATA-ERGSL='33'orSCR_DATA-ERGSL='47'orSCR_DATA-ERGSL='112'orSCR_DATA-ERGSL(1)="6'orSCR_DATA-ERGSL='70'orSCR_DATA-ERGSL='73'orSCR_DATA-ERGSL='74'orSCR_DATA-ERGSL='114"orSCR_DATA-ERGSL='71'or

SCR_DATA-ERGSL=，72'orSCR_DATA-ERGSL='58'orSCR_DATA-ERGSL='75"orSCR_DATA-ERGSL='76'orSCR_DATA-ERGSL='77'orSCR_DATA-ERGSL='115'orSCR_DATA-ERGSL='116'orSCR_DATA-ERGSL='78'orSCR_DATA-ERGSL='59'orSCR_DATA-ERGSL='79'orSCR_DATA-ERGSL='56'orSCR_DATA-ERGSL='120'orSCR_DATA-ERGSL='80'orSCR_DATA-ERGSL='118'orSCR_DATA-ERGSL='117'orSCR_DATA-ERGSL='81'orSCR_DATA-ERGSL='82'orSCR_DATA-ERGSL='83'orSCR_DATA-ERGSL='84'orSCR_DATA-ERGSL='96'orSCR_DATA-ERGSL='57'orSCR_DATA-ERGSL='104'orSCR_DATA-ERGSL='90'orSCR_DATA-ERGSL='91'orSCR_DATA-ERGSL='93'orSCR_DATA-ERGSL='99'orSCR_DATA-ERGSL='88'orSCR_DATA-ERGSL='86'orSCRDATA-ERGSL="5'SCR_DATA-vsum*，-］，.SCRDATA-bsum*'-1'.SCR_DATA-vsumSCR_DATA-vsum*，-］，.SCRDATA-bsum*'-1'.MOVE-CORRESPONDINGscrdataTOitabscr.itab_scr-bsum=itab_scr_vsum=APPENDitab_scr.ENDLOOP.itab_scr-bsum/100.itab_scr-vsum/100.・导出itab_scrPERFORMfrm_process_scr_data.REFRESHitab_scr.・根据layout的名称选择是资产负债表逻辑,还是损益表逻辑。FORMfrm_process_scr_data.IFscr_form='Z_BILA_BACN，.PERFORMfrm_banlance_sheet.ELSE.IFscr_form='Z_BILA_01’.PERFORMfrm_profit.ENDIF.ENDIF.ENDFORM. Afrm_process_scr_data・调整itab_excel的结构,并导出FORMfrm_ban1ance_sheet.REFRESHitabexcel.，•，・数数，•,.数数目次初末目次初末项行年期项行年期1tab_excel-col11=itab_excel-coll2=itab_excel-col13-itab_excel-coll4=itab_excel-col21=，•，・数数，•,.数数目次初末目次初末项行年期项行年期PERFORMfrm_fill_excelUSING:’流动资产:流动负债:‘货币资金‘T''12''短期借款'’51''61','短期投资‘’2''22''应付票据’'52''62',,减:短期投资跌价准备‘'3''23''应付帐款'’53''63','短期投资净额'’4''13'’预收帐款'’54''64','应收票据''5''14''代销商品款''55''65','应收股利'’6''15''应付工资’’56''66','应收利息‘’7''16'’应付福利费‘'57''67','应收帐款’’8''24''应交税金’’58''68','其他应收款’’9''25''应付股利''59''69','减:坏帐准备'’10''26''其他应交款’’60''70',’应收帐款净额‘'11''17''其他应付款‘'61''73',

预付帐款‘‘12'’19'‘预提费用‘’62''74',’应收补贴款’’应收出口退税’'71",’应收补贴款’’应收出口退税’'71",'存货’’15''18'其他流动负债'’65''72','14''21' '一年内到期的长期负债其他流动负债'’65''72',其中:原材料''16''27'' 产成品’’17''28'''在产品''18''110'''‘减:存货跌价准备'’19''29'‘存货净额''20''36''''''','待摊费用' ’21''37' "‘待处理流动资产净损失’’22'’38'’一年内到期的长期债券投资‘’23''500342,,’其他流动资产'’24''40'""",’流动资产合计‘'25''7'’流动负债合计''66''58',’长期投资:长期负债:’长期股权投资‘‘26''30'’长期债券投资‘’27''31''长期投资合计‘‘28''32''长期借款’'67''75',‘应付债券’‘68''76','长期应付款''69''77',,减:长期投资减值准备'

’长期投资净额‘‘30''34''29''33''专项应付款’‘,减:长期投资减值准备'

’长期投资净额‘‘30''34''其中:合并价差’’31''35'’其他长期负债’’72''78','固定资产:长期负债合计‘‘73''59',’固定资产原价‘’32''46'‘递延税项:'’‘‘‘，,减:累计折旧‘‘33''47''递延税款贷项'’74''79',‘固定资产净值‘’34''113''''''','减:固定资产减值准备‘'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''49''股本净额'’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'.・导出excelCALLFUNCTION'D0WNL0AD，EXPORTINGfiletype='DAT'filename="C:\ZCFZB.DATTABLESdata_tab=itab_excelEXCEPTIONSinvalid_filesize=1invalid_table_width=2invalid_type二3no_batch=4unknown_error=5gui_refuse_filetransfer=6customer_error=7OTHERS=8..导出的文件是以Tab键分割的,为了方便财务使用,可以通过Excel宏编程,将数据显示为默认格式。程序如下:Subauto_open(),auto_open()代表启动excel自动执行’如果不需要自动执行,则可以随便起名字Application.WindowState=xlMinimizedSetcurrentbook=Application.ActiveWorkbookold_page_name=currentbook.Name'Sheets("sheetド).Visible=True,Sheets(,,sheetr,).Unprotect"aaaM’给模板加密，防止其他用户进行修改Workbooks.OpenFilename:="c:\zcfzb.daビ‘打开头文件,头文件里面一般是凭证的抬头信息Windows(old_page_name).Activate将zcfzb.dat的相应字段复制到模板中Fori=5To58j=i-2Cells(i,3)=Val(Workbooks("zcfzb.dat").Sheets("zcfzbn).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(,'zcfzbn).Cells(j,8))Nexti‘关掉头文件表、行项目表和初始模板表,剩下的就是所有的凭证表Windows(Hzcfzb.datu).Closesavechanges:=False'Windows(ol