Vectores en PL

Necesito alguna alternativa para manejar arreglos o vectores de mas de una dimensión, dentro de un procedimiento Oracle

1 respuesta

Respuesta
1
Esto te irá de perlas, fíjate en el EJEMPLO.
Create or replace package my_array
AS
PROCEDURE DIM( P_DIM1 IN NUMBER DEFAULT NULL,
P_DIM2 IN NUMBER DEFAULT NULL,
P_DIM3 IN NUMBER DEFAULT NULL,
P_DIM4 IN NUMBER DEFAULT NULL );
PRAGMA RESTRICT_REFERENCES( DIM, WNDS);
FUNCTION GETVAL( P_IDX1 IN NUMBER DEFAULT NULL,
P_IDX2 IN NUMBER DEFAULT NULL,
P_IDX3 IN NUMBER DEFAULT NULL,
P_IDX4 IN NUMBER DEFAULT NULL ) RETURN NUMBER;
PRAGMA RESTRICT_REFERENCES( GETVAL, WNDS, RNDS );
PROCEDURE SETVAL( P_VALUE IN NUMBER,
P_IDX1 IN NUMBER DEFAULT NULL,
P_IDX2 IN NUMBER DEFAULT NULL,
P_IDX3 IN NUMBER DEFAULT NULL,
P_IDX4 IN NUMBER DEFAULT NULL );
PRAGMA RESTRICT_REFERENCES( SETVAL, WNDS, RNDS );
PROCEDURE REMOVE;
PRAGMA RESTRICT_REFERENCES( REMOVE, WNDS );
PRAGMA RESTRICT_REFERENCES( MY_ARRAY, WNDS, RNDS, WNPS, RNPS );
PROCEDURE EJEMPLO;
END MY_ARRAY;
/
CREATE OR REPLACE PACKAGE BODY MY_ARRAY
AS
TYPE NARRAY IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
G_DIM1 NUMBER DEFAULT 0;
G_DIM2 NUMBER DEFAULT 0;
G_DIM3 NUMBER DEFAULT 0;
G_DIM4 NUMBER DEFAULT 0;
G_DIM2_3 NUMBER;
G_DIM3_4 NUMBER;
G_DIM2_3_4 NUMBER;
G_NDIM NUMBER DEFAULT 0;
G_ARRAY NARRAY;
PROCEDURE DIM( P_DIM1 IN NUMBER DEFAULT NULL,
P_DIM2 IN NUMBER DEFAULT NULL,
P_DIM3 IN NUMBER DEFAULT NULL,
P_DIM4 IN NUMBER DEFAULT NULL )IS
/******************************************************************************
Nombre: DIM
Tipo: Procedure
Descripcion: Dimensiona el array (1 a 4 dimensiones).
******************************************************************************/
BEGIN
G_DIM1 := NVL(P_DIM1,0);
G_DIM2 := NVL(P_DIM2,0);
G_DIM3 := NVL(P_DIM3,0);
G_DIM4 := NVL(P_DIM4,0);
G_DIM2_3 := G_DIM2 * G_DIM3;
G_DIM3_4 := G_DIM3 * G_DIM4;
G_DIM2_3_4 := G_DIM2 * G_DIM3 * G_DIM4;
SELECT DECODE( P_DIM1, NULL, 0,
DECODE( P_DIM2, NULL, 1,
DECODE( P_DIM3, NULL, 2,
DECODE( P_DIM4, NULL, 3, 4 ) ) ) )
INTO G_NDIM
FROM DUAL;
END;
FUNCTION IDX_OF( P_IDX1 IN NUMBER DEFAULT 0,
P_IDX2 IN NUMBER DEFAULT 0,
P_IDX3 IN NUMBER DEFAULT 0,
P_IDX4 IN NUMBER DEFAULT 0 ) RETURN NUMBER IS
/******************************************************************************
Nombre: IDX_OF
Tipo: Función
Descripcion: Llamada por Getval, retorna el valor indicado por los indices.
******************************************************************************/
L_IDX NUMBER;
BEGIN
IF ( G_NDIM = 1 ) THEN
L_IDX := P_IDX1;
ELSIF ( G_NDIM = 2 ) THEN
L_IDX := P_IDX1 * G_DIM2 +
P_IDX2;
ELSIF ( G_NDIM = 3 ) THEN
L_IDX := P_IDX1 * G_DIM2_3 +
P_IDX2 * G_DIM3 +
P_IDX3;
ELSIF ( G_NDIM = 4 ) THEN
L_IDX := P_IDX1 * G_DIM2_3_4 +
P_IDX2 * G_DIM3_4 +
P_IDX3 * G_DIM4 +
P_IDX4;
END IF;
RETURN L_IDX;
END;
FUNCTION GETVAL( P_IDX1 IN NUMBER DEFAULT 0,
P_IDX2 IN NUMBER DEFAULT 0,
P_IDX3 IN NUMBER DEFAULT 0,
P_IDX4 IN NUMBER DEFAULT 0 ) RETURN NUMBER IS
/******************************************************************************
Nombre: GETVAL
Tipo: Función
Descripcion: Retorna el valor indicado por los indices.
******************************************************************************/
BEGIN
RETURN G_ARRAY( IDX_OF(P_IDX1,P_IDX2,P_IDX3,P_IDX4) );
END;
PROCEDURE SETVAL( P_VALUE IN NUMBER,
P_IDX1 IN NUMBER DEFAULT NULL,
P_IDX2 IN NUMBER DEFAULT NULL,
P_IDX3 IN NUMBER DEFAULT NULL,
P_IDX4 IN NUMBER DEFAULT NULL )IS
/******************************************************************************
Nombre: SETVAL
Tipo: Procedure
Descripcion: Añade un valor en la posición indicada del array.
**********************************************************

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

¿Extraer unicamente las ordenes abiertas?

Como puedo extraer solo las ordenes abiertas, Estoy realizando una consulta donde tenemos ordenes con diferentes estatus desde abierta hasta cerrada, pero solo me piden que extraiga las ordenes con evento abierto, por ejemplo: Esta el numero de...
2 respuestas

Excluir registros según premisa en sentencia sql

Tengo una tabla de logs para controlar alta, baja, modificación y eliminación de registros de los usuarios. El tema es que quiero poder consultar en una tabla y lincar al correspondiente registro pero no se como excluir los registros que finalmente...
2 respuestas

Una sola tabla o dos tablas distintas?

Estoy rediseñando mi ERP y me entra la duda, después de casi 5 años utilizando el actual. Para presupuestos y facturas utilizo varias tablas: Presupuesto Presupuesto_Detalle Presupuesto_Subdetalle Factura Factura_Detalle Factura_Subdetalle Cuando un...
2 respuestas

Delphi, hacer una conexión dinámica a SQL server y luego poder insertar, modificar

Estoy comenzando con Delphi, quisiera hacer una conexión dinámica a SQL server y luego poder insertar, modificar, borrar me podrían ayudar
1 respuesta

Sacar todo los comentarios de una publicación | Problemas en mi sentencia SQL

Resulta que estoy teniendo un poco de problemas al sacar todos los comentarios de la base de datos de las publicaciones, quiero sacar los comentarios cuando estos correspondan a cada publicación. Actualmente estoy sacando todos los comentarios de...
5 respuestas

Cambiar el valor de una tabla segun el valor de otra

Si pudieran echar una mano se lo agradecería, tengo dos tabla una llamadas una pedido y otra cabecera la cuestión es lo que necesitaría es que cuando se cambie el valor de la fecha de la tabla pedidos me cambiara el valor en la tabla cabecera, lo he...
2 respuestas

Averiguar los números que faltan en una serie de Documentos

Dispongo de una tabla donde están guardados los Albaranes generados y necesito conocer los posibles números que puedan faltar en cada una de las series. Estos están compuestos por series diferentes: GF01245 - JU00254.. Etc. He de conocer los números...
2 respuestas

ID's de otra tabla en columna - Access o SQL Server

Tengo dos tablas, una de trabajadores y en la misma, tengo una columna con la categoría. El tema es que dado que un trabajador puede tener más de una categoría, guardo la id_categoría separado por ;. El tema es que ahora quiero sacar un listado y...
3 respuestas

¿Como mostrar registros que no existen en una tabla pero si existe al consultar otras tablas en sql (2 para ser exactos)?

Tengo un formulario en el que inserto registros y los cuales puedo consultar al filtrarlos de la siguiente manera select sa.campo1, sa.salesorder_no, v.sequence_no, v.quantity, v.comment from vtiger_inventoryproductrel AS v, vtiger_salesorder AS sa...
4 respuestas

Forma de proteger registros en una red local mientras un Operador esta trabajando.

Tengo una red local y tengo problemas cuando un operador esta trabajando y otro intentan entrar en el mismo proceso que esta abierto en otro puesto de trabajo aunque sea otro registro de la tabla. He entrado en Opciones de Access -> Configuración de...
2 respuestas