From 8baaee3561141332d8f83ee2cf8368c6c099a156 Mon Sep 17 00:00:00 2001
From: Rene Molina <Rene.Molina@adssistemas.mx>
Date: Thu, 9 Jan 2020 11:49:11 -0700
Subject: [PATCH] -validacion de mensaje de cliente repetido

---
 App_Code/ClsClientes.vb | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb
index 2b603bb68..cb1e95310 100644
--- a/App_Code/ClsClientes.vb
+++ b/App_Code/ClsClientes.vb
@@ -1581,6 +1581,22 @@ Public Class ClsClientes
         Try
             SqlAdapter.Fill(Data)
             Retorno = True
+        Catch Ex1 As SqlException
+
+            If Ex1.Message.Contains("Número: 2627;") Then
+                Alert("El Nuevo Cliente no se guardo debido a que actualmente se encuentra registrado", TipoMensaje.MsgAdvertencia)
+
+            ElseIf Ex1.Message.Contains("Número: 2601;") Then
+                If Ex1.Message.Contains("UN_ClientesRFCEmpresa") Then
+                    Alert("Ya existe un cliente registrado con el mismo RFC.", TipoMensaje.MsgAdvertencia)
+                End If
+
+                If Ex1.Message.Contains("IND_Clientes_Codigo") Then
+                    Alert("Ya existe un cliente registrado con el mismo Código.", TipoMensaje.MsgAdvertencia)
+                End If
+            Else
+                Me.OnError("Ocurrió un error al Intentar guardar el Nuevo Cliente.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
         Catch ex As Exception
             OnError("Ocurrió un error al agregar el cliente", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
         End Try