[Lazarus-es] lazreport, user function y fechas

[Fredy Gonzales]

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. 
  To: Spanish version of Lazarus List 
  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
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20110516/55092d6b/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/55092d6b/attachment-0002.png>