Problema con datos reales

[edwinsp]

Hola a todos tengo un problema cuando inserto registros a una tabla, detallo:

create table detalle(
codigo character(2),
importe1 real not null,
importe2 real not null
);

1. en una funcion envio los registros a grabar en mi tabla detalle
insert into detalle(codigo,importe1,importe2) values('10',13930,0.0);

insert into detalle(codigo,importe1,importe2) values('20',2646.7,0.0);

insert into detalle(codigo,importe1,importe2) values('30',165.77,0.0);

insert into detalle(codigo,importe1,importe2) values('40',0.0,16742.47);


2. luego antes de terminar la funcion comparo que la sumas de importe1 e importe2 sean iguales sino aborto la funcion; y hago q me salga el mensaje que la sumas no coinciden, pero aparentemente deberia de no salir el error pero me sale

agradeceria me ayudaran en que estoy fallando

gracias

[huesos52]

Que error te sale?
Cual es la función?
Como comparas las sumas?
Entre mas detalles ofrezcas, mas facil será para alguien ayudarte.

Un saludo edwinsp

[edwinsp]

Gracias por la atencion.

1. la funcion es la siguiente:

CREATE OR REPLACE FUNCTION pa_grabardetalle(_codigo character[], _aimporte real[])
RETURNS integer AS
$BODY$
BEGIN
FOR i IN array_lower(_aimporte,1) .. array_upper(_aimporte,1) LOOP
nitem:=nitem+1;
insert into public."Detalle"(codigo,importe1,importe2)
VALUES(_codigo[i],_aimporte[i][1],_aimporte[i][2]);
END LOOP;
if (select sum(importe1)-sum(importe2) from public."Detalle" Where codigo=_codigo)<>0 then
RAISE EXCEPTION 'las sumas no coinciden..!';
RETURN 0;
end if;
RETURN 1;
END;

2. en si no es error del servidor de datos, el error es el que especifico cuando las sumas no coinciden luego de verificarla asi en la funcion
if (select sum(importe1)-sum(importe2) from public."Detalle" Where codigo=_codigo)<>0 then
RAISE EXCEPTION 'las sumas no coinciden..!';
RETURN 0;
end if;

Lo curioso es que venia grabando normalmente hasta que corri la funcion con estos datos

Select "pa_grabardetalle"(ARRAY['10','20','30','40'],ARRAY[[13930.00,0.0],[2646.7,0.0],[165.77,0.0],[0.0,16742.47]]) as resultado;

gracias nuevamente

[huesos52]

No te entiendo muy bien.

if (select sum(importe1)-sum(importe2) from public."Detalle" Where codigo=_codigo)<>0 then

el campo código de que tipo es?
estas comparando un campo código con un vector?

Con que datos te funciona correctamente?

[edwinsp]

Vamos desde el principio he tenido errores al explicar

--Tabla
create table detalle(
codcab character(2) not null,
codigo character(2) not null,
importe1 real not null,
importe2 real not null
);

--Funcion
CREATE OR REPLACE FUNCTION pa_grabardetalle(_codcab character,_codigo character[], _aimporte real[])
RETURNS integer AS
$BODY$
BEGIN
FOR i IN array_lower(_aimporte,1) .. array_upper(_aimporte,1) LOOP
nitem:=nitem+1;
insert into detalle(codcab,codigo,importe1,importe2)
VALUES(_codcab,_codigo[i],_aimporte[i][1],_aimporte[i][2]);
END LOOP;
if (select sum(importe1)-sum(importe2) from detalle Where codcab=_codcab)<>0 then
RAISE EXCEPTION 'las sumas no coinciden..!';
RETURN 0;
end if;
RETURN 1;
END;

--Ejecucion que no corre
Select "pa_grabardetalle"('10',ARRAY['10','20','30','40'],ARRAY[[13930.00,0.0],[2646.7,0.0],[165.77,0.0],[0.0,16742.47]]) as resultado;

----Ejecucion que corre
Select "pa_grabardetalle"('20',ARRAY['10','20','40'],ARRAY[[100.00,0.0],[19,0.0],[0.0,119]]) as resultado;

Espero ser ahora preciso disculpa por los errores anteriores

[huesos52]

Edwinsp

Mira lo que he probado.

Código sql:

-- Function: pa_grabardetalle(_codcab bpchar, _codigo bpchar[], _aimporte real[])
 
-- DROP FUNCTION pa_grabardetalle(_codcab bpchar, _codigo bpchar[], _aimporte real[]);
 
CREATE OR REPLACE FUNCTION pa_grabardetalle(_codcab bpchar, _codigo bpchar[], _aimporte REAL[])
  RETURNS REAL AS
$BODY$
BEGIN
FOR i IN array_lower(_aimporte,1) .. array_upper(_aimporte,1) LOOP
INSERT INTO detalle(codcab,codigo,importe1,importe2)
VALUES(_codcab,_codigo[i],_aimporte[i][1],_aimporte[i][2]);
END LOOP;
IF (SELECT SUM(importe1)-SUM(importe2) FROM detalle WHERE codcab=_codcab)<>0 THEN
--RAISE EXCEPTION 'las sumas no coinciden..!';
RETURN (SELECT SUM(importe1)-SUM(importe2) FROM detalle WHERE codcab=_codcab)::REAL;
END IF;
RETURN 1;
END;
$BODY$
  LANGUAGE 'plpgsql' VOLATILE;
 

Esto me retorna el valor que deberia ser 0. Para mi sorpresa el valor el valor retornado es muy cercano a 0.
Lo extraño realmente, es que si te fijas en la tabla detalle, las inserciones se hacen correctamente.

