-- se quitó candado emisión

--  no recalcular precio en cambio de contado/crdito

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