A ver si alguien me puede echar una mano con esto. Tengo el siguiente código:
Código:
Procedure ActualizarTablaVisitas;
var
aux : integer;
nueva : TDataSource;
Begin
// Ir al último Lugar de la tabla
with modulodedatos do
Begin
nueva := tablavisitas.MasterSource;
Tablavisitas.MasterSource := nil;
Tablavisitas.last;
aux := TablavisitasIndice_visitas.value;
aux := aux+1;
TablaVisitas.Append;
TablaVisitasIndice_visitas.value := aux;
TablaVisitasClave_Cliente.value := TablaClientesCodigo_Cliente.value;
TablaVisitasfechavisita.value := date;
Tablavisitas.edit;
Tablavisitas.post;
Tablavisitas.mastersource := nueva;
End;
End;
Por algún motivo me rompe al intentar hacer el post. Me da un error de Key violation
no se muy bien que hacer
Además me pasa algo raro, cuando lo uso por primera vez, todo parece funcionar perfectamente, la cosa falla cuando intento ejecutarlo después de haber añadido un registro con este procedimiento.
Gracias de antemano por vuestra atención