From baad9fd86388f9fae2e1c1368520e7737cbad518 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 23 Jun 2021 10:12:27 -0700
Subject: [PATCH] =?UTF-8?q?validacion=20de=20facturaci=C3=B3n.=20de=20prod?=
 =?UTF-8?q?uctos=20con=20c=C3=B3digo=20SAT=20"84111506"=20,"01010101"?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 App_Code/Timbrado.vb | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb
index 3b94f4849..6845d6528 100644
--- a/App_Code/Timbrado.vb
+++ b/App_Code/Timbrado.vb
@@ -810,6 +810,18 @@ Public Class Timbrado
         Dim tCvePAC As Integer = UsuarioActual.Empresa.CvePAC
         If CvePACEspecial <> -1 Then tCvePAC = CvePACEspecial
 
+        '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."
+                Return False
+            End If
+
+        End If
+
         Select Case tCvePAC
             Case 1
                 ' Retorno = TimbrarFacturaBIInform33(UsuarioActual, Ventas, FM, TmpDTConceptos, TmpDTImpuestos, TmpDT7Eleven, TmpDTComplementos, Ruta, LstFordASN, FordGSDBM, ObjV)