Sigo buscando la razón de este fenomeno.

[huesos52]

Función un poco mas estable.

Código sql:

CREATE OR REPLACE FUNCTION pa_grabardetalle(_codcab bpchar, _codigo bpchar[], _aimporte NUMERIC[][])
  RETURNS FLOAT AS
$BODY$
BEGIN
FOR i IN array_lower(_aimporte,1) .. array_upper(_aimporte,1) LOOP
INSERT INTO detalle(codcab,codigo,importe1,importe2)
VALUES(_codcab,_codigo[i],round(_aimporte[i][1]::NUMERIC,2),round(_aimporte[i][2]::NUMERIC,2));
END LOOP;
IF (SELECT round((SUM(importe1)-SUM(importe2))::NUMERIC,2) FROM detalle WHERE codcab=_codcab)::NUMERIC <> 0::NUMERIC THEN
--RAISE EXCEPTION 'las sumas no coinciden..!';
RETURN (SELECT SUM(importe1)-SUM(importe2) FROM detalle WHERE codcab=_codcab)::NUMERIC;
END IF;
RETURN 1;
END;
$BODY$
  LANGUAGE 'plpgsql' VOLATILE;
 

Sigo buscando. Todavía no me lo explico.



EDITO: OTRA MAS ESTABLE AUN, PERO FALLA DESPUES DE 10 INSERCIONES.
FALLA EN EL RETORNO DE LA FUNCIÓN, PERO TODAS LAS INSERCIONES SE HACEN CORRECTAMENTE

Código SQL:

CREATE OR REPLACE FUNCTION pa_grabardetalle(_codcab bpchar, _codigo bpchar[], _aimporte NUMERIC[][])
  RETURNS NUMERIC AS
$BODY$
DECLARE
suma_1 record;
suma_2 record;
diferencia NUMERIC;
BEGIN
FOR i IN array_lower(_aimporte,1) .. array_upper(_aimporte,1) LOOP
INSERT INTO detalle(codcab,codigo,importe1,importe2)
VALUES(_codcab,_codigo[i],_aimporte[i][1],_aimporte[i][2]);
END LOOP;
SELECT INTO suma_1 SUM(importe1) AS suma1 FROM detalle WHERE codcab=_codcab;
SELECT INTO suma_2 SUM(importe2) AS suma2 FROM detalle WHERE codcab=_codcab;
diferencia := round(suma_1.suma1::NUMERIC,2)-round(suma_2.suma2::NUMERIC,2);
IF (diferencia <> 0.00) THEN
--RAISE EXCEPTION 'las sumas no coinciden..!';
RETURN diferencia;
END IF;
RETURN 99;
END;
$BODY$
  LANGUAGE 'plpgsql' VOLATILE;
 

Estoy ofendido... Por que razón toma los valores con decimales escondidos?
Sigo buscando

[edwinsp]

no tendra que ver en algo el tipo de dato en este caso real, mira hice esto

ejeccucion con error:
Select "pa_grabardetalle"('10',ARRAY['10','20','30','40'],ARRAY[[13930.00,0.0],[2646.7,0.0],[165.77,0.0],[0.0,16742.47]]) as resultado;

ejecucion corrio normal
Select "pa_grabardetalle"('10',ARRAY['10','20','30','40'],ARRAY[[13930.00,0.0],[2646.7,0.0],[165.767,0.0],[0.0,16742.467]]) as resultado;

mira alli te daras cuenta que grabe registros con 3 decimales y no me salio el mensaje de las sumas no coinciden

pero cuando vi los registros grabados, el registro que deberia estar asi:
codcab|codigo|importe1|importe2
10 |40 |0.0 |16742.467

estaba asi:
codcab|codigo|importe1|importe2
10 |40 |0.0 |16742.5

no me refleja la precision, que pasara ? alguna explicacion

[huesos52]

Encontré una solución y una explicación.
La explicación está aca, donde afirman los posibles problemas de exactitud de cierto tipo de datos. Para datos exactos, se recomienda usar el tipo de dato numeric con scale.

La solución:

Código sql:

CREATE TABLE detalle(
codcab CHARACTER(2) NOT NULL,
codigo CHARACTER(2) NOT NULL,
importe1 NUMERIC(8,2) NOT NULL,
importe2 NUMERIC(8,2) NOT NULL
);
 
--Funcion
CREATE OR REPLACE FUNCTION pa_grabardetalle(_codcab CHARACTER,_codigo CHARACTER[], _aimporte NUMERIC[][])
RETURNS NUMERIC AS
$BODY$
BEGIN
FOR i IN array_lower(_aimporte,1) .. array_upper(_aimporte,1) LOOP
INSERT INTO detalle(codcab,codigo,importe1,importe2)
VALUES(_codcab,_codigo[i],round(_aimporte[i][1]::NUMERIC,2),round(_aimporte[i][2]::NUMERIC,2));
END LOOP;
IF (SELECT SUM(importe1)-SUM(importe2) FROM detalle WHERE codcab=_codcab)<>0 THEN
RAISE EXCEPTION 'las sumas no coinciden..!';
RETURN 0;
END IF;
RETURN 1;
END;
$BODY$
LANGUAGE 'plpgsql' VOLATILE;
 

Si deseas mas decimales de exactitud, cambia la escala en la declaración de la tabla y el casteo en el insert dentro del trigger.

[edwinsp]

mil gracias huesos52, me reforzaste la idea del tipo de dato que tambien tenia en mente, nuevamente te agradezco