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())