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 por Micheus Adicionado o delimitador de código [code] [/code]. Lembre-se de utilizá-lo para melhor visualização
Pergunta
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:
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 por MicheusAdicionado o delimitador de código [code] [/code]. Lembre-se de utilizá-lo para melhor visualização
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.