Hola a todos..

Estoy haciendo un reporte. En una de las columnas debe ir una fecha, PERO, si esta est� vac�a, se pone otra.
En el evento UserFuncion hago esto:

procedure TListadoAntecedentes.rptUserFunction(const AName: String; p1, p2,
   p3: Variant; var Val: Variant);
var
   dFechaRP, dFechaFin: string;
begin
   if AName='FECHARP' then begin
     dFechaRP := frParser.Calc(P1);
     dFechaFin:= frParser.Calc(P2);
     if dFechaRP = '' then
        Val:= dFechaFin
     else
        Val:= dFechaRP;
   end;
end;

En el reporte, en esa columna, pongo esto:
[FechaRP([qry."FECHA_RECEPCIONPROV"], [qry."FECHA_FIN"] ) ]

Los campos de la consulta son tipo DATE (firebird)

ya he hecho varias pruebas.. poniendo las variables dFechaRP y dFechaFin como TDate...
pero no hay caso, obtengo un error

evidentemente porque hay algo mal en esto..

�s�lo 3 par�metros puede aceptar la funci�n que uno defina? (por los p1, p2, p3)

Agradezco alguna ayuda.
muchas gracias
chauuuuuuuuu

------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20110514/088c7d9a/attachment.html> ------------ pr�xima parte ------------
A non-text attachment was scrubbed...
Name: moz-screenshot-40.png
Type: image/png
Size: 6689 bytes
Desc: no disponible
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20110514/088c7d9a/attachment.png>

Hola a Todos,
Quien me podrai regalar una aplicacion que maneje el pueto serial.

Saludos,
Walter

2011/5/14 Paola Bruccoleri <pbruccoleri en adinet.com.uy>

El 15/05/2011 11:09 a.m., Walter Adolfo Arredondo P. escribi�:

Hola Walter..
todav�a no he hecho cosas relacionadas a los puertos.. no tengo nada para compartir
pero.. deber�as haber abierto un hilo nuevo porque lo que pides no tiene nada que ver con mi mensaje!
chauuuuuuuuuuu

un hilo nuevo ???,
como se hace ... ayer apenas me registre.

Cordial Saludo,
Walter.

El 15 de mayo de 2011 09:45, Paola Bruccoleri
<pbruccoleri en adinet.com.uy>escribi�:

El 15/05/2011 02:07 p.m., Walter Adolfo Arredondo P. escribi�:

un hilo nuevo ???, como se hace ... ayer apenas me registre.

Comenz�s un mail nuevo!, no en respuesta a uno que ves.. como con cq lista de correo..

la dir de la lista es: lazarus-es en lists.lazarus.freepascal.org chauuuuuu

mil Gracias,
saludos,

El 15 de mayo de 2011 14:35, Paola Bruccoleri
<pbruccoleri en adinet.com.uy>escribi�:

busca en mr. google a TurboCom, esta echo en lazarus y te dan el codigo fuente.

Saludos.

FG

Mil Gracias Freddy,
saludos,

2011/5/16 Fredy Gonzales <fredyg1965 en gmail.com>

El 14/05/2011 07:20 p.m., Paola Bruccoleri escribi�:

Bueno.. dp de varias horas... sali�...

var
   dFechaRP, dFechaFin: string;
begin
   if AName='FECHARP' then begin
     dFechaRP := VarToStr(frParser.Calc(P1));
     dFechaFin:= VarToStr(frParser.Calc(P2));
     if (dFechaRP = '') then
        Val:= dFechaFin
     else
        Val:= dFechaRP;
   end;
end;

chauuuuuuuuuu

------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20110517/4fff1c8c/attachment.html>

Un Reporte, tengo algunas preguntas para precisar: Con que base de datos te estas comunicando ???
...
Que requerimientos tiene tu aplicacion, ....

2011/5/17 Paola Bruccoleri <pbruccoleri en adinet.com.uy>

El 17/05/2011 07:43 p.m., Walter Adolfo Arredondo P. escribi�:

Un Reporte, tengo algunas preguntas para precisar: Con que base de datos te estas comunicando ??? ...

firebird

Que requerimientos tiene tu aplicacion, ....

no capto a qu� viene la preguta!
chauuuuuu

Paola si lo �ltimo que pones te sali� bien entonces yo lo har�a de otra forma, por simple gusto:

procedure TListadoAntecedentes.rptUserFunction(const AName: String; p1, p2,
  p3: Variant; var Val: Variant);
