Paquete de pruebas SQL

[KhanS]

Hola, tengo un problema con un paquete de pruebas que he creado y no me termina de compilar porque me da este error.

Error(4,11): PLS-00323: subprogram or cursor 'INSERTAR' is declared in a package specification and must be defined in the package body.

El codigo completo es este.

Código SQL:

/*prueba empleado*/
 
CREATE OR REPLACE 
PACKAGE pruebas_empleado AS
 
PROCEDURE inicializar;
PROCEDURE insertar (prueba_insertar_empleado IN VARCHAR,
wPuesto IN puestos.oid_pue%TYPE,
  wNombre IN empleados.nombre%TYPE,
  wApellidos IN empleados.apellidos%TYPE,
  wSexo IN empleados.sexo%TYPE,
  wNIF IN empleados.nif%TYPE,
  wFNac IN empleados.fnac%TYPE,
  wSalario IN empleados.salario%TYPE,
  wFInicioContrato IN empleados.finiciocontrato%TYPE,
  wFFinContrato IN empleados.ffincontrato%TYPE,
  w_Cuota IN clientes.cuota%TYPE,
  salidaEsperada IN BOOLEAN);
PROCEDURE eliminar (prueba_eliminar_empleado IN VARCHAR,
wPuesto IN puestos.oid_pue%TYPE,
  wNombre IN empleados.nombre%TYPE,
  wApellidos IN empleados.apellidos%TYPE,
  wSexo IN empleados.sexo%TYPE,
  wNIF IN empleados.nif%TYPE,
  wFNac IN empleados.fnac%TYPE,
  wSalario IN empleados.salario%TYPE,
  wFInicioContrato IN empleados.finiciocontrato%TYPE,
  wFFinContrato IN empleados.ffincontrato%TYPE,
  salidaEsperada BOOLEAN);
PROCEDURE actualizar (prueba_actualizar_empleado IN VARCHAR, 
wPuesto IN puestos.oid_pue%TYPE,
  wNombre IN empleados.nombre%TYPE,
  wApellidos IN empleados.apellidos%TYPE,
  wSexo IN empleados.sexo%TYPE,
  wNIF IN empleados.nif%TYPE,
  wFNac IN empleados.fnac%TYPE,
  wSalario IN empleados.salario%TYPE,
  wFInicioContrato IN empleados.finiciocontrato%TYPE,
  wFFinContrato IN empleados.ffincontrato%TYPE,
  salidaEsperada BOOLEAN);
 
END pruebas_empleado;
 
/
 
------- HASTA AQUI TODO SALE BIEN Y NO DA ERROR ----------
 
CREATE OR REPLACE 
PACKAGE BODY pruebas_empleado AS
  /*inicializacion*/
  PROCEDURE inicializar AS
  BEGIN
    DELETE FROM EMPLEADOS;
  END inicializar;
  
  /*insertar*/
  PROCEDURE insertar (
  prueba_insertar_empleado VARCHAR, 
  wPuesto IN puestos.oid_pue%TYPE,
  wNombre IN empleados.nombre%TYPE,
  wApellidos IN empleados.apellidos%TYPE,
  wSexo IN empleados.sexo%TYPE,
  wNIF IN empleados.nif%TYPE,
  wFNac IN empleados.fnac%TYPE,
  wSalario IN empleados.salario%TYPE,
  wFInicioContrato IN empleados.finiciocontrato%TYPE,
  wFFinContrato IN empleados.ffincontrato%TYPE,
  salidaEsperada BOOLEAN
  ) IS
    salida BOOLEAN := TRUE;
    num PLS_INTEGER;
  BEGIN
    num := 0;
    /*insertar empleado*/
    CREAR_EMPLEADO(wPuesto,wNombre,wApellidos,wSexo,wNIF,wFNac,wSalario,wFInicioContrato);
    /*seleccionar empleado para ver si se ha insertado correctamente*/
 
    SELECT COUNT(*) INTO num FROM EMPLEADOS WHERE NIF=wNIF;
    
    IF (num < 1) THEN
    salida := FALSE;
    END IF;
    COMMIT WORK;
    
    DBMS_OUTPUT.put_line (prueba_insertar_empleado || ':' || ASSERT_EQUALS(salida, salidaEsperada));
    EXCEPTION
    WHEN OTHERS THEN
    DBMS_OUTPUT.put_line(prueba_insertar_empleado || ':' || ASSERT_EQUALS(FALSE, salidaEsperada));
    ROLLBACK;
    
  END insertar;
  
  /*actualizar*/
  PROCEDURE actualizar ( prueba_actualizar_empleado VARCHAR, 
wPuesto IN puestos.oid_pue%TYPE,
  wNombre IN empleados.nombre%TYPE,
  wApellidos IN empleados.apellidos%TYPE,
  wSexo IN empleados.sexo%TYPE,
  wNIF IN empleados.nif%TYPE,
  wFNac IN empleados.fnac%TYPE,
  wSalario IN empleados.salario%TYPE,
  wFInicioContrato IN empleados.finiciocontrato%TYPE,
  wFFinContrato IN empleados.ffincontrato%TYPE,
  salidaEsperada BOOLEAN) IS
    
    num PLS_INTEGER;
    salida BOOLEAN := TRUE;
    EMPLEADOS_row EMPLEADOS%ROWTYPE;
    
  BEGIN
      num := 0;
    
    /*Actualizar cliente*/
    UPDATE EMPLEADOS SET FFinContrato =  wFFinContrato WHERE NIF=wnif;
    SELECT * INTO EMPLEADOS_row FROM EMPLEADOS WHERE NIF=wnif;
    IF (EMPLEADOS_row.FFinContrato<> wFFinContrato) THEN
    salida := FALSE;
    END IF;
    COMMIT WORK;
    
    
    DBMS_OUTPUT.put_line(prueba_actualizar_empleado || ':' || ASSERT_EQUALS (salida, salidaEsperada));
    EXCEPTION
    WHEN OTHERS THEN
    DBMS_OUTPUT.put_line(prueba_actualizar_empleado || ':' || ASSERT_EQUALS (FALSE, salidaEsperada));
    ROLLBACK;
    
  END actualizar;
 
  /*eliminar*/
