<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content="text/html; charset=ISO-8859-1" http-equiv=Content-Type>
<META name=GENERATOR content="MSHTML 8.00.6001.18975">
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff text=#000000>
<DIV><FONT face=Arial>Paola si lo último que pones te salió bien entonces yo lo
haría de otra forma, por simple gusto:</FONT></DIV>
<DIV><FONT face=Arial></FONT> </DIV>
<DIV><FONT face=Arial><FONT face="Times New Roman">procedure
TListadoAntecedentes.rptUserFunction(const AName: String; p1, p2,<BR> p3:
Variant; var Val: Variant);<BR>begin<BR> if AName='FECHARP' then
begin<BR> if length(VarToStr(frParser.Calc(P1))) = 0
then<BR> Val:=
VarToStr(frParser.Calc(P2))</FONT></FONT></DIV>
<DIV><FONT face=Arial><FONT face="Times New Roman">
else<BR> Val:=
VarToStr(frParser.Calc(P1));<BR> end;<BR>end;</FONT><BR><BR></FONT></DIV>
<DIV><FONT face=Arial>No se lo veo más limpio, repito es solo cuestión de
gustos.</FONT></DIV>
<DIV><FONT face=Arial></FONT> </DIV>
<DIV><FONT face=Arial>Saludos Cordiales</DIV></FONT>
<DIV>=========<BR>|| ISMAEL ||<BR>=========</DIV>
<BLOCKQUOTE
style="BORDER-LEFT: #000000 2px solid; PADDING-LEFT: 5px; PADDING-RIGHT: 0px; MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px">
<DIV style="FONT: 10pt arial">----- Original Message ----- </DIV>
<DIV
style="FONT: 10pt arial; BACKGROUND: #e4e4e4; font-color: black"><B>From:</B>
<A title=pbruccoleri@adinet.com.uy
href="mailto:pbruccoleri@adinet.com.uy">Paola Bruccoleri</A> </DIV>
<DIV style="FONT: 10pt arial"><B>To:</B> <A
title=lazarus-es@lists.lazarus.freepascal.org
href="mailto:lazarus-es@lists.lazarus.freepascal.org">Spanish version of
Lazarus List</A> </DIV>
<DIV style="FONT: 10pt arial"><B>Sent:</B> Tuesday, May 17, 2011 5:18 PM</DIV>
<DIV style="FONT: 10pt arial"><B>Subject:</B> Re: [Lazarus-es] lazreport, user
function y fechas</DIV>
<DIV><BR></DIV>El 14/05/2011 07:20 p.m., Paola Bruccoleri escribió:
<BLOCKQUOTE cite=mid:4DCF001A.5090106@adinet.com.uy type="cite">Hola a
todos..<BR><BR>Estoy haciendo un reporte. En una de las columnas debe ir una
fecha, PERO, si esta está vacía, se pone otra.<BR>En el evento UserFuncion
hago esto:<BR><BR>procedure TListadoAntecedentes.rptUserFunction(const
AName: String; p1, p2,<BR> p3: Variant; var Val:
Variant);<BR>var<BR> dFechaRP, dFechaFin: string;<BR>begin<BR>
if AName='FECHARP' then begin<BR> dFechaRP :=
frParser.Calc(P1);<BR> dFechaFin:=
frParser.Calc(P2);<BR><BR> if dFechaRP = ''
then<BR> Val:=
dFechaFin<BR> else<BR>
Val:= dFechaRP;<BR> end;<BR>end;<BR><BR>En el reporte, en esa columna,
pongo esto:<BR>[FechaRP([qry."FECHA_RECEPCIONPROV"], [qry."FECHA_FIN"] )
]<BR><BR>Los campos de la consulta son tipo DATE
(firebird)<BR></BLOCKQUOTE>Bueno.. dp de varias horas...
salió...<BR><BR>var<BR> dFechaRP, dFechaFin: string;<BR>begin<BR>
if AName='FECHARP' then begin<BR> dFechaRP :=
VarToStr(frParser.Calc(P1));<BR> dFechaFin:=
VarToStr(frParser.Calc(P2));<BR><BR> if (dFechaRP = '')
then<BR> Val:=
dFechaFin<BR> else<BR>
Val:= dFechaRP;<BR> end;<BR>end;<BR><BR>chauuuuuuuuuu<BR><BR>
<P>
<HR>
<P></P>_______________________________________________<BR>Lazarus-es mailing
list<BR>Lazarus-es@lists.lazarus.freepascal.org<BR>http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es<BR></BLOCKQUOTE></BODY></HTML>