[Lazarus-es] lazreport, user function y fechas

[Paola Bruccoleri]

El 14/05/2011 07:20 p.m., Paola Bruccoleri escribió:
> 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)
Bueno.. dp de varias horas... salió...

var
   dFechaRP, dFechaFin: string;
begin
   if AName='FECHARP' then begin
     dFechaRP := VarToStr(frParser.Calc(P1));
     dFechaFin:= VarToStr(frParser.Calc(P2));

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

chauuuuuuuuuu

------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20110517/4fff1c8c/attachment-0002.html>