Fórum Execute Procedure com Erro #57198

Pessoal, estou com uma grande dificuldade...

Tenho a Tabela:

CREATE TABLE PLANO_COMPRAS_PRE_2 (
COD_AREANEGOCIO CHAR(5),
EXERCICIO CHAR(5) NOT NULL,
CODIGO_MATPRIMA CHAR(5) NOT NULL,
JANEIRO FLOAT,
FEVEREIRO FLOAT,
MARCO FLOAT,
ABRIL FLOAT,
MAIO FLOAT,
JUNHO FLOAT,
JULHO FLOAT,
AGOSTO FLOAT,
SETEMBRO FLOAT,
OUTUBRO FLOAT,
NOVEMBRO FLOAT,
DEZEMBRO FLOAT
);

Tenho a procedure (que já funciona na minha aplicação) – então criei uma nova (adicionando as 2 ultima linha INSERT etc, etc,) com o objetivo de alimentar os 3 primeiros campo da tabela acima.

Ao executar a procedure me dá a seguinte mensagem:

Arithmetic overflow or division by zero has occurred.
arithmetic exception, numeric overflow, or string truncation.

Todos campos das tabelas envolvidas estão com o mesmo “tipo&8221; na procedure &8211; &8220;Division by Zero&8221; não pode ser pois não estou realizando operação de divisão na procedure &8211; e como falei a procedure já funciona sem a cláusula INSERT que adicionei no final...

Quem souber a solução desse problema por favor me ajude!!!

Segue procedure abaixo:

CREATE PROCEDURE ´PLANO_COMPRAS_6´
RETURNS (´COD_AREANEGOCIO´ CHAR(5),
´EXERCICIO´ CHAR(5),
´VERSAO´ VARCHAR(15),
´LOTEMINCOMPRA´ DECIMAL(10, 2),
´CODIGO_MATPRIMA´ CHAR(5) CHARACTER SET ASCII,
´DESC_MATPRIMA´ VARCHAR(25) CHARACTER SET ASCII,
´JANEIRO´ NUMERIC(15, 2),
´FEVEREIRO´ NUMERIC(15, 2),
´MARCO´ NUMERIC(15, 2),
´ABRIL´ NUMERIC(15, 2),
´MAIO´ NUMERIC(15, 2),
´JUNHO´ NUMERIC(15, 2),
´JULHO´ NUMERIC(15, 2),
´AGOSTO´ NUMERIC(15, 2),
´SETEMBRO´ NUMERIC(15, 2),
´OUTUBRO´ NUMERIC(15, 2),
´NOVEMBRO´ NUMERIC(15, 2),
´DEZEMBRO´ NUMERIC(15, 2))
AS
Declare Variable LOTEMINIMO DECIMAL(10,2);

Begin
FOR
SELECT C.COD_AREANEGOCIO, C.EXERCICIO, C.VERSAO, E.LOTEMINCOMPRA,
D.CODIGO_MATPRIMA, D.DESC_MATPRIMA,
(SUM (C.JANEIRO_MAT) + E.ESTQMINIMO - B.VOLUME_INICIAL ) As JANEIRO,
(SUM (C.FEVEREIRO_MAT) + E.ESTQMINIMO - B.VOLUME_INICIAL ) As FEVEREIRO,
(SUM (C.MARCO_MAT ) + E.ESTQMINIMO - B.VOLUME_INICIAL ) As MARCO,
(SUM (C.ABRIL_MAT) + E.ESTQMINIMO - B.VOLUME_INICIAL ) As ABRIL,
(SUM (C.MAIO_MAT ) + E.ESTQMINIMO - B.VOLUME_INICIAL ) As MAIO,
(SUM (C.JUNHO_MAT ) + E.ESTQMINIMO - B.VOLUME_INICIAL ) As JUNHO,
(SUM (C.JULHO_MAT) +
´DESC_MATPRIMA´ VARCHAR(25) CHARACTER SET ASCII,
´JANEIRO´ NUMERIC(15, 2),
´FEVEREIRO´ NUMERIC(15, 2),
´MARCO´ NUMERIC(15, 2),
´ABRIL´ NUMERIC(15, 2),
´MAIO´ NUMERIC(15, 2),
´JUNHO´ NUMERIC(15, 2),
´JULHO´ NUMERIC(15, 2),
´AGOSTO´ NUMERIC(15, 2),
´SETEMBRO´ NUMERIC(15, 2),
´OUTUBRO´ NUMERIC(15, 2),
´NOVEMBRO´ NUMERIC(15, 2),
´DEZEMBRO´ NUMERIC(15, 2))
AS
Declare Variable LOTEMINIMO DECIMAL(10,2);

