function GetSummaToText(r:real):string;
begin
initalize;
result:=RealToRouble(r);
end;

[GetSummaToText(SUM(<frxDBDataset1."value_n">,MasterData1)  )]

[GetSummaToText(213)]

[GetSummaToText([house_rate])]

procedure TfmRecordAcceptance.frxReport1GetValue(const VarName: String;
  var Value: Variant);
begin
  if VarName = 'house_rate' then
  begin
    Value := gvalsum;
  end;
end;