update failed

[dmfilho]

boa noite a todos.

Desenvolvi a rotina abaixo e está dando o seguinte problema: 'update failed'

procedure TFormFrm_ExpArqUnive.ZeraQuantidades;
begin
TabGlobal.DTmp_001.Abrir;

TabGlobal.DTmp_001.First;
while not TabGlobal.DTmp_001.Eof do
begin
Tabglobal.DTmp_001.Modifica;
TabGlobal.DTmp_001.Quantidade.Conteudo := 0;
Tabglobal.DTmp_001.Salva;

TabGlobal.DTmp_001.Next;
end;

TabGlobal.DTmp_001.Close;
end;

Se alguém puder me ajudar ficarei muito grato.

Att.

Daniel Montello Filho