[Lazarus-es] lazreport, user function y fechas

[Walter Adolfo Arredondo P.]

Hola a Todos,
Quien me podrai regalar una aplicacion que maneje el pueto serial.

Saludos,
Walter

2011/5/14 Paola Bruccoleri <pbruccoleri en adinet.com.uy>

>  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
>
>
>
> _______________________________________________
> Lazarus-es mailing list
> Lazarus-es en lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
>
>


-- 
Atentamente,*
---------------------------------------------------------------------------*
*---------------------
                Ing. Walter Adolfo Arredondo Paternina
** **INSTRUCTOR**  -  CEAI** SENA REGIONAL  VALLE DEL CAUCA*
*               Especialista en Automatizacion Industrial
                            Cel : 3165370197
                        warredondo en misena.edu.co
**
----------------------------------------------------------------------------
**---------------------*
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20110515/3f774c22/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/20110515/3f774c22/attachment-0002.png>