【導(dǎo)讀】G_T_FMMP,這部分程序禁止修改。該子程序?qū)⒌默F(xiàn)金流量表項和其對應(yīng)的承諾項目裝入內(nèi)部表INT_CASHFLOW.表項后，把其金額累計到相應(yīng)表項。

　　

【正文】 lib 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. mequitum = 0. else. z_debit