From eb14bac7a489237e81f24062b845e0ea2a163336 Mon Sep 17 00:00:00 2001
From: JPerez <jonathan.perez@asdsistemas.mx>
Date: Fri, 20 Jun 2025 17:43:06 -0700
Subject: [PATCH] --No timbrar en subproyectos de USA

---
 Ventas/Ventas.aspx.vb | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 560643caa..ec543c8de 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -11503,6 +11503,10 @@ Partial Class Ventas
                                     DebeTimbrar = False
                                 End If
 
+                                If UsuarioActual.CveEmpresa = 188 AndAlso ObjFactura.CveSubProyecto.Contiene(12696, 12698) Then
+                                    DebeTimbrar = False
+                                End If
+
                                 If DebeTimbrar AndAlso ObjFactura.TipoDocto.Contiene("Ing", "Egs", "Ant", "Dev") Then
                                     If UsuarioActual.Empresa.TipoFacturacion = "CFDi" AndAlso (UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1) Then
 
@@ -18475,6 +18479,11 @@ Partial Class Ventas
             Exit Sub
         End If
 
+        If UsuarioActual.CveEmpresa = 188 AndAlso DdlSubProyectoDatos.SelectedValue.ToEntero().Contiene(12696, 12698) Then
+            Alert("Esta factura no puede ser timbrada", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
         If UsuarioActual.Empresa.TipoFacturacion = "CFDi" Then
             If UsuarioActual.Empresa.FacturaProduccion Then