From 1dd69b8c8df012b5f8f3d99d07ae7c917355f275 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 28 Jun 2021 18:12:37 -0700 Subject: [PATCH] =?UTF-8?q?--=20cambio=20en=20mensajes=20de=20c=C3=B3digo?= =?UTF-8?q?=20SAT?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/Timbrado.vb | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index 6845d6528..005766e1f 100644 --- a/App_Code/Timbrado.vb +++ b/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") - Select c.ClaveProdServ).Count() - If CodigoIncorrecto > 0 Then - MensajeErrorCFDI = "SAT - Hay un concepto con Codigo no permitido." + Dim CodigoIncorrecto = (From c In Ventas.Timbre.Conceptos Where (c.ClaveProdServ = "84111506" Or c.ClaveProdServ = "01010101") + Select c.ClaveProdServ, c.Descripcion) + Dim Str As New StringBuilder + Str.Append("Los siguentes productos tienen especificado un código no permitido por el SAT:
") + For Each dr In CodigoIncorrecto + Str.AppendFormat(" - {0}
", dr.Descripcion) + Next + If CodigoIncorrecto.Count > 0 Then + MensajeErrorCFDI = Str.ToString Return False End If