Параметры Tfsrttimodule.callmethod
mvb
Казань
Сделал подключаемую функцию:
function frSumToText(Sum: Currency): string;
begin
Result := .......;
end;
{ TFunctions }
function TFunctions.CallMethod(Instance: TObject; ClassType: TClass;
const MethodName: String; var Params: Variant): Variant;
begin
if not VarIsArray(Params) or VarIsNull(Params[0]) then
exit;
if MethodName = 'FRSUMTOTEXT' then
Result := frSumToText(Params[0])
end;
в отчете в футере бенда вставляю конструкцию:
[frSumToText([SUM(<qChEx."SUM_USLF">*1)])]
при прогоне вылазит ошибка
Откуда в Params[0] берется другой массив - непонятно. Приходится писАть frSumToText(Params[0][0]). В этом же модуле есть еще несколько функций, все они используют Params[0].Memo54: Could not convert variant of type (Array Variant) into type (Currency)
Комментарии
[frSumToText(SUM(<qChEx."SUM_USLF">*1))]