[Lazarus-es] lazreport, user function y fechas

[Walter Adolfo Arredondo P.]

Un Reporte, tengo algunas preguntas para precisar:
Con que base de datos te estas comunicando ???
...
Que requerimientos tiene tu aplicacion, ....

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

>  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
>
>
> _______________________________________________
> 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/20110517/eadfd3a3/attachment-0002.html>