Error al querer eliminar un acercamiento con contizacion

App_Code/ClsCRM.vb

@@ -806,7 +806,13 @@ Public Class ClsCRM
             SqlAdapter.Fill(Data)
             Retorno = True
         Catch ex As Exception
-            OnError("Ocurrió un error al eliminar el Acercamiento.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            If ex.Message.Contains("CveVenta = ") Then
+                Dim CveVenta As String = ex.Message
+                CveVenta = CveVenta.Substring(11, 8)
+                Alert(String.Format("Este acercamiento esta ligado a una cotización <br/> <b> Cotización: </b> <a href='/Ventas/Ventas.aspx?CveVenta={0}'>{0}</a>", CveVenta), TipoMensaje.MsgAdvertencia)
+            Else
+                OnError("Ocurrió un error al eliminar el Acercamiento.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
         End Try
         Return Retorno
     End Function