[Lazarus-es] lazreport, user function y fechas

[Walter Adolfo Arredondo P.]

Mil Gracias Freddy,
saludos,

2011/5/16 Fredy Gonzales <fredyg1965 en gmail.com>

>  busca en mr. google a TurboCom, esta echo en lazarus y te dan el codigo
> fuente.
>
> Saludos.
>
> FG
>
> ----- Original Message -----
> *From:* Walter Adolfo Arredondo P. <warredondo en misena.edu.co>
> *To:* Spanish version of Lazarus List<lazarus-es en lists.lazarus.freepascal.org>
> *Sent:* Sunday, May 15, 2011 9:09 AM
> *Subject:* Re: [Lazarus-es] lazreport, user function y fechas
>
> 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
> **
> ----------------------------------------------------------------------------
> **---------------------*
>
> ------------------------------
>
> _______________________________________________
> Lazarus-es mailing list
> Lazarus-es en lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
>
>
> _______________________________________________
> 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/20110516/e3fc3d26/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/20110516/e3fc3d26/attachment-0002.png>