Sql

[Guest Alisson]

esta atualização não está funcionando coloque no evento afterpost

with QryGeral do

begin

if active then Close;

SQL.Clear;

SQL.Add(' UPDATE Produtos SET Qtd_Estoque= Qtd_Estoque- :Qtd');

SQL.Add(' WHERE COD_PRODUTO = :COD_PRODUTO');

ParamByName('COD_PRODUTO').AsString:=

DM.QueryVendas.FieldByName('COD_PRODUTO').AsString;

ParamByName('Qtd').AsString:=

DM.QueryVendas.FieldByName('Qtd').AsString;

QryGeral.open;

ExecSQL;

end;

sendo que não está atualizando a Qtd_Estoque na tabela de produtos esta query está numa outra tabela a de vendas.Meu "banco" é em paradox e utilizo o delphi 7

[Progr'amador]

Olá Alisson,

Use somente isso:

with QryGeral do begin
   SQL.Clear;
   SQL.Add(' UPDATE Produtos SET Qtd_Estoque = Qtd_Estoque - :Qtd');
   SQL.Add(' WHERE COD_PRODUTO = :COD_PRODUTO');
   ParamByName('COD_PRODUTO').AsString := DM.QueryVendas.FieldByName('COD_PRODUTO').AsString;
   ParamByName('Qtd').AsString:= DM.QueryVendas.FieldByName('Qtd').AsString;
   ExecSQL;
end;

Abs. Progr'amador.