Problema ao atualiza o estoque.

OLÁ AMIGOS CRIEI A SEGUINTE PROCEDURE

CREATE PROCEDURE PCATUALIZAESTOQUEENTRADA(
PLANCAMENTO INTEGER,
PDT_ULT_COMPRA DATE)
AS
DECLARE VARIABLE QUANT NUMERIC(14,2);
DECLARE VARIABLE CODPRODUTO NUMERIC(14,2);
DECLARE VARIABLE VLR_CUSTO NUMERIC(14,2);

BEGIN
FOR SELECT cod_produto, quantidade, preco_unit FROM TB_ITENSNFENTRADA
WHERE cod_lancamento = :plancamento
INTO :CODPRODUTO, :QUANT, :VLR_CUSTO DO
BEGIN
UPDATE tb_produtos set ESTOQUE = (ESTOQUE + :QUANT),
custo_real_ant = custo_real,
custo_real = :VLR_CUSTO,
dt_ult_compra = :PDT_ULT_COMPRA
WHERE CODIGO = :CODPRODUTO;
END
END

MAIS ACONTECE O SEGUINTE QUANDO TENHO DOIS OU MAIS REGISTROS NA TB_ITENSNFENTRADA ELE NÃO ATUALIZA TODOS OS REGISTROS NA TB_PRODUTO SOMENTE UM.....

SERÁ QUE ALGUEM PODE DAR UMA AJUDA,

GRATO.....


___________________

lucasfranco,

Por favor, não escreva o conteúdo da sua mensagem utilizando caixa alta; além de desagradável, equivale a gritar. Releia as [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=6689]Regras de Conduta[/url] do fórum.
Sandra/Moderação