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

資產(chǎn)負(fù)債表和損益表,在SAP標(biāo)準(zhǔn)系統(tǒng)中,可以通過事務(wù)代碼F.01執(zhí)行;但其結(jié)果所取數(shù)據(jù)為SAP系統(tǒng)內(nèi)的數(shù)據(jù)，需要根據(jù)實(shí)際情況進(jìn)行修改和合并，并導(dǎo)出到EXCEL中。在事務(wù)代碼OB58中,定義會(huì)計(jì)報(bào)表項(xiàng)目。此會(huì)計(jì)報(bào)表項(xiàng)目定義直接影響科目在報(bào)表上列式的位置步驟:.從標(biāo)準(zhǔn)程序RFBILAOO拷貝一個(gè)ZRFBILAOO程序，為ZRFBILAOO指定事務(wù)代碼:ZF01..在ZRFBILAOO主程序中搜索Submit：Submit將內(nèi)表scjdata中的數(shù)據(jù)提交.SCR_data的結(jié)構(gòu):BUKRSERGSLBSUM VSUM公司代碼財(cái)務(wù)碼 當(dāng)前值 比較值需要根據(jù)財(cái)務(wù)ob58配的財(cái)務(wù)版本修改SCR_DATA的數(shù)據(jù).在LayoutSet中，ERP+財(cái)務(wù)碼取出的數(shù)是當(dāng)前數(shù):ECP+財(cái)務(wù)碼取出的數(shù)是比較數(shù).針對(duì)浪潮需要做如下修改:源程序部分:在submit之前，添加以下程序段:addedbyc01252003.11.19定義導(dǎo)出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ù)財(cái)務(wù)要求修改scr_data,包括ー些正負(fù)號(hào)和合并的要求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.?導(dǎo)出itab_scrPERFORMfrm_process_scr_data.REFRESHitab_scr.?根據(jù)layout的名稱選擇是資產(chǎn)負(fù)債表邏輯,還是損益表邏輯。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),并導(dǎo)出FORMfrm_ban1ance_sheet.REFRESHitabexcel.，?，?數(shù)數(shù)，?,.數(shù)數(shù)目次初末目次初末項(xiàng)行年期項(xiàng)行年期1tab_excel-col11=itab_excel-coll2=itab_excel-col13-itab_excel-coll4=itab_excel-col21=，?，?數(shù)數(shù)，?,.數(shù)數(shù)目次初末目次初末項(xiàng)行年期項(xiàng)行年期PERFORMfrm_fill_excelUSING:’流動(dòng)資產(chǎn):流動(dòng)負(fù)債:‘貨幣資金‘T''12''短期借款'’51''61','短期投資‘’2''22''應(yīng)付票據(jù)’'52''62',,減:短期投資跌價(jià)準(zhǔn)備‘'3''23''應(yīng)付帳款'’53''63','短期投資凈額'’4''13'’預(yù)收帳款'’54''64','應(yīng)收票據(jù)''5''14''代銷商品款''55''65','應(yīng)收股利'’6''15''應(yīng)付工資’’56''66','應(yīng)收利息‘’7''16'’應(yīng)付福利費(fèi)‘'57''67','應(yīng)收帳款’’8''24''應(yīng)交稅金’’58''68','其他應(yīng)收款’’9''25''應(yīng)付股利''59''69','減:壞帳準(zhǔn)備'’10''26''其他應(yīng)交款’’60''70',’應(yīng)收帳款凈額‘'11''17''其他應(yīng)付款‘'61''73',

