[SOLUCIONADO] llamar un stored dentro de un cursor

[emmanuelhxc]

un saludo a todos tengo un problemita que no logro resolver y no se si es la manera correcta de hacerlo quiero llamar un stored stored procedure y asignarlo an cursor de salida ... algo como esto


OPEN p_respuesta FOR

sier.spconsuptimenoparam(p_tipobusqueda=>24,p_fian io=>2012,p_fisemana=>52,p_fistatus=>1,p_respuesta= >:cur);

[gnzsoloyo]

Si no me equivoco, para eso el SP tiene que tener al cursor como parámetro de salida...
No lo veo complicado, y he visto muchos casos así en la empresa en que trabajo.
¿Por qué no posteas el código completo de lo que estás haciendo, para ver cómo o haces y donde está el problema?

[emmanuelhxc]

de antemano gracias por tu interés, y si tienes razón yo también creo que no es muy complicado pero no encuentro la forma de hacerlo

aqui esta una parte del stored al que mando a llamar y tambien te pongo el segundo stored con el cual quiero que se llene el cursor

este es el stored que yo ejecuto donde quiero mandar a llamar otros stored

Código SQL:

CREATE OR REPLACE PROCEDURE SIER.spconsuptimes (
   p_tipobusqueda    IN       INT DEFAULT 0,
   p_fianio          IN       sier.tauptime.fianio%TYPE DEFAULT 0,
   p_fimes           IN       sier.tauptime.fimes%TYPE DEFAULT 0,
   p_fisemana        IN       sier.tauptime.fisemana%TYPE DEFAULT 0,
   p_fidia           IN       sier.tauptime.fidia%TYPE DEFAULT 0,
   p_fiidsucursal    IN       sier.tauptime.fiidsucursal%TYPE DEFAULT 0,
   p_fiidplaza       IN       sier.cajwdivreg.fiidentificador%TYPE DEFAULT 0,
   p_fiidjefeplaza   IN       sier.cajwdivreg.fiidentificador%TYPE DEFAULT 0,
   p_fcws            IN       sier.tauptime.fcws%TYPE DEFAULT NULL,
   p_fidistrito      IN       sier.tauptime.fiautorizado%TYPE DEFAULT 0,
   p_fipais          IN       sier.cajwsucxregxdiv.fipais%TYPE DEFAULT 0,
   p_fistatus        IN       sier.cajwsucxregxdiv.fistatus%TYPE DEFAULT 0,
   p_finumsemanas    IN       INTEGER DEFAULT 7,
   p_fiantiguedad    IN       INTEGER DEFAULT 26,
   p_respuesta       OUT      TYPES.cursor_type,
   p_cur24           OUT      TYPES.cursor_type
)
AS
   tmp_errorsp      EXCEPTION;
   tmp_errmsg       VARCHAR2 (200);
   tmp_pais         INTEGER;
   tmp_mesanioant   INTEGER;
   tmp_anioantig    INTEGER;
   tmp_mesantig     INTEGER;
   tmp_difnumsem    INTEGER;
   tmp_difantig     INTEGER;
BEGIN
   CASE p_tipobusqueda
     
      WHEN 24
      THEN
         IF p_fianio <> 0 AND p_fisemana <> 0
         THEN
            OPEN p_respuesta FOR
 
sier.spconsuptimenoparam(p_tipobusqueda=>24,p_fianio=>2012,p_fisemana=>52,p_fistatus=>1,p_respuesta=>:cur);
 
         ELSE
            tmp_errmsg :=
                  'ERROR EN sier.spconsuptime, OPCION 2 P_FIANIO = '
               || p_fianio
               || ', P_FIMES '
               || p_fimes
               || ', P_FISEMANA '
               || p_fisemana;
            RAISE tmp_errorsp;
         END IF;
     
      ELSE
         tmp_errmsg := 'OPERACION INVALIDA';
         RAISE tmp_errorsp;
   END CASE;
EXCEPTION
   WHEN tmp_errorsp
   THEN
      raise_application_error (-20102, tmp_errmsg || SQLERRM);
   WHEN OTHERS
   THEN
      raise_application_error (-20102, 'ERROR:' || SQLERRM);
