Tablas mutantes

Tengo una tabla que esta mutando, me creo una temporal e inserto registros
correctamente pero luego quiero hacer un update y para eso NECESITO hacer un select en esa tabla, y no me deja.
Tengo prisa, si me pudieras contestar rapido te lo agradecería TE MANDO UN TRIGGER EN EL QUE INSERTO Y OTRO EN EL QUE INTENTO MODIFICAR
CREATE OR REPLACE TRIGGER "CURSO3".ABG_GPOPERCLAS_AR_TRG
AFTER INSERT OR UPDATE
ON GPOPERCLAS
DECLARE
CUENTA_GTO GPOPERCLAS.VALOR%TYPE:=NULL;
CUENTA_ANT GPOPERCLAS.VALOR%TYPE:=NULL;
V_CUENTA_GTO GPOPERCLAS.VALOR%TYPE:=NULL;
V_CUENTA_GTO2 GPOPERCLAS.VALOR%TYPE:=NULL;
ZONA GPOPER.GPSECC_COD%TYPE;
SUBZONA GPOPER.GPMAQGRUPO_COD%TYPE;
DPTO GPOPER.GPMAQ_COD%TYPE;
OPERARIO GPOPER.COD%TYPE;
TIP_RRHH VARCHAR2(1);
NOMBRE_OPE GPOPER.NOMBRE%TYPE;
BEGIN
IF INSERTING THEN
IF ABG_GPOPERCLAS_PKG.V_TABLA_TEMPORAL_GACLATIP(ABG_GPOPERCLAS_PKG.V_NUM) = 'TIP_RRHH' THEN
SELECT GPSECC_COD INTO ZONA FROM GPOPER WHERE
EMPGRUPO_COD = ABG_GPOPERCLAS_PKG.V_TABLA_TEMPORAL_EMPGRUPO(ABG_GPOPERCLAS_PKG.V_NUM) AND
EMP_COD = ABG_GPOPERCLAS_PKG.V_TABLA_TEMPORAL_EMPCOD(ABG_GPOPERCLAS_PKG.V_NUM) AND
COD = ABG_GPOPERCLAS_PKG.V_TABLA_TEMPORAL_GPOPER(ABG_GPOPERCLAS_PKG.V_NUM);
SELECT GPMAQGRUPO_COD INTO SUBZONA FROM GPOPER WHERE
EMPGRUPO_COD = ABG_GPOPERCLAS_PKG.V_TABLA_TEMPORAL_EMPGRUPO(ABG_GPOPERCLAS_PKG.V_NUM) AND
EMP_COD = ABG_GPOPERCLAS_PKG.V_TABLA_TEMPORAL_EMPCOD(ABG_GPOPERCLAS_PKG.V_NUM) AND
COD = ABG_GPOPERCLAS_PKG.V_TABLA_TEMPORAL_GPOPER(ABG_GPOPERCLAS_PKG.V_NUM);
SELECT SUBSTR(GPMAQ_COD,1,1) INTO DPTO FROM GPOPER WHERE
EMPGRUPO_COD = ABG_GPOPERCLAS_PKG.V_TABLA_TEMPORAL_EMPGRUPO(ABG_GPOPERCLAS_PKG.V_NUM) AND
EMP_COD = ABG_GPOPERCLAS_PKG.V_TABLA_TEMPORAL_EMPCOD(ABG_GPOPERCLAS_PKG.V_NUM) AND
COD = ABG_GPOPERCLAS_PKG.V_TABLA_TEMPORAL_GPOPER(ABG_GPOPERCLAS_PKG.V_NUM);
OPERARIO := SUBSTR(ABG_GPOPERCLAS_PKG.V_TABLA_TEMPORAL_GPOPER(ABG_GPOPERCLAS_PKG.V_NUM),2,5);
SELECT NOMBRE INTO NOMBRE_OPE FROM GPOPER WHERE
EMPGRUPO_COD = ABG_GPOPERCLAS_PKG.V_TABLA_TEMPORAL_EMPGRUPO(ABG_GPOPERCLAS_PKG.V_NUM) AND
EMP_COD = ABG_GPOPERCLAS_PKG.V_TABLA_TEMPORAL_EMPCOD(ABG_GPOPERCLAS_PKG.V_NUM) AND
COD = ABG_GPOPERCLAS_PKG.V_TABLA_TEMPORAL_GPOPER(ABG_GPOPERCLAS_PKG.V_NUM);
IF ABG_GPOPERCLAS_PKG.V_TABLA_TEMPORAL_GACLASIF(ABG_GPOPERCLAS_PKG.V_NUM) = 'D' THEN
TIP_RRHH := '1';
ELSIF ABG_GPOPERCLAS_PKG.V_TABLA_TEMPORAL_GACLASIF(ABG_GPOPERCLAS_PKG.V_NUM) = 'I' THEN
TIP_RRHH := '2';
END IF;
CUENTA_GTO := '6296'||TIP_RRHH||SUBZONA||DPTO||OPERARIO;
CUENTA_ANT := '460100'||ZONA||OPERARIO;
INSERT INTO GPOPERCLAS (EMPGRUPO_COD, EMP_COD, GPOPER_COD, GACLATIP_COD,VALOR) VALUES
(ABG_GPOPERCLAS_PKG.V_TABLA_TEMPORAL_EMPGRUPO(ABG_GPOPERCLAS_PKG.V_NUM),
ABG_GPOPERCLAS_PKG.V_TABLA_TEMPORAL_EMPCOD(ABG_GPOPERCLAS_PKG.V_NUM),
ABG_GPOPERCLAS_PKG.V_TABLA_TEMPORAL_GPOPER(ABG_GPOPERCLAS_PKG.V_NUM),
'CUENTA_GTO', CUENTA_GTO);
INSERT INTO GPOPERCLAS (EMPGRUPO_COD, EMP_COD, GPOPER_COD, GACLATIP_COD,VALOR) VALUES
(ABG_GPOPERCLAS_PKG.V_TABLA_TEMPORAL_EMPGRUPO(ABG_GPOPERCLAS_PKG.V_NUM),
ABG_GPOPERCLAS_PKG.V_TABLA_TEMPORAL_EMPCOD(ABG_GPOPERCLAS_PKG.V_NUM),
ABG_GPOPERCLAS_PKG.V_TABLA_TEMPORAL_GPOPER(ABG_GPOPERCLAS_PKG.V_NUM),
'CUENTA_ANT', CUENTA_ANT);
INSERT INTO CFCTA (EMPGRUPO_COD,EMP_COD,COD,NOMBRE,APTESDIR_SN,NIVEL_CTA) VALUES
(ABG_GPOPERCLAS_PKG.V_TABLA_TEMPORAL_EMPGRUPO(ABG_GPOPERCLAS_PKG.V_NUM),
ABG_GPOPERCLAS_PKG.V_TABLA_TEMPORAL_EMPCOD(ABG_GPOPERCLAS_PKG.V_NUM),
CUENTA_GTO, NOMBRE_OPE, 'S',12);
INSERT INTO CFCTA (EMPGRUPO_COD,EMP_COD,COD,NOMBRE,APTESDIR_SN,NIVEL_CTA) VALUES
(ABG_GPOPERCLAS_PKG.V_TABLA_TEMPORAL_EMPGRUPO(ABG_GPOPERCLAS_PKG.V_NUM),
ABG_GPOPERCLAS_PKG.V_TABLA_TEMPORAL_EMPCOD(ABG_GPOPERCLAS_PKG.V_NUM),
CUENTA_ANT, NOMBRE_OPE, 'S',12);
END IF;
END IF;
EXCEPTION
WHEN DUP_VAL_ON_INDEX THEN
NULL;
END;
/
CREATE OR REPLACE TRIGGER "CURSO3".ABG_GPOPERCLAS_GACLASIF_AR_TRG
AFTER UPDATE OF GACLASIF_COD
ON GPOPERCLAS
FOR EACH ROW
DECLARE
CUENTA_GTO GPOPERCLAS.VALOR%TYPE:=NULL;
V_CUENTA_GTO GPOPERCLAS.VALOR%TYPE:=NULL;
V_CUENTA_GTO2 GPOPERCLAS.VALOR%TYPE:=NULL;
BEGIN
IF ABG_GPOPERCLAS_PKG.V_TABLA_TEMPORAL_GACLATIP(ABG_GPOPERCLAS_PKG.V_NUM) = 'TIP_RRHH' THEN
BEGIN
/*SELECT SUBSTR(ABG_GPOPERCLAS_PKG.V_TABLA_TEMPORAL_VALOR(ABG_GPOPERCLAS_PKG.V_NUM),1,4)
INTO V_CUENTA_GTO FROM GPOPERCLAS WHERE
EMPGRUPO_COD = ABG_GPOPERCLAS_PKG.V_TABLA_TEMPORAL_EMPGRUPO(ABG_GPOPERCLAS_PKG.V_NUM) AND
EMP_COD = ABG_GPOPERCLAS_PKG.V_TABLA_TEMPORAL_EMPCOD(ABG_GPOPERCLAS_PKG.V_NUM) AND
GPOPER_COD = ABG_GPOPERCLAS_PKG.V_TABLA_TEMPORAL_GPOPER(ABG_GPOPERCLAS_PKG.V_NUM) AND
GACLATIP_COD = 'CUENTA_GTO';
SELECT SUBSTR(ABG_GPOPERCLAS_PKG.V_TABLA_TEMPORAL_VALOR(ABG_GPOPERCLAS_PKG.V_NUM),6,7)
INTO V_CUENTA_GTO2 FROM GPOPERCLAS WHERE
EMPGRUPO_COD = ABG_GPOPERCLAS_PKG.V_TABLA_TEMPORAL_EMPGRUPO(ABG_GPOPERCLAS_PKG.V_NUM) AND
EMP_COD = ABG_GPOPERCLAS_PKG.V_TABLA_TEMPORAL_EMPCOD(ABG_GPOPERCLAS_PKG.V_NUM) AND
GPOPER_COD = ABG_GPOPERCLAS_PKG.V_TABLA_TEMPORAL_GPOPER(ABG_GPOPERCLAS_PKG.V_NUM) AND
GACLATIP_COD = 'CUENTA_GTO';*/
-- FUNCION K BASICAMENTE HACE LODE ARRIBA--
CUENTA_GTO := ABG_SACAR_CTA_GTO(ABG_GPOPERCLAS_PKG.V_TABLA_TEMPORAL_EMPGRUPO(ABG_GPOPERCLAS_PKG.V_NUM),
ABG_GPOPERCLAS_PKG.V_TABLA_TEMPORAL_EMPCOD(ABG_GPOPERCLAS_PKG.V_NUM),
ABG_GPOPERCLAS_PKG.V_TABLA_TEMPORAL_GPOPER(ABG_GPOPERCLAS_PKG.V_NUM));
V_CUENTA_GTO := SUBSTR(CUENTA_GTO,1,4);
V_CUENTA_GTO2 := SUBSTR(CUENTA_GTO,6,7);
RAISE_APPLICATION_ERROR(-20333,V_CUENTA_GTO||V_CUENTA_GTO2);
IF ABG_GPOPERCLAS_PKG.V_TABLA_TEMPORAL_GACLASIF(ABG_GPOPERCLAS_PKG.V_NUM) = 'D' THEN
CUENTA_GTO := V_CUENTA_GTO||'1'||V_CUENTA_GTO2;
ELSIF ABG_GPOPERCLAS_PKG.V_TABLA_TEMPORAL_GACLASIF(ABG_GPOPERCLAS_PKG.V_NUM) = 'I' THEN
CUENTA_GTO := V_CUENTA_GTO||'2'||V_CUENTA_GTO2;
END IF;
UPDATE GPOPERCLAS SET VALOR = CUENTA_GTO WHERE
EMPGRUPO_COD = ABG_GPOPERCLAS_PKG.V_TABLA_TEMPORAL_EMPGRUPO(ABG_GPOPERCLAS_PKG.V_NUM) AND
EMP_COD = ABG_GPOPERCLAS_PKG.V_TABLA_TEMPORAL_EMPCOD(ABG_GPOPERCLAS_PKG.V_NUM) AND
GPOPER_COD = ABG_GPOPERCLAS_PKG.V_TABLA_TEMPORAL_GPOPER(ABG_GPOPERCLAS_PKG.V_NUM) AND
GACLATIP_COD = 'CUENTA_GTO';
EXCEPTION
WHEN DUP_VAL_ON_INDEX THEN
NULL;
END;
--COMMIT;
END IF;
END;
/

