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();
}