Oracle Stored Procedure
-
i have this stored procedure on my database oracle: PROCEDURE BE_P_CONSULTA_GARANTIAS( Pn_Empresa NUMBER, Pn_GARANTIA NUMBER, Pn_codigo_tipo_identificación NUMBER, Pn_numero_identificacion VARCHAR2, Pi_CodigoMensaje OUT INTEGER, Pv_DescripcionMensaje OUT VARCHAR2, Pc_GARANTIAS OUT c_movimientos )IS BEGIN Pi_CodigoMensaje := 0; Pv_DescripcionMensaje := NULL; OPEN Pc_GARANTIAS FOR SELECT A.numero_credito num_garantia, A.codigo_empresa empresa, A.codigo_agencia agencia, A.codigo_sub_aplicacion sub_aplicacion, A.codigo_aplicacion aplicacion, DECODE(C.tipo_garantia,'C','CUMPLIMIENTO','P','PARTICIPACION','INDEFINIDO') TIPO_GARANTIA, d.codigo_moneda codigo_moneda, e.descripcion descripcion_moneda, A.saldo_actual, A.fecha_emision, A.FECHA_VENCE_VALIDEZ, A.DESCRIPCION, F.codigo_cliente,g.numero_identificacion,g.CODIGO_TIPO_IDENTIFICACION FROM CD_CREDITOS_DOCUMENTALES A, CD_TIPOS_CREDITO_DOCUMENTAL B, CD_PARAMETROS_X_SUBAPLICACION C, MG_SUB_APLICACIONES d, MG_MONEDAS e, CD_CREDITOS_X_CLIENTES F, MG_CLIENTES g WHERE A.codigo_credito = B.codigo_credito AND A.codigo_sub_aplicacion = C.codigo_sub_aplicacion AND A.codigo_aplicacion = C.codigo_aplicacion AND A.codigo_sub_aplicacion = d.codigo_sub_aplicacion AND A.codigo_aplicacion = d.codigo_aplicacion AND d.codigo_moneda = e.codigo_moneda AND F.numero_credito = A.numero_credito AND F.codigo_empresa = A.codigo_empresa AND F.codigo_agencia = A.codigo_agencia AND F.codigo_sub_aplicacion = A.codigo_sub_aplicacion AND F.codigo_cliente = g.codigo_cliente AND g.numero_identificacion = Pn_numero_identificacion AND g.CODIGO_TIPO_IDENTIFICACION = Pn_codigo_tipo_identificación AND A.codigo_credito = 1 -- indica que el crédtido es de aval y fianzas, que son las cuales manejan garantias de participacion y cumplimiento AND A.codigo_empresa = Pn_Empresa AND A.numero_credito = Pn_GARANTIA ORDER BY 1; EXCEPTION WHEN NO_DATA_FOUND THEN Pi_CodigoMensaje := 1; Pv_DescripcionMensaje := 'No existen garantias con el No.'||Pn_GARANTIA; OPEN Pc_GARANTIAS FOR SELECT Pv_DescripcionMensaje FROM DUAL; RETURN; WHEN OTHERS THEN Pi_CodigoMensaje := 1; Pv_DescripcionMensaje := SQLERRM; OPEN Pc_GARANTIAS FOR SELECT Pv_DescripcionMensaje FROM DUAL; RETURN; END; And im trying to get t