validacion de facturación. de productos con código SAT "84111506" ,"01010101"

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)