Ver Mensaje Individual
  #7 (permalink)  
Antiguo 01/09/2006, 07:48
lenz
 
Fecha de Ingreso: agosto-2003
Mensajes: 203
Antigüedad: 21 años, 3 meses
Puntos: 0
Muchas gracias por la ayuda

Finalmente logre hacer que funcione, dejo el codigo, quizas a otra persona le sirva
Código:
CREATE or replace FUNCTION sequence_curval(sTabla IN VARCHAR2, sCampo IN VARCHAR2)
RETURN INTEGER
	AS
	iValue  INTEGER;
	iValAux  VARCHAR2(200);
BEGIN
	 iValAux := 'SELECT ' || get_sequence (sTabla,sCampo) || '.CURRVAL FROM dual';
	EXECUTE IMMEDIATE (iValAux)  INTO iValue ;
	RETURN iValue;
END;