[Lazarus-es] Uso de par?metros opcionales o polimorfismo.

Ismael L. Donis Garc?a ismael en citricos.co.cu
Jue Dic 24 22:44:20 CET 2009


Déjame explicarte mejor:

Yo si realizo una consulta de la siguiente forma y corre perfectamente:

strsql := 'select mpmovinv.fecha from mpmovinv where (((mpmovinv.fecha)>''' 
+ formatdatetime('yyyy/mm/dd', dtmfecha) + ''') and ((mpmovinv.entidad)=''' 
+ dtm.strentidad + ''''))'

Pero al hacer:

strsql := 'select mpmovinv.fecha from mpmovinv where 
(((mpmovinv.fecha)>:dFecha) and ((mpmovinv.entidad)=:sEntidad))'

No logro pasar el parámetro de fecha con formato 'yyyy/mm/dd'

He probado con tipo string y tipo fecha y en los 2 casos da el mismo error. 
Te mete un 20 delante de la fecha. Lo he probado tipo string porque en 
definitiva en Firebird la fecha se la debes pasar entre '' al igual que los 
string.

Saludos reiterados
=========
¦¦ ISMAEL ¦¦
=========
"Oír o leer sin reflexionar es una ocupación inútil".
               Confucio (551-479 a. C.); filósofo chino.

----- Mensaje original ----- 
De: "JoshyFun" <joshyfun en gmail.com>
Para: "Spanish version of Lazarus List" 
<lazarus-es en lists.lazarus.freepascal.org>
Enviado: jueves, 24 de diciembre de 2009 12:19
Asunto: Re: [Lazarus-es] Uso de par?metros opcionales o polimorfismo.


Hello Ismael,

Thursday, December 24, 2009, 4:29:22 PM, you wrote:

ILDG> Trato de pasar la fecha como 2009-11-30 y me pone un 20
ILDG> delante, no se porqué: lo agrego a la lista de la siguiente
ILDG> forma:
ILDG> Lista.Add(formatdatetime('yyyy/mm/dd',EndOfTheMonth(dtmfecha)));

Haz justo antes de esa linea algo como:

TempString:=formatdatetime('yyyy/mm/dd',EndOfTheMonth(dtmfecha));
Application.MessageBox(pchar(TempString),'',0);

Si ahí sale la fecha mal es que falla el "formatdatetime".

Por cierto no pones como le pasas el parámetro al query ya que
sospecho que lo harás con "StringToDate" y ahí tendrías un problema,
StringToDate usa el "locale" actual que no es (supongo) yyyy/mm/dd

-- 
Best regards,
 JoshyFun


_______________________________________________
Lazarus-es mailing list
Lazarus-es en lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es






More information about the Lazarus-es mailing list