資產(chǎn)負債表和損益表開發(fā)

資產(chǎn)負債表和損益表,在SAP標準系統(tǒng)中,可以通過事務代碼F.01執(zhí)行;但其結(jié)果所取數(shù)據(jù)為SAP系統(tǒng)內(nèi)的數(shù)據(jù)，需要根據(jù)實際情況進行修改和合并，并導出到EXCEL中。在事務代碼OB58中,定義會計報表項目。此會計報表項目定義直接影響科目在報表上列式的位置步驟:.從標準程序RFBILAOO拷貝一個ZRFBILAOO程序，為ZRFBILAOO指定事務代碼:ZF01..在ZRFBILAOO主程序中搜索Submit：Submit將內(nèi)表scjdata中的數(shù)據(jù)提交.SCR_data的結(jié)構(gòu):BUKRSERGSLBSUM VSUM公司代碼財務碼 當前值 比較值需要根據(jù)財務ob58配的財務版本修改SCR_DATA的數(shù)據(jù).在LayoutSet中，ERP+財務碼取出的數(shù)是當前數(shù):ECP+財務碼取出的數(shù)是比較數(shù).針對浪潮需要做如下修改:源程序部分:在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.根據(jù)財務要求修改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.?根據(jù)layout的名稱選擇是資產(chǎn)負債表邏輯,還是損益表邏輯。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?調(diào)整itab_excel的結(jié)構(gòu),并導出FORMfrm_ban1ance_sheet.REFRESHitabexcel.，?，?數(shù)數(shù)，?,.數(shù)數(shù)目次初末目次初末項行年期項行年期1tab_excel-col11=itab_excel-coll2=itab_excel-col13-itab_excel-coll4=itab_excel-col21=，?，?數(shù)數(shù)，?,.數(shù)數(shù)目次初末目次初末項行年期項行年期PERFORMfrm_fill_excelUSING:’流動資產(chǎn):流動負債:‘貨幣資金‘T''12''短期借款'’51''61','短期投資‘’2''22''應付票據(jù)’'52''62',,減:短期投資跌價準備‘'3''23''應付帳款'’53''63','短期投資凈額'’4''13'’預收帳款'’54''64','應收票據(jù)''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' '一年內(nèi)到期的長期負債其他流動負債'’65''72',其中:原材料''16''27'' 產(chǎn)成品’’17''28'''在產(chǎn)品''18''110'''‘減:存貨跌價準備'’19''29'‘存貨凈額''20''36''''''','待攤費用' ’21''37' "‘待處理流動資產(chǎn)凈損失’’22'’38'’一年內(nèi)到期的長期債券投資‘’23''500342,,’其他流動資產(chǎn)'’24''40'""",’流動資產(chǎn)合計‘'25''7'’流動負債合計''66''58',’長期投資:長期負債:’長期股權(quán)投資‘‘26''30'’長期債券投資‘’27''31''長期投資合計‘‘28''32''長期借款’'67''75',‘應付債券’‘68''76','長期應付款''69''77',,減:長期投資減值準備'

’長期投資凈額‘‘30''34''29''33''專項應付款’‘,減:長期投資減值準備'

’長期投資凈額‘‘30''34''其中:合并價差’’31''35'’其他長期負債’’72''78','固定資產(chǎn):長期負債合計‘‘73''59',’固定資產(chǎn)原價‘’32''46'‘遞延稅項:'’‘‘‘，,減:累計折舊‘‘33''47''遞延稅款貸項'’74''79',‘固定資產(chǎn)凈值‘’34''113''''''','減:固定資產(chǎn)減值準備‘'35''112''固定資產(chǎn)凈額‘’36‘'41'‘工程物資''37''42''在建工程'’38''43'’固定資產(chǎn)清理‘'39''44''''''','待處理固定資產(chǎn)凈損失’’40‘'45''負債合計'’75''56',’固定資產(chǎn)合計''41''9'’少數(shù)股東權(quán)益''76''120',’無形資產(chǎn)與其他資產(chǎn):股東權(quán)益:'’‘‘’，‘無形資產(chǎn)’'42''48'’股本'’77''80',,其中:土地使用權(quán)‘’43‘'52''減:已規(guī)還投資'’78''118',，開辦費44''49''股本凈額'’79''117',’長期待攤費用‘’45''119''資本公積'’80''81',’其中：固定資產(chǎn)改良支出‘'46''54'‘盈余公積‘'81''82',’其他長期資產(chǎn)‘‘47''51''其中：公益金'‘82''83',’無形資產(chǎn)與其他資產(chǎn)合計''48''10''未分配利潤‘‘83''84',‘遞延稅項’遞延稅款借項‘‘49''55''股東權(quán)益合計‘'84''57',‘資產(chǎn)總計’‘50‘‘6'’負債及所有者權(quán)益合計‘‘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宏編程,將數(shù)據(jù)顯示為默認格式。程序如下:Subauto_open(),auto_open()代表啟動excel自動執(zhí)行’如果不需要自動執(zhí)行,則可以隨便起名字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‘關(guān)掉頭文件表、行項目表和初始模板表,剩下的就是所有的憑證表Windows(Hzcfzb.datu).Closesavechanges:=False'Windows(ol