<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html; charset=ISO-8859-1"
http-equiv="Content-Type">
</head>
<body text="#000000" bgcolor="#ffffff">
El 14/05/2011 07:20 p.m., Paola Bruccoleri escribió:
<blockquote cite="mid:4DCF001A.5090106@adinet.com.uy" type="cite">
<meta http-equiv="content-type" content="text/html;
charset=ISO-8859-1">
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>
</body>
</html>