begin
  if AName='FECHARP' then begin
    if length(VarToStr(frParser.Calc(P1))) = 0 then
       Val:= VarToStr(frParser.Calc(P2))
    else
       Val:= VarToStr(frParser.Calc(P1));
  end;
end;

No se lo veo m�s limpio, repito es solo cuesti�n de gustos.

Saludos Cordiales
=========
|| ISMAEL ||
=========

Paola, no se que fecha pones, pero podes resolverlo de 2 formas sin nada dentro del reporte
1. Usas un campo calculado y ahi pones la fecha que necesitas segun el caso.
2. Lo resolves por sql haciendo esto:
select coalesce(mifecha1,minuevafecha, mifecha1), nombre direccion from mitabla where .....
Mas referencias
http://www.firebirdsql.org/refdocs/langrefupd15-coalesce.html ------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20110518/96c52ab6/attachment.html>

El 18/05/2011 09:45 a.m., Maxi escribi�:

Hola Maxi..
muchas gracias por tu sugerencia.. es que esas opciones las hab�a pasado x alto debido a vicios viejos que tengo de no usar sql asiduamente! Como estas opciones son mucho m�s eficientes, ya lo solucion� de la forma que me indicastes sin tocar nada del reporte. chauuuuuuuuu

buenimo!!!, les recomiendo siempre usen cualquier metodo de estos en las bases de datos, incluso estas consultas si las haces como vistas podes hacer correcciones sin tocar codigo.
Y te ahorras horas de trabajo incluso podes solucionar un inconveniente remotamente a tu cliente accediendo a la Base.

El 19/05/2011 09:50 a.m., Maxi escribi�:

Hola Maxi..
estoy usando firebird..nunca he usado vistas.. ahora me pongo a buscar m�s info.. pero ten�s ejemplos? porqu� dec�s que las vistas son mejores que las consultas comunes?
muchas gracias
chauuuuuuuuuu

Segun estudios las vistas son mas eficientes ya q estan almacenadas en el motor, dependiendo de la consulta pueden o no ser actualizables es un standart sql 92.
En la vista podes usar joins uniones, select y wheres, agrupar pero no ordenar. El resultado lo ordenas y refiltrar si queres. Ejemplo: create view (lista de columnas) minombre de vista as Mi tremendo select
End;

El numero de columnas del select

El 19/05/11, Paola Bruccoleri <pbruccoleri en adinet.com.uy> escribi�:

Complemento la data de Maxi, respecto a las vistas actualizables, es muy similar a lo que se da con las queries en Delphi o Zeos

Los casos triviales (por ejemplo una vista donde se filtra un subconjunto de registros de la tabla)
el motor de base de datos resuelve solo como hacer los inserts y los updates.

En cambio en una vista con joins no se puede saber impl�citamente que hacer, si hay que actualizar todas las tablas, o si alguna se incluy� s�lo para devolver datos a modo informativo, en esos casos se pueden escribir triggers en los cuales poner los inserts, updates y/o deletes necesarios para que funcione como uno quiere, en forma an�loga a las propiedades que han en las queries de sqldb o el objeto auxiliar que hay en ZEOS y BDE para hacer los updates.

Estirando un poco m�s el tema, en PostgreSQL hay herencia de tablas, donde uno define una nueva tabla como los campos extra de un subtipo de una tabla existente y el motor tras bambalinas cuando se usa esa tabla hace la consulta y las actualizaciones que en otro caso requerir�a crear una vista con un join y triggers. Pero Firebird 2 creo que por el momento no soporta esto.

Saludos!

El 19/05/11 17:54, Maxi escribi�:

Hola a todos...
Una pastillita para compartir y debatir...
Totalmente de acuerdo con lo expuesto, las vistas y esas cosas que corren del lado del servidor de datos...peeeero....�y si ma�ana deciden cambiar de motor de base de datos...?...todo lo hecho ahi...�ser� compatible con el nuevo motor...programar toda esa parte de nuevo...?.Me est� pasando ahora que tengo aplicaciones con Interbase y se les ocurri� comprar Oracle...

Hasta las vista,babys...!!!

2011/5/20 Julio C�sar G�zquez <julio en mebamutual.com.ar>

Si son vistas no deberias tener mayores cambios de un motor a otro, salvo que hagas uso intensivo de funciones de ventanas como tiene oracle unicas y que no vas a encontrar en ningun motor. Recomiendo un libro excepcinal "curso avansado de sql" no lo tengo a mano ahora pero tiene una lagartija en latapa con fondo rojo.