PROCEDURE eliminar ( prueba_eliminar_empleado VARCHAR, 
  wPuesto IN puestos.oid_pue%TYPE,
  wNombre IN empleados.nombre%TYPE,
  wApellidos IN empleados.apellidos%TYPE,
  wSexo IN empleados.sexo%TYPE,
  wNIF IN empleados.nif%TYPE,
  wFNac IN empleados.fnac%TYPE,
  wSalario IN empleados.salario%TYPE,
  wFInicioContrato IN empleados.finiciocontrato%TYPE,
  wFFinContrato IN empleados.ffincontrato%TYPE,
  salidaEsperada BOOLEAN) IS
 
salida BOOLEAN := FALSE;
num PLS_INTEGER;
 
BEGIN
  num := 0;
  /*eliminar empleado*/
  DELETE FROM EMPLEADOS WHERE  NIF=wNIF;
 
SELECT COUNT (*) INTO num FROM EMPLEADOS WHERE NIF=wNIF;
IF (num < 1) THEN
salida := FALSE;
ELSE
salida := TRUE;
END IF;
COMMIT WORK;
 
DBMS_OUTPUT.put_line (prueba_eliminar_empleado || ':' || ASSERT_EQUALS (salida, salidaEsperada));
EXCEPTION
WHEN OTHERS THEN
DBMS_OUTPUT.put_line (prueba_eliminar_empleado || ':' || ASSERT_EQUALS (FALSE, salidaEsperada));
ROLLBACK;
 
END eliminar;
END;
/
/*funcion auxiliar ASSERT_EQUALS*/
CREATE OR REPLACE
FUNCTION ASSERT_EQUALS (salida BOOLEAN, salidaEsperada BOOLEAN) RETURN varchar2 AS
BEGIN
IF (salida=salidaEsperada) THEN
RETURN 'exito';
ELSE
RETURN 'fallo';
END IF;
END ASSERT_EQUALS;
 

[/CODE]


Gracias de antemano y Feliz Año.

[gnzsoloyo]

Error(4,11): PLS-00323: subprogram or cursor 'INSERTAR' is declared in a package specification and must be defined in the package body.

¿Y cuál es la duda?
El mensaje es bien claro: Ese cursor tiene que ser declarado en el SPEC del package. Obviamente no lo estás haciendo .

[KhanS]

Si pudieras solucionarmelo sobre el codigo, me solucionarias el problema. Si me dices eso, yo tambien se inglés y se lo que pone.

[gnzsoloyo]

¿Y cuál es la duda?
Pon la definición de ese cursor antes de las que corresponden a los SP y las SF y listo.
No es mucho más que eso.

Vamos a lo central: Todo objeto de uso global en el package, y todos los objetos que serán accedidos en forma pública en un package deben estar en la especificación.
En el caso de un CURSOR es un TYPE que declaras, que luego usas al momento de instanciarlo en el SP o SF donde lo requieras.

¿Qué duda te presenta? ¿Nunca declaraste TYPEs en un package?

[jc3000]

gnzsoloyo.

El problema ( aparte de la mala educación de Khans, que parece exigir que se lo soluciones sobre el codigo en lugar de aceptar ideas para que lo solucione el ) así a bote pronto me dá que es porque los parametros de ese procedure definidos en la especificación no coinciden con los que hay en el body.


Dale un pez a un hombre y comerá un dia, enseñale a pescar y comerá toda su vida.

Proverbio chino.

[gnzsoloyo]

Gracias por la nota.
La verdad, no me puse a hilar tan fino. No me voy a poner a analizar todo ese código por simples ganas (ya tengo bastante con los desastres que me hace la software factory para la empresa). Y menos aún con un mensaje de error tan evidente.
Yo lo sugeriría a @KhanS que antes que nada ordene un poco esa cosa, y se ponga a deprurar con cuidado. A fin de cuentas, el analizador sintáctico que tiene el propio Oracle Express alcanza para limpiar el package de basura.
Con un poco de esfuerzo propio debería poder lograrlo sin complicaciones.
Máxime, como dije, cuando el mensaje de error es tan claro.

VEremos que dice (espero que con mejor onda).