Ajuda em rotina de atualização de Estoque

[Recife]

Olá pessoal,

estou com uma dúvida numa rotina de um código para atualizar estoque de um sistema em delphi 7 e bd firebird 2.0, segue o código abaixo:

with DM.QryDML do
    begin
      try
        Close;
        SQL.Clear;
        SQL.Text := 'update tbproduto '+
                    'set qtdestprod = qtdestprod -('+#39+DBGrid1.Fields[2].AsString+#39+') '+
                    'where codprod =:'+#39+IntToStr(TblProdCODPROD.AsInteger)+#39;
        ExecSQL;    // neste ponto acusa o seguinte erro: SQL Parse ERROR: Paraments name expected                 
        DM.IBTransaction1.CommitRetaining;
      except
        DM.IBTransaction1.RollbackRetaining;
        ShowMessage('Estoque não atualizado!');
        Abort;
      end;

Passo o valor que esta contido na coluna quantidade do dbgrid diminuindo da quantidade da tabela produto(qtdestprod), afim de atualizar a quantidade em estoque do produto na referida tabela(produto) após realizar uma venda.

Editado Janeiro 16, 2008 por Micheus
Adicionado o delimitador de código [code] [/code]. Lembre-se de utilizá-lo para melhor visualização

[Jhonas]

ExecSQL; // neste ponto acusa o seguinte erro: SQL Parse ERROR: Paraments name expected

SQL Parse ERRO: Nome de Paramentro esperado

Este erro acontece quando um nome de tabela ou coluna é esperado.

'where codprod =:'+#39+IntToStr(TblProdCODPROD.AsInteger)+#39;

voce colocou um numero como parametro e não um nome que vai receber este numero exemplo

'where codprod =:COD;

abraço

[Recife]

Valeu Jhonas, resolveu beleza. Tava martelando fazia horas e um erro tão besta. Ao invés de passar parametro passei o valor diretamenta para a senteça. Ccorrigindo o codigo que coloquei:

with DM.QryDML do
    begin
      try
        Close;
        SQL.Clear;
        SQL.Text := 'update tbproduto '+
                          'set qtdestprod = qtdestprod -('+DBGrid1.Fields[2].AsString+') '+
                          'where codprod ='+IntToStr(TblProdCODPROD.AsInteger);
        ExecSQL;
        DM.IBTransaction1.CommitRetaining;
      except
        DM.IBTransaction1.RollbackRetaining;
        ShowMessage('Estoque não atualizado!');
        Abort;
      end;

Editado Janeiro 16, 2008 por Micheus
Incluída tag's CODE para melhorar a visualização. Utilize a identação também ;)