-- cambio en mensajes de código SAT

App_Code/Timbrado.vb

@@ -813,10 +813,15 @@ Public Class Timbrado
         'validación especial. 
         If Ventas.TipoDocto.Contiene("Ing", "Dev") Then
 
-            Dim CodigoIncorrecto As Integer = (From c In Ventas.Timbre.Conceptos Where (c.ClaveProdServ = "84111506" Or c.ClaveProdServ = "01010101")
+            Dim CodigoIncorrecto = (From c In Ventas.Timbre.Conceptos Where (c.ClaveProdServ = "84111506" Or c.ClaveProdServ = "01010101")
-                                               Select c.ClaveProdServ).Count()
+                                    Select c.ClaveProdServ, c.Descripcion)
-            If CodigoIncorrecto > 0 Then
+            Dim Str As New StringBuilder
-                MensajeErrorCFDI = "SAT - Hay un concepto con Codigo no permitido."
+            Str.Append("Los siguentes productos tienen especificado un código no permitido por el SAT: <br/>")
+            For Each dr In CodigoIncorrecto
+                Str.AppendFormat(" - {0} <br/>", dr.Descripcion)
+            Next
+            If CodigoIncorrecto.Count > 0 Then
+                MensajeErrorCFDI = Str.ToString
                 Return False
             End If