Hola a todos.
Estoy realizando una aplicación en la que tengo dos tablas Paradox 7. Una contiene los datos de los clientes y la otra las reparaciones hechas por cada cliente (el programa controla un taller). Creé entonces una relación maestro/detalle entre ambas tablas. Todo esto funciona perfectamente.
Mi problema es que la tabla de reparaciones guardo la fecha en la que comenzó la reparación. Por esta razón, y para "automatizar" el proceso, cada vez que me sitúo en la columna de
fecha de inicio, introduzco la fecha del sistema automáticamente. Aquí os pongo el código para que lo veáis mejor:
Código:
procedure TFormularioReparaciones.ReparacionesListadoKeyDown(
Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if key=9 then // Si se pulsa tabulación...
if TStringGrid(ReparacionesListado).col=4 then // Si la columna en la que está situado es la 4 (en la columna 4 está el campo INICIO
ReparacionesListado.Columns[4].Field.text:=datetostr (date); // Introduzco automáticamente en esa celda la fecha actual
end;
end.
El código funciona bien en el sentido de que sí añade la fecha, pero al hacer esto me borra el valor del campo anterior, el cual contiene el importe de la reparación.
¿A qué puede deberse esto?
Muchas gracias y saludos.
PD: probé a eliminar el código que añade la fecha y funciona correctamente. Además, sino pulso tabulación para cambiar de celda, también funciona correctamente.