END spconsuptimes;
/
 

¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ este es el stored "secundario"

Código SQL:

CREATE OR REPLACE PROCEDURE SIER.spconsuptimenoparam (
   p_tipobusqueda    IN       INT DEFAULT 0,
   p_fianio          IN       sier.tauptime.fianio%TYPE DEFAULT 0,
   p_fimes           IN       sier.tauptime.fimes%TYPE DEFAULT 0,
   p_fisemana        IN       sier.tauptime.fisemana%TYPE DEFAULT 0,
   p_fidia           IN       sier.tauptime.fidia%TYPE DEFAULT 0,  
   p_fcws            IN       sier.tauptime.fcws%TYPE DEFAULT NULL,   
   p_fipais          IN       sier.cajwsucxregxdiv.fipais%TYPE DEFAULT 0,
   p_fistatus        IN       sier.cajwsucxregxdiv.fistatus%TYPE DEFAULT 0,
   p_finumsemanas    IN       INTEGER DEFAULT 7,
   p_fiantiguedad    IN       INTEGER DEFAULT 26,
   p_respuesta       OUT      TYPES.cursor_type
)
AS
   tmp_errorsp      EXCEPTION;
   tmp_errmsg       VARCHAR2 (200);
   tmp_pais         INTEGER;
   tmp_mesanioant   INTEGER;
   tmp_anioantig    INTEGER;
   tmp_mesantig     INTEGER;
   tmp_difnumsem    INTEGER;
   tmp_difantig     INTEGER;
BEGIN
   CASE p_tipobusqueda
      WHEN 24
      THEN
         IF p_fianio <> 0 AND p_fisemana <> 0
         THEN
            OPEN p_respuesta FOR
               SELECT TRUNC ((SUM (fiuptime) / COUNT (fiuptime)),
                             2
                            ) porcentaje
                 FROM sier.tauptime
                WHERE fianio = p_fianio
                  AND fisemana = p_fisemana
                  AND fiautorizado = p_fistatus;
         ELSE
            tmp_errmsg :=
                  'ERROR EN sier.spconsuptime, OPCION 2 P_FIANIO = '
               || p_fianio
               || ', P_FIMES '
               || p_fimes
               || ', P_FISEMANA '
               || p_fisemana;
            RAISE tmp_errorsp;
         END IF;
ELSE
         tmp_errmsg := 'OPERACION INVALIDA';
         RAISE tmp_errorsp;
   END CASE;
EXCEPTION
   WHEN tmp_errorsp
   THEN
      raise_application_error (-20102, tmp_errmsg || SQLERRM);
   WHEN OTHERS
   THEN
      raise_application_error (-20102, 'ERROR:' || SQLERRM);
END spconsuptimenoparam;
 

[guadalupehmmoreno]

Hola:

Tienes este fragmento de codigo en uno de tus procedimientos:
WHEN 2432. THEN33. IF p_fianio <> 0 AND p_fisemana <> 034. THEN35. OPEN p_respuesta FOR
....


ya no es necesario que abras el cursor, solo basta con empezarlo a recorrer , te paso un fragmento de codigo:

-- leyendo el cursor ya que la funcion previa ya lo abrio el cursor
LOOP
FETCH curPolizas INTO vlIdCte
,vlRFC
,vlIdTipoCte
,vlNombreCompleto
,vlCorreo
,vlCalle
,vlNumExt
,vlNumInt
,vlColonia
,vlIDDireccion
,vlIDCodigoSICS
,vlDatosTel
,vlIdEjecutivo
,vlIdTipoDir;

EXIT WHEN curPolizas%NOTFOUND;

-- aqui usas las variable que regresa el cursor curPolizas como se necesite
--- .....


END LOOP;

CLOSE curPolizas;



donde curPolizas es el cursor de salida de otra funcion o procedimiento

[emmanuelhxc]

gracias de antemano por la respuesta, pero esa no fue la solución, el problema era como estaba asignando mi cursor de salida, yo declaraba una nueva variable, y tenia que asignar el cursor que ya tenia declarado y eso era todo, aunque con tu ejemplo si me sirvió para implementar otras cosas.


si alguien necesita ayuda con la solución no duden en contactarme.