Fórum Problemas para gravar no banco #192345

olá, tenho no meu banco uma tabela de cadastro de produtos e uma para estorno de produtos, quando faço um estorno gostaria de tambem alterar a o campo quantidade da tabela produto de acordo com a quantidade da tabela de estorno, como posso fazer isso, utilizo interbase, estou fazendo assim, mas esta dando um erro.

begin
DmlPrincipal.TBESTORNO_PRODUTOS.Open;
DmlPrincipal.TBESTORNO_PRODUTOS.Insert;

DmlPrincipal.TBESTORNO_PRODUTOS.Fields[0].Value:= 0;
DmlPrincipal.TBESTORNO_PRODUTOS.Fields[1].Value:= EdPCod.Text;
DmlPrincipal.TBESTORNO_PRODUTOS.Fields[2].Value:= EdNF.Text;
DmlPrincipal.TBESTORNO_PRODUTOS.Fields[3].Value:= StrToFloat(EdQuantidade.Text);
DmlPrincipal.TBESTORNO_PRODUTOS.Fields[4].Value:= StrToDate(LbDataNow.Caption);
DmlPrincipal.TBESTORNO_PRODUTOS.Fields[5].Value:= ´ENTRADA´;
DmlPrincipal.TBESTORNO_PRODUTOS.Fields[6].Value:= MmMotivo.Text;

DmlPrincipal.TBESTORNO_PRODUTOS.Post;
DmlPrincipal.TBESTORNO_PRODUTOS.Close;

DmlPrincipal.TBPRODUTOS.Open;

with DmlPrincipal.QRYPRODUTOS1 do
begin
Close;
with SQL do
begin
Clear;
Add (´SELECT *´);
Add (´FROM PRODUTOS´);
Add (´WHERE PCOD = :PCod´);
end;
ParamByName(´PCod´).Value:= EdPCod.Text;
Open;
end;

DmlPrincipal.QRYPRODUTOS1.Fields[5].Value:= DmlPrincipal.QRYPRODUTOS1.Fields[5].Value + StrToFloat(EdQuantidade.Text);

DmlPrincipal.QRYPRODUTOS1.Edit;
DmlPrincipal.TBPRODUTOS.Close;


Erro: Project raised exception class EIBClientError with message ´Not in edit mode´.