Zerar Estoque

Boa tarde.. eu tenho um banco de dados da minha empresa , que usava antigamente. (Firebird)
porem.. recentemente eu voltei a usar o sistema, mais gostaria de um comando para zerar o estoque dos produtos
achei um comando na epoca que era para zerar o estoque negativo.. segue

SET TERM^;

CREATE OR ALTER PROCEDURE SP_ZERA_ESTOQUE_NEGATIVO
AS
DECLARE VARIABLE ESTOQUE DOUBLE PRECISION;
DECLARE VARIABLE ITE_CODIGO VARCHAR(14);
DECLARE VARIABLE ITE_CODBARRAS VARCHAR(13);
DECLARE VARIABLE MVP_QUANTIDADE NUMERIC(15,3);
DECLARE VARIABLE MVP_NREG INTEGER;
DECLARE VARIABLE PI_QTD_ESTOQUE NUMERIC(15,3);
DECLARE VARIABLE PI_QTDSAIDA_AJUSTE NUMERIC(15,3);
DECLARE VARIABLE PI_DATA DATE;
BEGIN
SELECT
CAST(EXTRACT(DAY FROM CURRENT_TIMESTAMP) || ''.'' || EXTRACT(MONTH FROM CURRENT_TIMESTAMP) || ''.'' || EXTRACT(YEAR FROM CURRENT_TIMESTAMP) AS DATE)
FROM RDB$DATABASE
INTO :PI_DATA;

SELECT
COALESCE(MAX(MVP_NREG), 0) + 1 AS LAST_NREG
FROM MOVTO_FISCAL_PAGAR_ITEM
WHERE FOR_CODIGO = 9999999
AND MVP_NUMERO = 9999999
INTO :MVP_NREG;

FOR SELECT
ESTOQUE,
ITE_CODIGO,
ITE_CODBARRAS
FROM V_ESTOQUE
WHERE ESTOQUE < 0
INTO :ESTOQUE,
:ITE_CODIGO,
:ITE_CODBARRAS
DO
BEGIN

IF (ESTOQUE < 0) THEN
BEGIN
MVP_QUANTIDADE = ESTOQUE;
PI_QTD_ESTOQUE = ESTOQUE * (-1);
PI_QTDSAIDA_AJUSTE = 0;
END
ELSE
BEGIN
MVP_QUANTIDADE = 0;
PI_QTD_ESTOQUE = ESTOQUE * (-1);
PI_QTDSAIDA_AJUSTE = ESTOQUE;
END

INSERT INTO MOVTO_FISCAL_PAGAR_ITEM (FOR_CODIGO, MVP_NUMERO, ITE_CODIGO, MVP_QUANTIDADE, MVP_STATUS, MVP_NREG,
PI_QTD_ESTOQUE, PI_STATUS_ENTRADA, PI_QTDSAIDA_AJUSTE, USU_USUARIO, PI_DATA,
ITE_CODBARRAS, PI_OBSERVACAO)
VALUES (9999999, 9999999, :ITE_CODIGO, :MVP_QUANTIDADE, ''F'', :MVP_NREG, :PI_QTD_ESTOQUE, ''A'', :PI_QTDSAIDA_AJUSTE,
''SUPORTE WSAC'', :PI_DATA, :ITE_CODBARRAS, ''AJUSTE PARA ZERAR ESTOQUE NEGATIVO'');

MVP_NREG = MVP_NREG + 1;

END
END

=================================================================================================

EXECUTE PROCEDURE SP_ZERA_ESTOQUE_NEGATIVO;

porem eu rodo esse comando no IBO , ele nao zera o estoque negativo , ainda continua.. e se alguem poder fazer um comando para zerar todo o estoque agradeço