[alexglez1255]

disculpen creo que el error es exactamente cuando intento abrir la tabla para edicion
la tabla la abre bien pero cuando la pongo en modo edicion me marca el error
.. alguien sabe por que..?
Gracias jovenes por su apoyo

Código Delphi [-]
procedure Taltadecontratos.BtbuscarArticuloClick(Sender: TObject);
var
  codclie:integer;
begin
  if Edcodarticulo.text='' then
  begin
    showMessage('Debe escribir un codigo para buscar ');
    Edcodarticulo.SetFocus;
  end
  else
  begin
    if LogicaNegocio.CDSAlma.Locate('COD_ARTICULO',Edcodarticulo.Text,[loPartialKey])=false then
      showMessage('No existe ese articulo ')
    Else
    begin
      with logicanegocio do
      begin
        CDSAlma.Refresh;
        // guardo los datos de la tabla de datos de almacen para transferirlos a la
        // tabla de los articulso de los contratos
        codigoarticulohallado:=CDSAlmaCOD_ARTICULO.Value;
        precioarticulohallado:=CDSAlmaPRECIO_VENTA.Value;
        descripcionarticulohallado:=CDSAlmaDESCRIPCION.Value;
        // abro la tabla y la pongo en modo de edicion
        cdsarticContUnCliente.open;
        //al abrir la tabla para edicion da error
        cdsArticContUnCliente.edit;
        cdsArticContUnClienteFECHA.Value:=Date;
        cdsArticContUnClienteHORA.Value:=Time;
        cdsArticContUnClienteCOD_ARTICULO.AsInteger:=CDSAlmaCOD_ARTICULO.AsInteger;
      end;
    end;
  end;
end;