<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=ISO-8859-1">
</head>
<body text="#000000" bgcolor="#ffffff">
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>
<br>
ya he hecho varias pruebas.. poniendo las variables dFechaRP y
dFechaFin como TDate...<br>
pero no hay caso, obtengo un error <br>
<img src="cid:part1.00070208.07040805@adinet.com.uy" alt=""><br>
<br>
evidentemente porque hay algo mal en esto.. <br>
<br>
¿sólo 3 parámetros puede aceptar la función que uno defina? (por los
p1, p2, p3)<br>
<br>
Agradezco alguna ayuda.<br>
muchas gracias<br>
chauuuuuuuuu<br>
<br>
<br>
</body>
</html>