預(yù)付帳款‘‘12'’19'‘預(yù)提費(fèi)用‘’62''74',’應(yīng)收補(bǔ)貼款’’應(yīng)收出口退稅’'71",’應(yīng)收補(bǔ)貼款’’應(yīng)收出口退稅’'71",'存貨’’15''18'其他流動(dòng)負(fù)債'’65''72','14''21' '一年內(nèi)到期的長(zhǎng)期負(fù)債其他流動(dòng)負(fù)債'’65''72',其中:原材料''16''27'' 產(chǎn)成品’’17''28'''在產(chǎn)品''18''110'''‘減:存貨跌價(jià)準(zhǔn)備'’19''29'‘存貨凈額''20''36''''''','待攤費(fèi)用' ’21''37' "‘待處理流動(dòng)資產(chǎn)凈損失’’22'’38'’一年內(nèi)到期的長(zhǎng)期債券投資‘’23''500342,,’其他流動(dòng)資產(chǎn)'’24''40'""",’流動(dòng)資產(chǎn)合計(jì)‘'25''7'’流動(dòng)負(fù)債合計(jì)''66''58',’長(zhǎng)期投資:長(zhǎng)期負(fù)債:’長(zhǎng)期股權(quán)投資‘‘26''30'’長(zhǎng)期債券投資‘’27''31''長(zhǎng)期投資合計(jì)‘‘28''32''長(zhǎng)期借款’'67''75',‘應(yīng)付債券’‘68''76','長(zhǎng)期應(yīng)付款''69''77',,減:長(zhǎng)期投資減值準(zhǔn)備'

’長(zhǎng)期投資凈額‘‘30''34''29''33''專項(xiàng)應(yīng)付款’‘,減:長(zhǎng)期投資減值準(zhǔn)備'

’長(zhǎng)期投資凈額‘‘30''34''其中:合并價(jià)差’’31''35'’其他長(zhǎng)期負(fù)債’’72''78','固定資產(chǎn):長(zhǎng)期負(fù)債合計(jì)‘‘73''59',’固定資產(chǎn)原價(jià)‘’32''46'‘遞延稅項(xiàng):'’‘‘‘，,減:累計(jì)折舊‘‘33''47''遞延稅款貸項(xiàng)'’74''79',‘固定資產(chǎn)凈值‘’34''113''''''','減:固定資產(chǎn)減值準(zhǔn)備‘'35''112''固定資產(chǎn)凈額‘’36‘'41'‘工程物資''37''42''在建工程'’38''43'’固定資產(chǎn)清理‘'39''44''''''','待處理固定資產(chǎn)凈損失’’40‘'45''負(fù)債合計(jì)'’75''56',’固定資產(chǎn)合計(jì)''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',，開辦費(fèi)44''49''股本凈額'’79''117',’長(zhǎng)期待攤費(fèi)用‘’45''119''資本公積'’80''81',’其中：固定資產(chǎn)改良支出‘'46''54'‘盈余公積‘'81''82',’其他長(zhǎng)期資產(chǎn)‘‘47''51''其中：公益金'‘82''83',’無形資產(chǎn)與其他資產(chǎn)合計(jì)''48''10''未分配利潤‘‘83''84',‘遞延稅項(xiàng)’遞延稅款借項(xiàng)‘‘49''55''股東權(quán)益合計(jì)‘'84''57',‘資產(chǎn)總計(jì)’‘50‘‘6'’負(fù)債及所有者權(quán)益合計(jì)‘‘85''5'.?導(dǎo)出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..導(dǎo)出的文件是以Tab鍵分割的,為了方便財(cái)務(wù)使用,可以通過Excel宏編程,將數(shù)據(jù)顯示為默認(rèn)格式。程序如下:Subauto_open(),auto_open()代表啟動(dòng)excel自動(dòng)執(zhí)行’如果不需要自動(dòng)執(zhí)行,則可以隨便起名字Application.WindowState=xlMinimizedSetcurrentbook=Application.ActiveWorkbookold_page_name=currentbook.Name'Sheets("sheetド).Visible=True,Sheets(,,sheetr,).Unprotect"aaaM’給模板加密，防止其他用戶進(jìn)行修改Workbooks.OpenFilename:="c:\zcfzb.daビ‘打開頭文件,頭文件里面一般是憑證的抬頭信息Windows(old_page_name).Activate將zcfzb.dat的相應(yīng)字段復(fù)制到模板中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)掉頭文件表、行項(xiàng)目表和初始模板表,剩下的就是所有的憑證表Windows(Hzcfzb.datu).Closesavechanges:=False'Windows(ol