From 36c63080cba5b6246b175c5b2bb71b31c4a8610f Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 22 Jul 2021 20:28:42 -0700 Subject: [PATCH] =?UTF-8?q?mensaje=20de=20rfc=20duplicado=20o=20c=C3=B3dig?= =?UTF-8?q?o=20duplicado?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsClientes.vb | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb index 5cfb77001..154097b80 100644 --- a/App_Code/ClsClientes.vb +++ b/App_Code/ClsClientes.vb @@ -720,11 +720,14 @@ Public Class ClsClientes 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) + Dim tRFC As String = Ex1.Message.Substring(194, 13) + Alert("Ya existe un cliente registrado con el mismo RFC: " & tRFC, TipoMensaje.MsgAdvertencia) + GuardaLog(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", "Ya existe un cliente registrado con el mismo RFC.", Ex1.ToString, vbCrLf, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)) End If If Ex1.Message.Contains("IND_Clientes_Codigo") Then Alert("Ya existe un cliente registrado con el mismo Código.", TipoMensaje.MsgAdvertencia) + GuardaLog(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", "Ya existe un cliente registrado con el mismo Código.", Ex1.ToString, vbCrLf, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)) End If Else Me.OnError("Ocurrió un error al Intentar guardar el Nuevo Cliente.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())