[[Caral]]

Hola
Ya que me hicieron a un lado solo me queda lo ultimo.
Cambia esto a ver:

Código Delphi [-]
ZSumaInventario.ParamByName('cod').AsString := ZInventario.Fields[0].AsInteger

Saludos