Alguem Corrige Este Codigo Para Mim!

[Guest - Marcelo -]

Query1.Close;

Query1.SQL.Clear;

Query1.SQL.Add('UPDATE CICMEST0 SET Quanti = :X1, pvenda = :X2 WHERE CICMEST0.dtmovi = :v1 and CICMEST0.item = :v2');

Query1.ParambyName('x1').Value := CICMEST0.FieldbyName('Quanti').Value - Temp2.FieldbyName('Quantid').Value;

Query1.ParambyName('x21').Value := CICMEST0.FieldbyName('valor').Value - Temp2.FieldbyName('Quanti').Value;

Query1.ParambyName('v1').asDate := temp2.fieldbyName('Datad').Value;

Query1.ParambyName('v2').Value := temp2.FieldbyName('Itemd').Value;

Query1.EXECSQL;

[Corposemalma]

Que erro???

Muda la:

Query1.ParambyName('x2').Value := CICMEST0.FieldbyName('valor').Value - Temp2.FieldbyName('Quanti').Value;