Me complique la vida yo solo, con solo una linea de código lo enviaba automáticamente
Código Delphi [-]procedure Tfcliente.BCeditClick(Sender: TObject);
begin
if fmodulo.tCliente.Locate('id_cliente', fmodulo.qCliente['id_cliente'], [])
then
begin
fmodulo.tCliente.Edit;
end;
fmodulo.qCliente.Refresh;
end;
Gracias
__________________
We are told to remember the idea, not the man, because a man can fail. He can be caught, he can be killed and forgotten, but 400 years later, an idea can still change the world.
|