【正文】 190 syvline, 193(2) k, 198 syvline. ENDIF. WRITE: /011 syuline. NEWPAGE. PERFORM out_footer. ENDFORM. ** * * ** FORM out_footer. WHERE persnumber = usr21persnumber AND CONCATENATE adrpname_last adrpname_first INTO usrname. , (12) usrname, 202 39。 ***** ***** 參數(shù)：mdate1 ***** ***** 結(jié)束日期(不含此天) ***** ***** DATA: END OF iglt0. bsegdmbtr, END OF itmp. AND AND APPEND itmp. itmpnum = iglt0hsl03. APPEND itmp. itmpnum = iglt0hsl07. APPEND itmp. itmpnum = iglt0hsl11. ENDLOOP. AND budat . znum = znum + bsisdmbtr. ENDSELECT. um 貸方金額 end of datatype. 投資數(shù)據(jù) mlib type datatype, type datatype. case tab2hkont(4). 150139。 . 140139。 add tab2dmbtr to minvestdnum. else. when 39。 or 39。庫(kù)存科目 if tab2shkzg = 39。 add tab2dmbtr to mstockum. endif. 211139。218139。 S39。 . 長(zhǎng)期負(fù)債 if tab2shkzg = 39。 add tab2dmbtr to mllibum. endif. 310539。 . endcase. = massetdnum = 0. 固定資產(chǎn)減少 mlibdnum. mlibdnum if massetum mllibdnum. z_asset_debit = z_asset_debit + mllibdnum. massetum = 0. = 0. endif. if minvestdnum 0. = massetum endif. if minvestum 0. if mlibdnum 0. + minvestum. mlibdnum + mlibdnum. minvestum endif. if mllibdnum 0. endif. if mstockum 0. 以存貨償還債務(wù)（經(jīng)營(yíng)性） = 0. = mstockum endif. = mllibdnum mllibdnum. mllibdnum endif. if mlibdnum mequitum. z_debit_equit = z_debit_equit + mequitum. z_debit_short = z_debit_short + mequitum. mlibdnum mequitum. mequitum else. z_debit_equit = z_debit_equit + mlibdnum. z_debit_short = z_debit_short + mlibdnum. mequitum = 0. = mllibdnum mllibdnum. mlibdnum endif. ENDOFDEFINITION.** * ........ = 0. mequitum z_debit_equit = z_debit_equit + mllibdnum. else. mequitum mequitum. mllibdnum z_debit_equit = z_debit_equit + mequitum. if mllibdnum mequitum. mlibdnum mlibdnum. = mlibdnum = 0. mstockum z_stock_debit = z_stock_debit + mllibdnum. else. mstockum mstockum. mllibdnum z_stock_debit = z_stock_debit + mstockum. if mllibdnum mstockum. if mllibdnum 0. endif. endif. = minvestum = 0. 以投資償還債務(wù)（長(zhǎng)期）　 endif. mlibdnum mlibdnum. z_debit_short z_invest_debit = z_invest_debit + mlibdnum. else. minvestum minvestum. z_debit_short z_invest_debit = z_invest_debit + minvestum. if mlibdnum minvestum. 投資減少 endif. = minvestdnum = 0. minvest minvestdnum. massetum z_asset_invest = z_asset_invest + minvestdnum. if massetum minvestdnum. endif. = minvestdnum = 0. 以固定資產(chǎn)投資 mllibdnum mllibdnum. = 0. = 0. massetum z_debit_short = z_debit_short + mlibdnum. z_asset_debit = z_asset_debit + mlibdnum. if massetum mlibdnum. if mlibdnum 0. endif. mllibum mllibum. massetdnum z_asset_rented = z_asset_rented + mllibum. else. 融資租賃固定資產(chǎn) if massetdnum 0. endif. add tab2dmbtr to mequitum. if tab2shkzg = 39。 所有者權(quán)益 311139。 . when 39。 else. add tab2dmbtr to mlibdnum. 212139。 . . or 39。 S39。 140239。110139。endif. add tab2dmbtr to massetum. if tab2shkzg = 39。 固定資產(chǎn)和無(wú)形資產(chǎn) 170139。 loop at tab2. type datatype, type datatype, type datatype, like bsegdmbtr, types: begin of datatype, ENDIF. IF bsisshkzg = 39。 SELECT * FROM bkpf WHERE bukrs znum = znum + itmpnum. APPEND itmp. itmpnum = iglt0hsl09. APPEND itmp. itmpnum = iglt0hsl05. APPEND itmp. itmpnum = iglt0hsl01. racct LIKE mstring. ryear = z_bukrs SELECT * FROM glt0 INTO TABLE iglt0 num DATA: BEGIN OF iglt0 OCCURS 0. ***** *********************************************************************** FORM cal_dates_amount USING mdate1 mdate2 mstring 上月余額?。”驹碌絤date2余額 ***** ***** 算法：某日余額　= 年初余額　＋　一月余額?。。? 科目編號(hào)的匹配模式字符串 ***** ***** , syuzeit. ENDFORM. *********************************************************************** ******************* 計(jì)算科目段在指定日期的起始余額 ******************** *********************************************************************** ***** 打印日期:39。 WRITE: /012 39。 date_to SELECT SINGLE * FROM usr21 WHERE bname = syuname. * ** * ENDIF. = 0. IF j = 25. WRITE: 220 syvline. ENDIF. WRITE: 116 syvline, 118(60) itb0txt, ELSE. 190 syvline, 193(2) k, 198 syvline. zcashflow = int_cashflowfi_fkbtr. . IF i 3.