Hola amigos del club uso firebird 1.5 ibx y delphi 7, el tipo de fecha que uso es el TIMESTAMP para guardar la fecha y la hora, el componenete que hago referencia es DateTimePicker el guardado lo hago de la siguiente manera:
Código Delphi
[-]
procedure tfrmprincipal.guarda_otros_ing;
begin
with frmotros_ing do
with frmdata.st do
begin
sql.Text:='select * from otros_ing where cod_ing='+QuotedStr(cod_ing);
open;
if recordcount=0 then
begin
with frmdata.otros_ing do
begin
open;
Insert;
FieldByName('cod_ing').AsInteger:=0;
FieldByName('descripcion').AsString:=descrip_edit.Text;
FieldByName('monto').Value:=monto_edit.Value;
FieldByName('fecha').AsDateTime:=fecha.Date;
FieldByName('periodo').AsString:=cbo_periodo.Text;
Post;
close;
Transaction.CommitRetaining;
limpiar_otros_ing;
presenta_otros_ing;
application.MessageBox('Ingreso Guardado','Atención',+MB_ICONINFORMATION);
end;
end
else
begin
with frmdata.otros_ing do
begin
open;
if Locate('cod_ing',cod_ing,[])=true then
begin
Edit;
FieldByName('descripcion').AsString:=descrip_edit.Text;
FieldByName('monto').Value:=monto_edit.Value;
FieldByName('fecha').AsDateTime:=fecha.Date;
FieldByName('periodo').AsString:=cbo_periodo.Text;
Post;
close;
Transaction.CommitRetaining;
limpiar_otros_ing;
presenta_otros_ing;
application.MessageBox('Ingreso Actualizado','Atención',+MB_ICONINFORMATION);
end;
end;
end;
end;
Nota: el problema es que cuando guardo la hora no cambia y no se porque, alguna ayudita les agradezco.