[Lazarus-es] lazreport, user function y fechas

[Ismael L. Donis García]

Paola si lo último que pones te salió bien entonces yo lo haría de otra forma, por simple gusto:

procedure TListadoAntecedentes.rptUserFunction(const AName: String; p1, p2,
  p3: Variant; var Val: Variant);
begin
  if AName='FECHARP' then begin
    if length(VarToStr(frParser.Calc(P1))) = 0 then
       Val:= VarToStr(frParser.Calc(P2))
    else
       Val:= VarToStr(frParser.Calc(P1));
  end;
end;


No se lo veo más limpio, repito es solo cuestión de gustos.

Saludos Cordiales
=========
|| ISMAEL ||
=========
  ----- Original Message ----- 
  From: Paola Bruccoleri 
  To: Spanish version of Lazarus List 
  Sent: Tuesday, May 17, 2011 5:18 PM
  Subject: Re: [Lazarus-es] lazreport, user function y fechas


  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
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20110518/10d92f7e/attachment-0002.html>