CREATE PROC pduinsertlinea @descripcion varchar(40) as INSERT INTO linea (lin_des) VALUES (@descripcion) SELECT @@IDENTITY as ideste procedimiento devuelve el valor IDENTITY que se asigno a la clave principal de la tabla linea..
PROCEDURE agregalinea(lclindes as character) as Integer ors=this.lcConeccion.execute("pduinsertlinea '"+ALLTRIM(lclindes)+"'") IF TYPE("ors")!="O" RETURN 0 ELSE ors.MoveFirst RETURN ors.fields("id").value ENDIF ENDPROCUtilice ADO ya que mi estructura la tengo por capas y una de las opciones para comunicar entre capas es ADO. De esta forma logre devolver el valor de un procedimiento almacenado, en este caso el valor identity de la inserción.