Ir para conteúdo
Fórum Script Brasil
  • 0

Sql


Guest Alisson

Pergunta

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

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

  • 0

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.

Link para o comentário
Compartilhar em outros sites

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,2k
×
×
  • Criar Novo...