[Lazarus-es] lazreport, user function y fechas

[Paola Bruccoleri]

Hola a todos..

Estoy haciendo un reporte. En una de las columnas debe ir una fecha, 
PERO, si esta está vacía, se pone otra.
En el evento UserFuncion hago esto:

procedure TListadoAntecedentes.rptUserFunction(const AName: String; p1, p2,
   p3: Variant; var Val: Variant);
var
   dFechaRP, dFechaFin: string;
begin
   if AName='FECHARP' then begin
     dFechaRP := frParser.Calc(P1);
     dFechaFin:= frParser.Calc(P2);

     if dFechaRP = '' then
        Val:= dFechaFin
     else
        Val:= dFechaRP;
   end;
end;

En el reporte, en esa columna, pongo esto:
[FechaRP([qry."FECHA_RECEPCIONPROV"], [qry."FECHA_FIN"] ) ]

Los campos de la consulta son tipo DATE (firebird)

ya he hecho varias pruebas.. poniendo las variables dFechaRP y dFechaFin 
como TDate...
pero no hay caso, obtengo un error


evidentemente porque hay algo mal en esto..

¿sólo 3 parámetros puede aceptar la función que uno defina? (por los p1, 
p2, p3)

Agradezco alguna ayuda.
muchas gracias
chauuuuuuuuu


------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20110514/088c7d9a/attachment-0002.html>
------------ próxima parte ------------
A non-text attachment was scrubbed...
Name: moz-screenshot-40.png
Type: image/png
Size: 6689 bytes
Desc: no disponible
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20110514/088c7d9a/attachment-0002.png>