<span class="Apple-style-span" style="border-collapse: collapse; font-family: arial, sans-serif; font-size: 13px; ">Mil Gracias Freddy,<div>saludos,<br></div></span><br><div class="gmail_quote">2011/5/16 Fredy Gonzales <span dir="ltr"><<a href="mailto:fredyg1965@gmail.com">fredyg1965@gmail.com</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
<div bgcolor="#ffffff">
<div><font size="2" face="Arial">busca en mr. google a TurboCom, esta echo en
lazarus y te dan el codigo fuente.</font></div>
<div><font size="2" face="Arial"></font> </div>
<div><font size="2" face="Arial">Saludos.</font></div>
<div><font size="2" face="Arial"></font> </div><font color="#888888">
<div><font size="2" face="Arial">FG</font></div>
</font><blockquote style="border-left:#000000 2px solid;padding-left:5px;padding-right:0px;margin-left:5px;margin-right:0px"><div><div></div><div class="h5">
<div style="font:10pt arial">----- Original Message ----- </div>
<div style="font:10pt arial;background:#e4e4e4"><b>From:</b>
<a title="warredondo@misena.edu.co" href="mailto:warredondo@misena.edu.co" target="_blank">Walter Adolfo Arredondo P.</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" target="_blank">Spanish version of
Lazarus List</a> </div>
<div style="font:10pt arial"><b>Sent:</b> Sunday, May 15, 2011 9:09 AM</div>
<div style="font:10pt arial"><b>Subject:</b> Re: [Lazarus-es] lazreport, user
function y fechas</div>
<div><br></div>Hola a Todos,
<div>Quien me podrai regalar una aplicacion que maneje el pueto serial.</div>
<div><br></div>
<div>Saludos,</div>
<div>Walter<br><br>
<div class="gmail_quote">2011/5/14 Paola Bruccoleri <span dir="ltr"><<a href="mailto:pbruccoleri@adinet.com.uy" target="_blank">pbruccoleri@adinet.com.uy</a>></span><br>
<blockquote style="border-left:#ccc 1px solid;margin:0px 0px 0px 0.8ex;padding-left:1ex" class="gmail_quote">
<div bgcolor="#ffffff" text="#000000">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 alt="" src="cid:78E0825F1AA34143AFC1DE35322785EF@gcg.com.pe"><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></div><br>_______________________________________________<br>Lazarus-es
mailing list<br><a href="mailto:Lazarus-es@lists.lazarus.freepascal.org" target="_blank">Lazarus-es@lists.lazarus.freepascal.org</a><br><a href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es" target="_blank">http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</a><br>
<br></blockquote></div><br><br clear="all"><br>-- <br><span style="color:rgb(0,102,0)"><span style="color:rgb(0,0,0)">Atentamente,</span></span><b><span style="color:rgb(0,102,0)"><br>---------------------------------------------------------------------------</span></b><b><span style="color:rgb(0,102,0)"></span><span style="color:rgb(0,102,0)">---------------------<br>
Ing. Walter Adolfo Arredondo
Paternina</span><br style="color:rgb(0,102,0)"><span style="color:rgb(0,102,0)"></span></b><b><span style="color:rgb(0,102,0)"></span></b><b><span style="color:rgb(0,102,0)">INSTRUCTOR</span></b><b><span style="color:rgb(0,102,0)"> - CEAI</span></b><b><span style="color:rgb(0,102,0)"> SENA REGIONAL VALLE DEL
CAUCA</span></b><br><b><span style="color:rgb(0,102,0)">
Especialista en Automatizacion Industrial</span><span style="color:rgb(0,102,0)"> </span><br style="color:rgb(0,102,0)"><span style="color:rgb(0,102,0)">
Cel : 3165370197</span><br style="color:rgb(0,102,0)"><span style="color:rgb(0,102,0)">
<a href="mailto:warredondo@misena.edu.co" target="_blank">warredondo@misena.edu.co</a></span><br style="color:rgb(0,102,0)"><span style="color:rgb(0,102,0)"></span></b><b><span style="color:rgb(0,102,0)">----------------------------------------------------------------------------</span></b><b><span style="color:rgb(0,102,0)"></span><span style="color:rgb(0,102,0)">---------------------</span></b><br>
</div>
</div></div><p>
</p><hr><div class="im">
<p></p>_______________________________________________<br>Lazarus-es mailing
list<br><a href="mailto:Lazarus-es@lists.lazarus.freepascal.org" target="_blank">Lazarus-es@lists.lazarus.freepascal.org</a><br><a href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es" target="_blank">http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</a><br>
</div><p></p></blockquote></div>
<br>_______________________________________________<br>
Lazarus-es mailing list<br>
<a href="mailto:Lazarus-es@lists.lazarus.freepascal.org">Lazarus-es@lists.lazarus.freepascal.org</a><br>
<a href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es" target="_blank">http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</a><br>
<br></blockquote></div><br><br clear="all"><br>-- <br><span style="color:rgb(0, 102, 0)"><span style="color:rgb(0, 0, 0)">Atentamente,</span></span><b><span style="color:rgb(0, 102, 0)"><br>---------------------------------------------------------------------------</span></b><b><span style="color:rgb(0, 102, 0)"></span><span style="color:rgb(0, 102, 0)">---------------------<br>
Ing. Walter Adolfo Arredondo Paternina</span><br style="color:rgb(0, 102, 0)"><span style="color:rgb(0, 102, 0)"></span></b><b><span style="color:rgb(0, 102, 0)"> </span></b><b><span style="color:rgb(0, 102, 0)">INSTRUCTOR</span></b><b><span style="color:rgb(0, 102, 0)"> - CEAI</span></b><b><span style="color:rgb(0, 102, 0)"> SENA REGIONAL VALLE DEL CAUCA</span></b><br>
<b><span style="color:rgb(0, 102, 0)"> Especialista en Automatizacion Industrial</span><span style="color:rgb(0, 102, 0)"> </span><br style="color:rgb(0, 102, 0)"><span style="color:rgb(0, 102, 0)"> Cel : 3165370197</span><br style="color:rgb(0, 102, 0)">
<span style="color:rgb(0, 102, 0)"> <a href="mailto:warredondo@misena.edu.co" target="_blank">warredondo@misena.edu.co</a></span><br style="color:rgb(0, 102, 0)"><span style="color:rgb(0, 102, 0)"></span></b><b><span style="color:rgb(0, 102, 0)">----------------------------------------------------------------------------</span></b><b><span style="color:rgb(0, 102, 0)"></span><span style="color:rgb(0, 102, 0)">---------------------</span></b><br>