Cita:
Empezado por Casimiro Notevi
¿Es una versión de prueba?
|
No, no es de prueba, solamente que no tiene todas las caracteristicas habilitadas
Aca hay una
tabla comparativa
Con respecto al post, primero hay que agregar la declaracion de la funcion al reporte:
Código Delphi
[-]
procedure TForm1.FormCreate(Sender: TObject);
begin
frxReport1.AddFunction('function FuncionA: string;'); frxReport1.AddFunction('function FuncionB(const Value: Variant): string;'); frxReport1.AddFunction('function FuncionC(const Value1, Value2..ValueN: Variant): string;');
frxReport1.AddFunction('function FuncionD: Integer;'); end;
Luego hay un evento que hay que implementar, el OnUserFunction:
Código Delphi
[-]
function TForm1.frxReport1UserFunction(const MethodName: string; var Params: Variant): Variant;
begin
if MethodName = 'FUNCIONA' then Result := 'Funcion A'
else if MethodName = 'FuncionB' then
Result := IntToStr(Params[0])
else if MethodName = 'FuncionC' then Result := CalcularFuncionC(Params[0], Params[1])
end;
Luego pones un Memo en el Reporte, y en su text lo siguiente:
Código Delphi
[-]
[NOMBREFUNCION(Param1, Param2, ParamN)]
[FUNCIONA)]
[FUNCIONB(Param1)]