[alexglez1255]

Código Delphi [-]
procedure Taltadecontratos.BtbuscarArticuloClick(Sender: TObject);
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;
           codigoarticulohallado:=CDSAlmaCOD_ARTICULO.Value;
           precioarticulohallado:=CDSAlmaPRECIO_VENTA.Value;
           descripcionarticulohallado:=CDSAlmaDESCRIPCION.Value;
           cdsArticContUnCliente.Open;
           cdsArticContUnCliente.insert;
------> cdsArticContUnClienteCOD_ARTICULO.Value:=CDSAlmaCOD_ARTICULO.Value;
           cdsArticContUnClienteFECHA.Value:=Date;
           cdsArticContUnClienteHORA.Value:=Time;
         end;
      end;
   end;
end;