From 2a9e924a0e6e122ac5216c390caab7172f24700c Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 6 Dec 2024 05:18:33 -0700
Subject: [PATCH] -- no timbrar para e189

---
 Ventas/Ventas.aspx.vb | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 86f7cca10..49859c516 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -11156,6 +11156,10 @@ Partial Class Ventas
                                         DebeTimbrar = False
                                     End If
                                 End If
+                                'RMF, codigo temporal
+                                If UsuarioActual.CveEmpresa.Contiene(189) Then
+                                    DebeTimbrar = False
+                                End If
 
                                 'Si es AMORTIZACIÓN ANTICIPO SOBRE FACTURA EN CERO no debe timbrar
                                 If DdlTipoAmortizacionAnticipo.SelectedValue = "3" Then
@@ -17985,9 +17989,15 @@ Partial Class Ventas
                 End If
 
                 Dim SeTimbro As Boolean = False
+                Dim DebeTimbrar As Boolean = True
+                If UsuarioActual.CveEmpresa.Contiene(189) Then
+                    DebeTimbrar = False
+                End If
 
                 Try
-                    SeTimbro = ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura)
+                    If DebeTimbrar Then
+                        SeTimbro = ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura)
+                    End If
                 Catch ex As Exception
                     SeTimbro = False
                 End Try