From a50b7a9a38cd3b6144617238ffde4120884f4058 Mon Sep 17 00:00:00 2001
From: HECTOR RODRIGUEZ <hecttor201@gmail.com>
Date: Thu, 29 Apr 2021 20:56:21 -0700
Subject: [PATCH] Error al querer eliminar un acercamiento con contizacion

---
 App_Code/ClsCRM.vb | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/App_Code/ClsCRM.vb b/App_Code/ClsCRM.vb
index acabd6abe..76da1aa43 100644
--- a/App_Code/ClsCRM.vb
+++ b/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