Un Reporte, tengo algunas preguntas para precisar:<br>Con que base de datos te estas comunicando ???<br>...<br>Que requerimientos tiene tu aplicacion, .... <br><br><div class="gmail_quote">2011/5/17 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">
    El 14/05/2011 07:20 p.m., Paola Bruccoleri escribió:
    <div class="im"><blockquote type="cite">
      
      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></div>
    Bueno.. dp de varias horas... salió...<div class="im"><br>
    <br>
    var<br>
      dFechaRP, dFechaFin: string;<br>
    begin<br>
      if AName='FECHARP' then begin<br></div>
        dFechaRP := VarToStr(frParser.Calc(P1));<br>
        dFechaFin:= VarToStr(frParser.Calc(P2));<div class="im"><br>
    <br>
        if (dFechaRP = '') then<br>
           Val:= dFechaFin<br>
        else<br>
           Val:= dFechaRP;<br>
      end;<br>
    end;<br>
    <br></div>
    chauuuuuuuuuu<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>