diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb
index 19b3bbb23..a0df85f43 100644
--- a/App_Code/Timbrado.vb
+++ b/App_Code/Timbrado.vb
@@ -964,9 +964,9 @@ Public Class Timbrado
         If CvePACEspecial <> -1 Then tCvePAC = CvePACEspecial
 
         'validación especial. 
-        If Ventas.TipoDocto.Contiene("Ing", "Dev") Then
+        If Ventas.TipoDocto.Contiene("Ing", "Dev") AndAlso UsuarioActual.Empresa.Funcionalidad(153) = "" Then ' funcionalidad para no filtrar por códigos 01010101
 
-            Dim CodigoIncorrecto = (From c In Ventas.Timbre.Conceptos Where (c.ClaveProdServ = "01010101") OrElse (c.ClaveProdServ = "84111506" AndAlso Not UsuarioActual.CveEmpresa.Contiene(2, 70, 144))
+            Dim CodigoIncorrecto = (From c In Ventas.Timbre.Conceptos Where (c.ClaveProdServ = "01010101") OrElse (c.ClaveProdServ = "84111506")
                                     Select c.ClaveProdServ, c.Descripcion)
             Dim Str As New StringBuilder
             Str.Append("Los siguientes productos tienen especificado un código no permitido por el SAT: <br/>")