From dff20d006f9829c1dbce2b728be9d95e9558a551 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 3 Jan 2025 08:37:56 -0700
Subject: [PATCH] =?UTF-8?q?--=20se=20quit=C3=B3=20candado=20emisi=C3=B3n?=
 =?UTF-8?q?=20--=20=20no=20recalcular=20precio=20en=20cambio=20de=20contad?=
 =?UTF-8?q?o/crdito?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Ventas/Ventas.aspx.vb | 19 ++++++++-----------
 1 file changed, 8 insertions(+), 11 deletions(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index ffe7361e3..86cc95e53 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -2745,7 +2745,7 @@ Partial Class Ventas
                 HdnCveCliente.Value = "-1"
 
                 'SI TIENE UN CLIENTE POR DEFECTO DEBE CARGARLO AL INICIAR
-                If UsuarioActual.Empresa.Funcionalidad(714).ToEntero() > 0 Then
+                If UsuarioActual.Empresa.Funcionalidad(714).ToEntero() > 0 AndAlso CveVenta <= 0 Then
                     ViewState("CveCliente") = UsuarioActual.Empresa.Funcionalidad(714).ToEntero()
                     HdnCveCliente.Value = UsuarioActual.Empresa.Funcionalidad(714)
                     RBLPago.SelectedValue = "2"
@@ -11079,10 +11079,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
@@ -17900,9 +17896,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
@@ -24835,9 +24828,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