<!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.19046">
<STYLE></STYLE>
</HEAD>
<BODY 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>
<DIV><FONT size=2 face=Arial>FG</FONT></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=warredondo@misena.edu.co
href="mailto:warredondo@misena.edu.co">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">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">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">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>
<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>