Deu certo!!!
----- Original Message -----
From: "Alencar - Philler Informatica" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Tuesday, November 22, 2005 9:11 AM
Subject: Re: [delphi-br] UPDATE COM RELACIONAMENTO
> Dm.QY_011.Close;
> Dm.QY_011.SQL.Clear;
> Dm.QY_011.SQL.Add('UPDATE PRODUTOS');
> Dm.QY_011.SQL.Add('INNER JOIN ITENSPEDIDOCompras ON PRODUTOS.COD =
> ITENSPEDIDOCompras.CODPROD');
> Dm.QY_011.SQL.Add('SET PRODUTOS.ESTOQUEATUAL =
> PRODUTOS.ESTOQUEATUAL'+SINAL+'ItensPedidoCompras.QTD');
> Dm.QY_011.SQL.Add('WHERE ((PRODUTOS.COD=ITENSPEDIDOCompras.CODPROD And
> ITENSPEDIDOCompras.Movimento='+Movimento+'))');
> Dm.QY_011.ExecSQL;
>
> o parametro movimento é o número do Pedido
> e o parametro sinal é + para acrescentar o estoque e - para diminuir o
> estoque
>
Adapta os nomes das tabelas/campos pro teu caso.
UPDATE PRODUTOS SET PRODUTOS.QTDE = PRODUTOS.QTDE -
(SELECT ITENSPED.qtdeped FROM ITENSPED
WHERE ITENSPED.IDITEM = PRODUTOS.ID AND ITENSPED.IDPED = 1)
WHERE PRODUTOS.ID IN (SELECT IDITEM FROM ITENSPED
WHERE IDPED = 1)
Alencar
---------------------------------------
Philler Informatica Ltda
Jose Alencar Philereno
ICQ 13458351
Messenger/Skype (voz): alencar
"Feliz aquele que transfere o que sabe
e aprende o que ensina" Cora Coralina
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Links do Yahoo! Grupos
_______________________________________________________
Yahoo! Acesso Grátis: Internet rápida e grátis.
Instale o discador agora!
http://br.acesso.yahoo.com/
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
