From 7621b04c782d40c5f96afff90335a94b141749ab Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Thu, 2 Jan 2025 15:22:27 -0700
Subject: [PATCH] -- FIX. cuadre con productivo

---
 Ventas/Ventas.aspx.vb | 17 +++++++----------
 1 file changed, 7 insertions(+), 10 deletions(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index ef753321d..696b9964d 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -11081,10 +11081,6 @@ 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
@@ -17902,9 +17898,6 @@ Partial Class Ventas
 
                 Dim SeTimbro As Boolean = False
                 Dim DebeTimbrar As Boolean = True
-                If UsuarioActual.CveEmpresa.Contiene(189) Then
-                    DebeTimbrar = False
-                End If
 
                 Try
                     If DebeTimbrar Then
@@ -24844,9 +24837,13 @@ Partial Class Ventas
     End Sub
     Private Sub RBLPago_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RBLPago.SelectedIndexChanged
         LimpiaEscondeContado()
-        If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
-            RecalculaPrecios()
-        End If
+        Dim EjecutaRecalculaPrecios As Boolean = False
+
+        If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then EjecutaRecalculaPrecios = True
+        If UsuarioActual.CveEmpresa = 189 Then EjecutaRecalculaPrecios = False
+
+        If EjecutaRecalculaPrecios Then RecalculaPrecios()
+
     End Sub
     Private Function ValidaPagosContado(Optional MostrarAlertas As Boolean = True, Optional TipoDoctoViejo As String = "") As Boolean
         Dim Retorno As Boolean = False