From f1e0a35fcd31c3664cdaf036c385a371fde1a8e5 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 15 Apr 2025 06:37:28 -0700 Subject: [PATCH] -- cambio a funciolidad el bloqueo de 01010101 --- App_Code/Timbrado.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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:
")