retornar varias filas en un package

[marioandrescervantes]

buen dia, tengo definido el siguiente package

Código SQL:

CREATE OR REPLACE PACKAGE pk_filas
 
IS
 
   TYPE numero IS record
   (
        CUENTA VARCHAR2(12)
   );
   
   TYPE t_numero_cuentas IS TABLE OF numero;
 
   FUNCTION fu_retorna_id(cedula VARCHAR2, prueba varchar2) RETURN numero;
 
END;
/
 

Código SQL:

CREATE OR REPLACE PACKAGE BODY pk_filas IS
 
FUNCTION fu_retorna_id(cedula VARCHAR2, prueba varchar2) RETURN numero IS
   
       
   CURSOR c_prueba(p_cedula VARCHAR2, p_prueba varchar2) IS      
        
        SELECT  cuenta
        FROM tabla1 t1, tabla2 t2
        WHERE t1.cc= p_cedula 
        AND t2_kk=t1.kk
        AND t1.es='1'
        AND t2.clase=p_prueba;
  
      BEGIN
       FOR r_c_t2 IN c_prueba(p_cedula,p_prueba) LOOP
         numero:=r_c_t2.cuenta;
               END LOOP;
     RETURN numero;
   END;
 
END;
/
 

pero al compliarlo siempre sale el error package body pk_filas on line 21 pls-00330: invalid use of type name or subtype name......

no encuentro cual es el error a ver si me ayudan....

[jc3000]

A ver, así a bote pronto ( tendría que probarlo en el curro ), veo dos fallos, uno el el PACKAGE y otro en el PACKAGE BODY.

En el package prueba esto :

Código SQL:

CREATE OR REPLACE PACKAGE pk_filas
 
IS
 
   TYPE numero IS record
   (
        CUENTA VARCHAR2(12)
   );
   
   TYPE t_numero_cuentas IS TABLE OF numero;
 
var_t_numero t_numero_cuentas;
 
   FUNCTION fu_retorna_id(cedula VARCHAR2, prueba varchar2) RETURN numero;
 
END;
/
 

Y en el body, prueba esto otro :

Código SQL:

CREATE OR REPLACE PACKAGE BODY pk_filas IS
 
FUNCTION fu_retorna_id(cedula VARCHAR2, prueba varchar2) RETURN numero IS
   
indice_tabla_pl NUMBER := 0;
       
   CURSOR c_prueba(p_cedula VARCHAR2, p_prueba varchar2) IS      
        
        SELECT  cuenta
        FROM tabla1 t1, tabla2 t2
        WHERE t1.cc= p_cedula 
        AND t2_kk=t1.kk
        AND t1.es='1'
        AND t2.clase=p_prueba;
  
      BEGIN
       FOR r_c_t2 IN c_prueba(p_cedula,p_prueba) LOOP
 
indice_tabla_pl := indice_tabla_pl +1 ;
 
var_t_numero(indice_tabla_pl) := r_c_t2.cuenta;
 
END LOOP;
 
RETURN (var_t_numero);
   END;
 
END;
/
 

SI no te rula, dimelo y lo pruebo en el curro, pero creo que así te va a rular.

[marioandrescervantes]

hola, hice las correcciones y ahora me dice que

PACKAGE BODY pk_filas
On line: 17
PLS-00382: expression is of wrong type

[jc3000]

Vale, pues mañana lo miro en el curro y te digo algo.

[morway]

Hola compañero,

estás definiendo un tipo de datos registro (numero) y luego una tabla de números. En la definición de la tabla, te faltaría indicar INDEX BY BYNARY_INTEGER por ejemplo.

Luego en la función del cuerpo del paquete, no puedes utilizar numero como si de una variable se tratara ya que es un tipo de datos, tendrás que declarar una variable local a la función de tipo numero para utilizarla dentro del bucle.

Además, donde haces numero:=r_c_t2.cuenta; deberías hacer v_numero.cuenta := r_c_t2.cuenta ; teniendo en cuenta que habrás declarado v_numero numero ;. Ten en cuenta, que el tipo numero es un record y por tanto, o asignas un record del mismo tipo o especificas la propiedad del registro a la que asignas.

Puedes echar un vistazo a este ejemplo en el cual se trata con registros y tablas pl/sql http://notasprogramacion.sodenet.es/como-recorrer-array-oracle-plsql .

Un saludo