Ayuda Con Sql

[lbuelvas]

Hola Casimiro, no me refiero a la representación interna sino a la forma en que Firebird muestra los campos Date al usuario

[[kuan-yiu]]

No necesitas hacer eso, Dephi tiene funciones que lo hacen por ti, concretamente FormatDateTime.
Y aquí tienes listada un montón más de funciones con fechas:
https://delphiallimite.blogspot.com/...cha-y.html?m=0

[Casimiro Notevi]

Empezado por lbuelvas

Hola Casimiro, no me refiero a la representación interna sino a la forma en que Firebird muestra los campos Date al usuario

Firebird los presenta como tú quieras. Firebird es un gestor de bases de datos "servidor", le da igual la presentación, eso lo deja al "cliente".

[mamcx]

En otras palabras, internamente, no tienes porque hacer "malabares" si usas los tipos de datos correctos. Unicamente haces conversiones en tus entradas/salidas del/al "exterior". Eso significa que ademas, "alinea" el uso de tus tipos con lo que te da el lenguage.

En concreto, Delphi tiene de planta y por terceros un MONTON de controles y librerias que felizmente te permiten usar DateTime como DateTimes, Monedas como monedas, horas como horas, sin pasar por conversiones manuales a texto.

Esto siginifica que piensa asi:

Problema: Tengo que usar fechas


Hay un tipo fecha en delphi y/o BD y/ lo que sea?

• Si, lo uso (y por lo tanto tiene que existir rutinas ya probadas para manipularlos)
• No, y hago mi tipo concreto que abstrae como hacerlo

Hay un CONTROL para fechas?

• Si, lo uso
• No, y hago mi tipo concreto que abstrae como hacerlo

En este instante veo una vble o campo que se supone es fecha. USA EL TIPO CORRECTO?

• Si, eres un buen programador, date una palmadita
• No, eres un buen programador, y por lo tanto cambia al tipo correcto

Ahora, si la fuente de entrada/salida no tiene ese tipo "nativo" (ej: Lees de un archivo de csv) entonces:

Conviertes TODOS los campos al tipo correcto JUNTO con la lectura

Código Delphi [-]
convertir_desde(archivo:TCSV):TCuentas

y al final lo devuelves:

Código Delphi [-]
convertir_hacia(cuentas: TCuentas): TCSV

eso solamente debe existir A LA ENTRADA/SALIDA del mundo exterior. En TODOS los demas lugares usas el tipo correcto!

----
Esto se extiende. Si estas facturando y tienes unos estados como "Borrador", "En Proceso", "Pagado", entonces lo correcto es crear un tipo:

Código Delphi [-]
type
   TFacturaEstado = (Borrador, Proceso, Pagado); 

convertir_desde(texto:String): TFacturaEstado
convertir_hacia(estado: TFacturaEstado): String

Aunque no lo parezca, esto reduce un MONTON de codigo repetido (ej: Estar chequeando por todos lados si el "estado" esta vacio, o preocuparse si esta o no en mayusculas, etc. Con un tipo, todo eso desaparece). Junto con hacer test redundantes (sera que si guarda el estado que es?).

Y si hay un error en el parseo de datos, no tienes que ir a chequear en cientos de lugares. Solo hay 2 opciones: convertir_desde, convertir_hacia.

[cloayza]

Como dices los compañeros, lo del formato despliegue lo defines tu.

Mencionas en tu primer post que usas los componentes FIBPlus.

Bueno el TpfIBDataset tiene una propiedad 'DefaultFormats' en la cual puedes definir los siguientes formatos de despliegue:

Código Delphi [-]
     DefaultFormats.DateTimeDisplayformat:='dd.mm.yyyy hh:mm';
     DefaultFormats.DisplayFormatDate:='dd.mm.yyyy';
     DefaultFormats.DisplayFormatTime:='hh:mm';
     DefaultFormats.NumericDisplayFormat:='#,##0.0';
     DefaultFormats.NumericEditFormat:='0.0';

Con esto das solución a el problema al formato de despliegue de datos.

Saludos cordiales

[marcial]

Perdonad que os moleste de nuevo con este tema. He usado los parámetros como me habéis dicho pero con este código me da el error:
SQL Error code -303
Arithmetic excepcion, numeric overflow or string truncation.

El código que uso es:

Código Delphi [-]
HistoricoRecibos.Close;
HistoricoRecibos.SelectSQL.Clear;
HistoricoRecibos.SelectSQL.add('SELECT * from HistoricoRecibos');
HistoricoRecibos.SelectSQL.add('where (Upper(Socio) LIKE :Socio)');
HistoricoRecibos.SelectSQL.add('OR Cast(lpad(extract(Month from FECHAEMISION),2,''0'') as VarChar(3)) || ''.'' || 
                                   Cast(lpad(extract(Day from FECHAEMISION),2,''0'') as VarChar(3)) || ''.'' || 
                                   Cast(extract(year from FECHAEMISION) as VarChar(5)) LIKE :FechaEmision');
HistoricoRecibos.ParamByName('Socio').AsString := '%' + Edit1.Text + '%';
HistoricoRecibos.ParamByName('FechaEmision').AsString := '%' + Edit1.Text + '%';

HistoricoRecibos.QSelect.ExecQuery;
HistoricoRecibos.Open;

Cuando voy introduciendo la fecha en el Edit1 en este formato: ej."23.06.202" hasta aqui funciona bien y hace bien la consulta, pero cuando introduzco el último "0" de "año 2020" me da el error.

He probado con Cast, Extract y este código es el que mas se aproxima a lo que quiero, sabéis que puede pasar para que me de ese error??
Gracias por anticipado.

[mamcx]

Presta atención al consejo: Sigues sin usar los tipos de datos correctos. Estas mandando como texto un fecha.

[[kuan-yiu]]

Esto no tiene los tipos adecuados: fechas como fechas, enteros como enteros...

Código Delphi [-]
HistoricoRecibos.ParamByName('FechaEmision').AsString := '%' + Edit1.Text + '%';  //NO

HistoricoRecibos.ParamByName('FechaEmision').AsDateTime:= StrToDate(Edit1.Text);  //Solo cuando la fecha esté completa

[mamcx]

Y agregaria: Deja de usar un control de texto para un campo fecha. Usa uno que no requiera uso de StrToDate, como TDateTimePicker