Not Valid Timestamp

[mRoman]

Hola amigos, nuevamente recurriendo a uds y a su expertis.

Trabajo: DELPHI 6, WIN11, FB 2.0, COMPONENTES IB

(Ya he consultado este hilo)

https://www.clubdelphi.com/foros/sho...alid+timestamp

Es el mismo problema y habla de cambiar la CLASE del campo persistente, como se hace eso?. Talvez hace falta hacer eso, pero como lo hago?. Doble click sobre el componente TIBDataSet y en la opción FieldsEditor agregar los campos??...ya lo tengo asi, y si es esto, entonces como le cambio el tipo de dato??...en que propiedad.

UN POCO DE CONTEXTO:

Tuve que cambiar de equipo portátil y reinstale Delphi y toda la bola de componentes que uso (una joda)

PROBLEMA:

Desarrollé una aplicación, que antes de la forzosa "actualización" de mi equipo portátil, funcionaba bien, pero el caso es que ahora volvió a marcar error, ya lo había resuelto, pero jajaja..ya no recuerdo como le hice o que cosa hice para solucionarlo, en fin, tengo lo siguiente:

Código Delphi [-]
procedure TfrmCaptura.sBtnF3Click(Sender: TObject);
begin

    try

        dsProds.FieldByName('RESPONSABLE_DEVOLUCION').AsInteger:=cbxDevolLiq.ItemIndex;
        dsProds.FieldByName('HORA_ENTREGA').AsDateTime :=  StrToTime( mskHora.Text );
        dsProds.FieldByName('FECHA_REGISTRO_VENTA').AsDateTime:=Date;
        dsProds.FieldByName('COSTO_LITRO').AsFloat:=qryContrato.fieldbyname('PRECIO_LITRO_CONCESIONARIO').As  Float;
        dsProds.Post;
        dsProds.ApplyUpdates;
    except
       on E: Exception do
       begin
            ShowMessage(E.Message);
            modDatos.trsFluida.Rollback;
            Application.MessageBox('Lo siento, los datos no se pudieron grabar','Aviso',mb_Ok+mb_IconError);
            K_VK_ESCAPE(Sender);
       end;
    end;
end;

El problema surge al momento de dar POST y precisamente en el campo HORA_ENTREGA, el cual esta definido en la B.D. como de tipo TIMESTAMP, solo me interesa almacenar en este campo la hora, la cual es ingresado/capturada en un TMaskEdit que en su propiedad "EditMask" tengo esto: "!90:00;1;"

Bueno pues al momento de dar click sobre el botón que ejecuta el código anterior, me envía este error:

...exception class EConvertError with message "0.6060000" is not a valid timestamp'

El 0.6060000 = 01:41

Como les comentaba, anteriormente trabajaba bien, con el código que hoy les envío. En su momento por las prisas, lo resolví creando un campo varchar para almacenar el dato, pero no era lo adecuado, asi que ahora me vuelvo a enfrentar a este error.

LO QUE HE HECHO:

1.- Cambiar de tipo de dato en la BD el campo HORA_ENTREGA a solo TIME, y tampoco funcionó, me seguía enviando el mismo error.
2.- Hice una prueba en el IBExpert, haciendo el update por SQL y ahí si funciono, se actualizó el campo.

Código SQL [-]
UPDATE venta a
SET a.hora_entrega=CAST(:HORA as time)
WHERE a.folio_impreso=1005731

Entonces me hace pensar que es desde delphi que no esta pasando bien el dato, como que no lo esta convirtiendo....alguna luz compañeros?

Saludos y gracias por su tiempo.

[Casimiro Notevi]

Puede ser muchas cosas, tendríamos que tener claro qué es exactamente lo que estás pasando y qué tipo de variables usas, incluso si en la BD estás usando dialecto 1 o 3.
Los campos fecha son números con decimales, la parte entera son los días transcurridos desde 31/12/1899 creo recordar, y la parte decimal es la hora.
Por probar, así de primeras, cambia el asdatetime por asdouble.
Otra cosa, tienes punto o coma decimal, esa es otra.

[mRoman]

Empezado por Casimiro Notevi

Puede ser muchas cosas, tendríamos que tener claro qué es exactamente lo que estás pasando y qué tipo de variables usas, incluso si en la BD estás usando dialecto 1 o 3.
Los campos fecha son números con decimales, la parte entera son los días transcurridos desde 31/12/1899 creo recordar, y la parte decimal es la hora.
Por probar, así de primeras, cambia el asdatetime por asdouble.
Otra cosa, tienes punto o coma decimal, esa es otra.

Hola Casimiro, gracias por contestar.

Delphi6 no me da la opción de AsDouble, no la tiene...

Como hago para ver que Dialect uso?. Lo Googlee y unos de los resultados me dio esta sentencia:

Código SQL [-]
SELECT MON$SQL_DIALECT FROM MON$DATABASE

Hilo iniciado por ENECUMENE en el foro de DELPHIACCESS, pero me dio error, no encuentra esa base, ha de funcionar para otra versión de FB mas nueva.

Ah...punto decimal o coma?...bueno en la configuración regional del W11, tengo la de MEXICO, "." punto para definir a los decimales y la "," para la separación de miles.

Variables, pues no uso para la captura del dato, solo el objeto TMaskEdit para la captura de la hora, en el caso que nos ocupa, ingresan esta hora: "01:41". los 2 puntos están definidos en la propiedad EditMask, que se debe grabar (save) la literal.

[Casimiro Notevi]

Vayamos por parte, qué es StrToTime( mskHora.Text );

[mRoman]

Empezado por Casimiro Notevi

Vayamos por parte, qué es StrToTime( mskHora.Text );

Pues para convertir lo q contiene la propiedad TEXT del objeto TMaskEdit a un tipo de dato TIME...o como lo debo de decir a Delphi que el dato que contiene es del tipo TIME??...usé también StrToDateTime y marcó el mismo error...

Por otra parte, encontré como saber que Dialecto usa mi B.D

https://stackoverflow.com/questions/...rd-sql-dialect

Código SQL [-]
select 1/2 from rdb$database

Según comenta que si el resultado es 0 (entero) usa Dialect 3 y si da 0.500000 (Double Precision) es Dialect 1...me dio 0 (Entero), cosa extraña porque el MSG q me envía Delphi hace pensar que mi B.D. es Dialect 1!!

Tendrá algo q ver el CharSet??...lo tengo en "None" y el "Font Character Set" en "ANSI_CHARSET"

[Casimiro Notevi]

A ver, te pregunto por la función strtotime para ver cómo lo haces, porque supongo que es tuya, eso no es de delphi.
Para ver el dialecto basta con abrir la bd con ibexpert y ver sus propiedades, o también ejecuta lo siguiente:

Código SQL [-]
SELECT mon$sql_dialect FROM MON$DATABASE;