[SOLUCIONADO] Procedimientos y Funciones

[LordJhony]

Hola...
Espero y me puedan ayudar...
Tengo la siguiente tabla

Código MySQL:

CREATE TABLE ARTICULOS (CODARTICULO NUMBER(12) NOT NULL PRIMARY KEY, NOMARTICULO VARCHAR2(20) NOT NULL, FECHA DATE NOT NULL);
 

La cual tiene almacenados unos pocos registros, en eso no hay problema.
El problema es que debo crear un paquete que tenga un procedimiento para insertar registros dentro de la tabla, un procedimiento para modificar datos y una funcion para mostrar algun dato.
Entonces, tengo el siguiente codigo

Código SQL:

CREATE OR REPLACE PACKAGE PACK_ART IS
 PROCEDURE INSERTAR_ART (COD IN ARTICULOS.CODARTICULO%TYPE, NOM IN ARTICULOS.NOMARTICULO%TYPE, FEC IN ARTICULOS.FECHA%TYPE, RESULTADO OUT VARCHAR2);
 FUNCTION MOSTRAR_ART (COD IN ARTICULOS.CODARTICULO%TYPE) RETURN VARCHAR2;
 PROCEDURE MODIFICAR_ART (COD IN ARTICULOS.CODARTICULO%TYPE, NOM IN ARTICULOS.NOMARTICULO%TYPE, RESULTADO OUT VARCHAR2);
END;
 
 
CREATE OR REPLACE PACKAGE BODY PACK_ART IS
 
 PROCEDURE INSERTAR_ART (COD IN ARTICULOS.CODARTICULO%TYPE, NOM IN ARTICULOS.NOMARTICULO%TYPE, FEC IN ARTICULOS.FECHA%TYPE, RESULTADO OUT VARCHAR2) IS
 BEGIN
 INSERT INTO ARTICULOS VALUES (COD, NOM, FEC);
 RESULTADO := 'ARTICULO INSERTADO';
 EXCEPTION
 WHEN OTHERS THEN RESULTADO := 'ERROR AL INSERTAR ARICULO';
 END; --PRECEDURE INSERTA_SAL
 
 FUNCTION MOSTRAR_ART (COD IN ARTICULOS.CODARTICULO%TYPE) RETURN VARCHAR2 IS
 V_COD VARCHAR2(60);
 BEGIN
 SELECT CODARTICULO||' '|| NOMARTICULO ||' '||FECHA INTO V_COD FROM ARTICULOS WHERE CODARTICULO = COD;
 RETURN V_COD;
 EXCEPTION
 WHEN NO_DATA_FOUND THEN
 v_cod := '** No encontrado el articulo '||to_char(COD) ;
 RETURN v_cod ;
 WHEN TOO_MANY_ROWS THEN
 v_cod := '** Más de un registro con CODIGO '||to_char(COD)||'. Avise al Admin.' ;
 RETURN v_cod ;
 WHEN OTHERS THEN
 v_cod := '** ERROR INESPERADO **' ;
 RETURN v_cod ;
 END;
 
 PROCEDURE MODIFICAR_ART (COD IN ARTICULOS.CODARTICULO%TYPE, NOM IN ARTICULOS.NOMARTICULO%TYPE, RESULTADO OUT VARCHAR2) IS
 V_COD VARCHAR2(60);
 BEGIN
  UPDATE ARTICULOS
  SET NOMARTICULO = NOM
  WHERE ARTICULOS.CODARTICULO = COD;
  RESULTADO := 'ARTICULO MODIFICADO';
 EXCEPTION
  WHEN OTHERS THEN RESULTADO := 'ERROR AL INSERTAR ARTICULO';
 END;
END;
 
 
DECLARE
RES VARCHAR2(80);
BEGIN
 dbms_output.put_line(PACK_ART.MOSTRAR_ART(111));
 dbms_output.put_line(PACK_ART.MODIFICAR_ART(111,'SILLA'));
 PACK_ART.INSERTAR_ART(112,'PELOTA',TO_DATE('20100115','YYYYMMDD'));
 dbms_output.put_line(RES);
END;
 

En el codigo anterior creo los procedimientos y la función, ademas que al final creo un subprograma que los invoque. La función, la de mostrar datos trabaja perfectamente, pero los procedimientos al momento de invocarlos me saca el error de que los argumentos en la invocación de los procedimientos no son validos...

Espero y alguien me pueda guiar para saber donde esta el error

[gnzsoloyo]

En el codigo anterior creo los procedimientos y la función, ademas que al final creo un subprograma que los invoque. La función, la de mostrar datos trabaja perfectamente, pero los procedimientos al momento de invocarlos me saca el error de que los argumentos en la invocación de los procedimientos no son validos...

Pues es medio obvio: El problema no está en los procedimientos, sino en la codificación de la aplicación. Estás creando mal los parámetros de los datos que mandas.
Para que se entienda: Oracle es un poco estricto en cuanto a los tipos de dato.
¿En qué lenguaje trabajas para esa programación?

[huesos52]

A vuelo de pajaro, veo que tu procedimiento MODIFICAR_ART tiene 2 parametros de entrada y uno de salida. al momento de invocarlo, solo le envias 2 parametros.

Trata de hacerlo así:

Código SQL:

DECLARE
RES VARCHAR2(80);
BEGIN
 dbms_output.put_line(PACK_ART.MOSTRAR_ART(111));
 dbms_output.put_line(PACK_ART.MODIFICAR_ART(111,'SILLA',RES));
 PACK_ART.INSERTAR_ART(112,'PELOTA',TO_DATE('20100115','YYYYMMDD'));
 dbms_output.put_line(RES);
END;
 

Saludos

[LordJhony]

Gracias por sus respuestas...

¿En qué lenguaje trabajas para esa programación?

Estoy trabajando en oracle express edition 10g

A vuelo de pájaro, veo que tu procedimiento MODIFICAR_ART tiene 2 parámetros de entrada y uno de salida. al momento de invocarlo, solo le envías 2 parámetros.

Corregí lo que me dices en ambos procedimientos, en el procedimiento insertar funciono perfectamente, ahora en el procedimiento Modificar, al hacer la corrección me tira el siguiente error

en este ámbito no existe ninguna función cuyo nombre sea 'MODIFICAR_ART'

[gnzsoloyo]

Estoy trabajando en oracle express edition 10g

Eso no es lo que pregunté. Lo que te quería saber es si la invocación la estás manejando con algún lenguaje de programación, en una aplicación (Java, PHP, VB.Net, C#, etc.), para entender por dónde y cómo establas llamando a la misma.
de todos modos, por lo que se entiene de lo que dijiste luego, esto lo estás llamado desde otro PL/SQL, por lo que ya no parece trascendente.

En cuanto al mensaje, sería buena idea que postearas el código e error. Es más fácil saber de qué hablas si provees información técnica relevante.

Bueno, en principio, deberías estar recibiendo el error PLS-00222, que la función invocada o no existe, o estás llamando como función a un objeto que es otra cosa (por ejemplo, llamas ese nombre como función, pero es un stored procedure).
Es un problema de lo que se denomina "entorno de existencia".

[jc3000]

Exacto gnzsoloyo.

Está llamando al procedure como si fuera una función.

[LordJhony]

Muchas gracias...
El problema estaba en que, como ustedes dijeron, invocaba el procedimiento como función...
Doy por solucionado el tema...