Begin
FOR
SELECT C.COD_AREANEGOCIO, C.EXERCICIO, C.VERSAO, E.LOTEMINCOMPRA,
D.CODIGO_MATPRIMA, D.DESC_MATPRIMA,
(SUM (C.JANEIRO_MAT) + E.ESTQMINIMO - B.VOLUME_INICIAL ) As JANEIRO,
(SUM (C.FEVEREIRO_MAT) + E.ESTQMINIMO - B.VOLUME_INICIAL ) As FEVEREIRO,
(SUM (C.MARCO_MAT ) + E.ESTQMINIMO - B.VOLUME_INICIAL ) As MARCO,
(SUM (C.ABRIL_MAT) + E.ESTQMINIMO - B.VOLUME_INICIAL ) As ABRIL,
(SUM (C.MAIO_MAT ) + E.ESTQMINIMO - B.VOLUME_INICIAL ) As MAIO,
(SUM (C.JUNHO_MAT ) + E.ESTQMINIMO - B.VOLUME_INICIAL ) As JUNHO,
(SUM (C.JULHO_MAT) + E.ESTQMINIMO - B.VOLUME_INICIAL ) As JULHO,
(SUM (C.AGOSTO_MAT ) + E.ESTQMINIMO - B.VOLUME_INICIAL ) As AGOSTO,
(SUM (C.SETEMBRO_MAT) + E.ESTQMINIMO - B.VOLUME_INICIAL ) As SETEMBRO,
(SUM (C.OUTUBRO_MAT ) + E.ESTQMINIMO - B.VOLUME_INICIAL ) As OUTUBRO,
(SUM (C.NOVEMBRO_MAT ) + E.ESTQMINIMO - B.VOLUME_INICIAL ) As NOVEMBRO,
(SUM (C.DEZEMBRO_MAT ) + E.ESTQMINIMO - B.VOLUME_INICIAL ) As DEZEMBRO
FROM
EI_MAT_PRIMAS B,
MATERIAL_X_ESTRUTURA_7 C,
MATPRIMAS D,
REGRAS_NEGOCIOS_2 E
WHERE
C.COD_AREANEGOCIO = B.CODAREANEGOCIO AND
C.EXERCICIO = B.EXERCICIO AND
C.CODIGO_MATPRIMA = B.CODIGO_MATPRIMA AND
C.CODIGO_MATPRIMA = D.CODIGO_MATPRIMA AND
C.CODIGO_MATPRIMA = E.CODIGO_MATPRIMA
Group by
C.COD_AREANEGOCIO, C.EXERCICIO, C.VERSAO, E.LOTEMINCOMPRA, E.ESTQMINIMO, B.VOLUME_INICIAL,
D.CODIGO_MATPRIMA, D.DESC_MATPRIMA
into
:LOTEMINIMO, :COD_AREANEGOCIO, :EXERCICIO, :VERSAO, :CODIGO_MATPRIMA,:DESC_MATPRIMA,
:JANEIRO, :FEVEREIRO, :MARCO, :ABRIL, :MAIO, :JUNHO, :JULHO, :AGOSTO,
:SETEMBRO, :OUTUBRO, :NOVEMBRO,E.ESTQMINIMO - B.VOLUME_INICIAL ) As JULHO,
(SUM (C.AGOSTO_MAT ) + E.ESTQMINIMO - B.VOLUME_INICIAL ) As AGOSTO,
(SUM (C.SETEMBRO_MAT) + E.ESTQMINIMO - B.VOLUME_INICIAL ) As SETEMBRO,
(SUM (C.OUTUBRO_MAT ) + E.ESTQMINIMO - B.VOLUME_INICIAL ) As OUTUBRO,
(SUM (C.NOVEMBRO_MAT ) + E.ESTQMINIMO - B.VOLUME_INICIAL ) As NOVEMBRO,
(SUM (C.DEZEMBRO_MAT ) + E.ESTQMINIMO - B.VOLUME_INICIAL ) As DEZEMBRO
FROM
EI_MAT_PRIMAS B,
MATERIAL_X_ESTRUTURA_7 C,
MATPRIMAS D,
REGRAS_NEGOCIOS_2 E
WHERE
C.COD_AREANEGOCIO = B.CODAREANEGOCIO AND
C.EXERCICIO = B.EXERCICIO AND
C.CODIGO_MATPRIMA = B.CODIGO_MATPRIMA AND
C.CODIGO_MATPRIMA = D.CODIGO_MATPRIMA AND
C.CODIGO_MATPRIMA = E.CODIGO_MATPRIMA
Group by
C.COD_AREANEGOCIO, C.EXERCICIO, C.VERSAO, E.LOTEMINCOMPRA, E.ESTQMINIMO, B.VOLUME_INICIAL,
D.CODIGO_MATPRIMA, D.DESC_MATPRIMA
into
:LOTEMINIMO, :COD_AREANEGOCIO, :EXERCICIO, :VERSAO, :CODIGO_MATPRIMA,:DESC_MATPRIMA,
:JANEIRO, :FEVEREIRO, :MARCO, :ABRIL, :MAIO, :JUNHO, :JULHO, :AGOSTO,
:SETEMBRO, :OUTUBRO, :NOVEMBRO, :DEZEMBRO
Do
begin
IF (:LOTEMINIMO IS NULL) then LOTEMINIMO = 0;
IF (:LOTEMINIMO > :JANEIRO) then JANEIRO = LOTEMINIMO;
IF (:LOTEMINIMO > :FEVEREIRO) then FEVEREIRO = LOTEMINIMO;
IF (:LOTEMINIMO > :MARCO) then MARCO = LOTEMINIMO;
IF (:LOTEMINIMO > :ABRIL) then ABRIL = LOTEMINIMO;
IF (:LOTEMINIMO > :MAIO) then MAIO = LOTEMINIMO;
IF (:LOTEMINIMO > :JUNHO) then JUNHO = LOTEMINIMO;
IF (:LOTEMINIMO > :JULHO) then JULHO = LOTEMINIMO;
IF (:LOTEMINIMO > :AGOSTO) then AGOSTO = LOTEMINIMO;
IF (:LOTEMINIMO > :SETEMBRO) then SETEMBRO = LOTEMINIMO;
IF (:LOTEMINIMO > :OUTUBRO) then OUTUBRO = LOTEMINIMO;
IF (:LOTEMINIMO > :NOVEMBRO) then NOVEMBRO = LOTEMINIMO;
IF (:LOTEMINIMO > :DEZEMBRO) then DEZEMBRO = LOTEMINIMO;
INSERT INTO PLANO_COMPRAS_PRE_2 (COD_AREANEGOCIO, EXERCICIO, CODIGO_MATPRIMA)
VALUES (:COD_AREANEGOCIO, :EXERCICIO, :CODIGO_MATPRIMA);
SUSPEND;
End
End