【導(dǎo)讀】G_T_FMMP,這部分程序禁止修改。雜，建議不要做任何改動(dòng)。表項(xiàng)后，把其金額累計(jì)到相應(yīng)表項(xiàng)。

　　

【正文】 固定資產(chǎn)數(shù)據(jù) minvest type datatype, 投資數(shù)據(jù) mlib type datatype, 短期負(fù)債數(shù)據(jù) mstock type datatype, 庫存數(shù)據(jù) mllib type datatype, 長期負(fù)債數(shù)據(jù) mequit type datatype. 權(quán)益數(shù)據(jù) loop at tab2. case tab2hkont(4). when 39。150139。 or 39。170139。. 固定資產(chǎn)和無形資產(chǎn) if tab2shkzg = 39。S39。. add tab2dmbtr to massetdnum. else. add tab2dmbtr to massetum. endif. when 39。110139。 or 39。140139。 or 39。140239。. 短期投資與長期投資 if tab2shkzg = 39。S39。. add tab2dmbtr to minvestdnum. else. add tab2dmbtr to minvestum. endif. when 39。122139。 or 39。123139。 or 39。124339。. 庫存科目 if tab2shkzg = 39。S39。. add tab2dmbtr to mstockdnum. else. add tab2dmbtr to mstockum. endif. when 39。211139。 or 39。212139。 or 39。218139。. 經(jīng)營性負(fù)債 if tab2shkzg = 39。S39。. add tab2dmbtr to mlibdnum. else. add tab2dmbtr to mlibum. endif. when 39。232139。. 長期負(fù)債 if tab2shkzg = 39。S39。. add tab2dmbtr to mllibdnum. else. add tab2dmbtr to mllibum. endif. when 39。310539。 or 39。311139。. 所有者權(quán)益 if tab2shkzg = 39。S39。. 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)營性 ) 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ù) (長期 ) 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)營性） 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ù)（長期） 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)營性） 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ù)（長期） 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.