1 Respuesta

Respuesta
1
Puedo imaginarme el proceso. El código que me pasas está básicamente bien (no tengo tus tablas ni SQL-Server), pero creo que es correcto. Es posible que el fallo esté en el modo de hacer las operaciones.
Corrígeme:
1.-Creas una tabla temporal.
2.-Le creas estos TRIGGERS
PEGA -> Se llaman igual y se sobreescribiran ¿es una errata? ("CURSO3". ABG_GPOPERCLAS_AR_TRG)
3.- Insertas datos en la tabla temporal.
4.- Updateas datos en la tabla temporal
5.- Metes los datos de la tabla temporal en la tabla ORIGINAL.
¿En qué paso te da el fallo?
¿O te falla el código del trigger?
Exite un truco para verificar los triggers. Ahora creo que ya hay herramientas adecuadas, pero antes...
Lo que tienes que hacer es quitar los triggers y en el código del programa (debuggeando linea por linea) después de un insert-update hacer (dos opciones):
a) Llamada a un procedimiento almacenado (con el código del trigger)y pasándole desde el programa los datos y parámetros.
b) Ir ejecutando una a una todas las sentencias de los trigger en el editor de consultas. Es muy costoso, pero te dará una idea de por donde falla.
Espero haberte ayudado, si veo algo más del código esta tarde te mandaré un emilio.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Error en consulta de unión SQL en Access

Tengo una consulta de union SQL en la cuál obtengo todos los datos de dos Tablas llamadas tbEquipos y tbActualizaciones y quiero que esa consulta solo muestre los registros que sean iguales al valor de un cuadro de texto de un formulario. El error...
3 respuestas

¿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