Buenas, estoy tratando de editar un registro y lo que hace es que se me duplica
Base de datos MySQL
Componentes ttable MyDac
Código Delphi
[-]procedure editarcliente (clcod,clcnombre,clcrif,clcdireccion,clctelefono,clctelefono2,clccelular,clccontacto,clcciudad,clces tado,clccorreo,clcobservaciones,clcagret:string; clcporc:Currency);
begin
with datos.tclientes do
begin
Close;
Active:=False;
Active:=True;
Open;
Edit;
Append;
FieldByname('cl_codigo').AsString := clcod;
FieldByname('cl_descripcion').AsString := clcnombre;
FieldByname('cl_identificacion').AsString := clcrif;
FieldByname('cl_direccion').AsString := clcdireccion;
FieldByname('cl_contacto').AsString := clccontacto;
FieldByname('cl_telefono').AsString := clctelefono;
FieldByname('cl_telefono2').AsString := clctelefono2;
FieldByname('cl_celular').AsString := clccelular;
FieldByname('cl_ciudad').AsString := clcciudad;
FieldByname('cl_estado').AsString := clcestado;
FieldByname('cl_correo').AsString := clccorreo;
FieldByname('cl_agenteretiva').AsString := clcagret;
FieldByname('cl_porcentajeret').AsCurrency := clcporc;
FieldByname('cl_observaciones').AsString := clcobservaciones;
Post;
Close;
Active:=False;
MessageDlg('El Cliente Fue Modificado Exitosamente', mtCustom, [mbOK], 0);
end;
end;