【正文】 * FORM out_footer. DATA: usrname(80) TYPE c. SELECT SINGLE * FROM usr21 WHERE bname = syuname. SELECT SINGLE * FROM adrp WHERE persnumber = usr21persnumber AND date_from = sydatum AND date_to = sydatum. CONCATENATE adrpname_last adrpname_first INTO usrname. CONDENSE usrname NOGAPS. WRITE: /012 39。, sydatum, 202 39。. znum = znum + bsisdmbtr. ELSE. znum = znum bsisdmbtr. ENDIF. ENDSELECT. ENDSELECT. ENDFORM. DEFINE cal_data. types: begin of datatype, dnum like bsegdmbtr, 借方金額 um like bsegdmbtr, 貸方金額 end of datatype. data: masset type datatype, 固定資產(chǎn)數(shù)據(jù) minvest type datatype, 投資數(shù)據(jù) mlib type datatype, 短期負(fù)債數(shù)據(jù) mstock type datatype, 庫(kù)存數(shù)據(jù) mllib type datatype, 長(zhǎng)期負(fù)債數(shù)據(jù) mequit type datatype. 權(quán)益數(shù)據(jù) loop at tab2. case tab2hkont(4). when 39。. 固定資產(chǎn)和無(wú)形資產(chǎn) if tab2shkzg = 39。 or 39。. 短期投資與長(zhǎng)期投資 if tab2shkzg = 39。 or 39。. 庫(kù)存科目 if tab2shkzg = 39。 or 39。. 經(jīng)營(yíng)性負(fù)債 if tab2shkzg = 39。. 長(zhǎng)期負(fù)債 if tab2shkzg = 39。 or 39。. add tab2dmbtr to mequitdnum. else. add tab2dmbtr to mequitum. endif. endcase. endloop. if massetdnum 0. 固定資產(chǎn)增加 if mllibum 0. 融資租賃固定資產(chǎn) if massetdnum mllibum. z_asset_rented = z_asset_rented + massetdnum. mllibum = mllibum massetdnum. massetdnum = 0. else. z_asset_rented = z_asset_rented + mllibum. massetdnum = massetdnum mllibum. mllibum = 0. endif. endif. endif. if massetum 0. 固定資產(chǎn)減少 if mlibdnum 0. 固定資產(chǎn)償還債務(wù) (經(jīng)營(yíng)性 ) if massetum mlibdnum. z_asset_debit = z_asset_debit + mlibdnum. z_debit_short = z_debit_short + mlibdnum. massetum = massetum mlibdnum. mlibdnum = 0. else. z_asset_debit = z_asset_debit + massetum. z_debit_short = z_debit_short + massetum. mlibdnum = mlibdnum massetum. massetum = 0. endif. endif. if mllibdnum 0. 固定資產(chǎn)償還債務(wù) (長(zhǎng)期 ) if massetum mllibdnum. z_asset_debit = z_asset_debit + mllibdnum. massetum = massetum mllibdnum. mllibdnum = 0. else. z_asset_debit = z_asset_debit + massetum. mllibdnum = mllibdnum massetum. massetum = 0. endif. endif. if minvestdnum 0. 以固定資產(chǎn)投資 if massetum minvestdnum. z_asset_invest = z_asset_invest + minvestdnum. massetum = massetum minvestdnum. minvestdnum = 0. else. z_asset_invest = z_asset_invest + massetum. minvestdnum = minvestdnum massetum. massetum = 0. endif. endif. endif. if minvestdnum 0. 投資增加 if massetum 0. 以固定資產(chǎn)投資 if massetum minvestdnum. z_asset_invest = z_asset_invest + minvestdnum. massetum = massetum minvestdnum. minvest = 0. else. z_asset_invest = z_asset_invest + massetum. minvestdnum = minvestdnum massetum. massetum = 0. endif. endif. endif. if minvestum 0. 投資減少 if mlibdnum 0. 以投資償還債務(wù)（經(jīng)營(yíng)性） if mlibdnum minvestum. z_invest_debit = z_invest_debit + minvestum. z_debit_short = z_debit_short + minvestum. mlibdnum = mlibdnum minvestum. minvestum = 0. else. z_invest_debit = z_invest_debit + mlibdnum. z_debit_short = z_debit_short + mlibdnum. minvestum = minvestum mlibdnum. mlibdnum = 0. endif. endif. if mllibdnum 0. 以投資償還債務(wù)（長(zhǎng)期） if mllibdnum minvestum. z_invest_debit = z_invest_debit + minvestum. mllibdnum = mllibdnum minvestum. minvestum = 0. else. z_invest_debit = z_invest_debit + mllibdnum. minvestum = minvestum mllibdnum. mllibdnum = 0. endif. endif. endif. if mstockum 0. 存貨減少 if mlibdnum 0. 以存貨償還債務(wù)（經(jīng)營(yíng)性） if mlibdnum mstockum. z_stock_debit = z_stock_debit + mstockum. z_debit_short = z_debit_short + mstockum. mlibdnum = mlibdnum mstockum. mstockum = 0. else. z_stock_debit = z_stock_debit + mlibdnum. z_debit_short = z_debit_short + mlibdnum. mstockum = mstockum mlibdnum. mlibdnum = 0. endif. endif. if mllibdnum 0. 以存貨償還債務(wù)（長(zhǎng)期） if mllibdnum mstockum. z_stock_debit = z_stock_debit + mstockum. mllibdnum = mllibdnum mstockum. mstockum = 0. else. z_stock_debit = z_stock_debit + mllibdnum. mstockum = mstockum mllibdnum. mllibdnum = 0. endif. endif. endif. if mequitum 0. 資本增加 if mlibdnum 0. if mlibdnum mequitum. z_debit_equit = z_debit_equit + mequitum. z_debit_short = z_debit_short + mequitum. mlibdnum = mlibdnum mequitum.