Error de 'Field valued requiered'

[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;

[[ElKurgan]]

¿Y has comprobado que el valor devuelto por "CDSAlmaCOD_ARTICULO.Value;" tenga un contenido no nulo?

Porque parece que es eso, se requiere un valor válido para pasarlo a "cdsArticContUnClienteCOD_ARTICULO.Value".

Podrías hacer algo así:

Código Delphi [-]
if VarIsNull(CDSAlmaCOD_ARTICULO.Value) then
  cdsArticContUnClienteCOD_ARTICULO.Value:= 0
else
  cdsArticContUnClienteCOD_ARTICULO.Value:=CDSAlmaCOD_ARTICULO.Value;

Vamos, es un suponer si el error efectivamente es el que creo.

Saludos

[Casimiro Noteví]

Empezado por alexglez1255

...

Recuerda poner los tags al código fuente, ejemplo:



Gracias

[alexglez1255]

gracias por tu sugerencia ElKurgan, no habia visto eso lo voy verificar...y voy a poner tags

[pacopenin]

Una solución puede ser forzar el tipo de dato, utilizando en lugar de .value el correspondiente .asInteger, .asFloat, .asString, .asDateTime, etc.