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 class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">

  

    
  
  <div 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>
  </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>