Fórum Estoque Negativo em uma Trigger #40365

Problema-> :vQuant > PRODI.QUANTIDADE, (Estoque) aí esta ficando negativo.

Solução-> O que exceder do estoque Gravar no campo PRODI.PENDENCIA e o PRODI.QUANTIDADE fica zerado.

Quando tem estoque, a trigger funciona perfeitamente, mas quando não tem, está ficando negativo.

AS
DECLARE VARIABLE vCodBarra Char(13);
DECLARE VARIABLE vQuant SmallInt;
begin
if ((OLD.PROGRAMADO = ´S´) and (NEW.PROGRAMADO = ´N´)) then begin
for select PEDI.CodBarra, PEDI.Quantidade
from PEDIDOITENS PEDI
where PEDI.codigo = NEW.CODIGO
into :vCodBarra, :vQuant do
update PRODUTOITENS PRODI
set PRODI.QUANTIDADE = PRODI.QUANTIDADE - :vQuant,
PRODI.RESERVADO = PRODI.RESERVADO + :vQuant
where PRODI.CODBARRA = :vCodBarra;
end
end

Altenciosamente,
Luciano W.