[Filip]

PHP код:

display RAssetNetBookValue assetNetBookValue()
{
    RassetStandardId _rassetStandardId = "";
    RAssetSumCalc_Trans _RAssetSumCalc_Trans;
    RAssetSumCalc_Trans _rassetSumTrans;
    ;

    while select _RAssetStandards
    where  _RAssetStandards.AssetId == rassetTable_1.AccountNum
    {
        select _RAssetStandardTable
        where _RAssetStandardTable.assetStandardId == _RAssetStandards.assetStandardId;
        if(_RAssetStandardTable.CurrentOperationsTax == 0)
        {
            _rassetSumTrans = _RAssetSumCalc_Trans.newAssetPeriod(rassetTable.AccountNum,
                                                                       _rassetStandardId,
                                                                       transDate);

         }
    }


    return _rassetSumTrans.netBookValue();
}