Update un campo sumando existencia (Inventario)

[[Caral]]

Hola
Me deja mal este error, no logro verlo, si puede poner el programa, me gustaria probarlo.
Saludos

[[enecumene]]

Vale, el programa esta a medias vere como lo posteo, dame unos minutos.

Saludos.

[[enecumene]]

A ver si funciona el link:

Almacen.rar

Saludos.

[[Caral]]

Ya lo tengo, lo voy a revisra
Ya lo comentamos, un minuto

[[Caral]]

Hola
Veamos una prueba, a ver que datos muestra:

Código Delphi [-]
ZSumaInventario.SQL.Add('update articulos set cantidad = :inv where ref = :cod');
ZSumaInventario.ParamByName('cod').Value := ZTemp.Fields[1].Value;
ZSumaInventario.ParamByName('inv').Value := strtoint(ZInventario.Fields[3].Value) + strtoint(ZTemp.Fields[3].Value);
Showmessage(ZSumaInventario.ParamByName('inv').Value);
//ZSumaInventario.ExecSQL;

Si lo puedes hacer con cod, tambien pues mejor.
Saludos

[[enecumene]]

Ni siquiera salio el showmessage:

---------------------------
Debugger Exception Notification
---------------------------
Project Almacen.exe raised exception class EVariantTypeCastError with message 'Could not convert variant of type (Null) into type (String)'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

se detiene en:

Código Delphi [-]
ZSumaInventario.ParamByName('inv').Value := strtoint(ZInventario.Fields[3].Value) + strtoint(ZTemp.Fields[3].Value);

[[Caral]]

Hola
Te pido que hagas esto por que me olvide que no tengo instalado zeos asi que no puedo correrlo.
Intenta esto:

Código Delphi [-]
ZSumaInventario.SQL.Add('update articulos set cantidad = :inv where ref = :cod');
ZSumaInventario.ParamByName('cod').Value := ZTemp.Fields[1].Value;
ZSumaInventario.ParamByName('inv').Value := 1 + 2; 
Showmessage(ZSumaInventario.ParamByName('cod').Value);
//strtoint(ZInventario.Fields[3].Value) + strtoint(ZTemp.Fields[3].Value);
//Showmessage(ZSumaInventario.ParamByName('inv').Value);
//ZSumaInventario.ExecSQL;

Veamos
Saludos