procedimiento y la función Save_Ocurrence.