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