error en matriz

[edwinsp]

hola a todos estoy tratando de hacer esta funcion

create or replace function pa_validaruc(xruc text)
RETURNS integer AS
$BODY$
DECLARE
i integer;
residuo integer;
ultdigito integer;
aruc integer[][];
BEGIN
if length(xruc)<>11 then
return 0;
end if;
FOR i IN 0..10 LOOP
aruc[0][i]:=cast(substring(xruc,i+1,1) as integer);
END LOOP;
RETURN 1;
END;
$BODY$
LANGUAGE 'plpgsql' VOLATILE
COST 100;

pero cuando ejecuto
SELECT pa_validaruc('10141401538');

me sale este error:
ERROR: los subíndices de arrays están fuera de rango
CONTEXT: PL/pgSQL function "pa_validaruc" line 11 at asignación

********** Error **********

ERROR: los subíndices de arrays están fuera de rango
SQL state: 2202E
Context: PL/pgSQL function "pa_validaruc" line 11 at asignación

al parecer el error esta en esta linea:
aruc[0][i]:=cast(substring(xruc,i+1,1) as integer);

pero no encuentro la forma de arreglarlo, les agradeceria una manito

atte

edwinsp

[huesos52]

En los arreglos de plpgsql los arrays empiezan en 1 y no en cero.

prueba y nos cuentas.

saludos

[edwinsp]

te comento que hice el siguiente cambio

FOR i IN 1..11 LOOP
aruc[0][i]:=cast(substring(xruc,i,1) as integer);
END LOOP;

pero me sigue botando el mismo error

atte

[huesos52]

aruc[0][i]:=

ahí estas llamando la posicion 0. Cambia eso por un 1.

saludos

[edwinsp]

mira que le cambie el cero por el uno, pero sigue dando el mismo error, que extraño

[huesos52]

pruebalo así

Código SQL:

CREATE OR REPLACE FUNCTION pa_validaruc(xruc text)
RETURNS INTEGER AS
$BODY$
DECLARE
i INTEGER;
residuo INTEGER;
ultdigito INTEGER;
aruc INTEGER[][] = array[[0,0,0,0,0,0,0,0,0,0,0]];
BEGIN
IF LENGTH(xruc)<>11 THEN
RETURN 0;
END IF;
FOR i IN 1..11 LOOP
aruc[1][i]:=CAST(SUBSTRING(xruc,i+1,1) AS INTEGER);
END LOOP;
RETURN 1;
END;
$BODY$
LANGUAGE 'plpgsql' VOLATILE
COST 100;
 

inicializando el array

[edwinsp]

Muchas gracias huesos, asi funciona, pero me quedo con la duda por que para un array de una dimension no lo tuve que hacer y funciono bien.

muchas gracias

[huesos52]

Con un poco mas de tiempo buscaré la razón... por que no la se

si la encuentras primero que yo, posteala... jejeje

saludos