-- FIX. cuadre con productivo

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
+        Dim EjecutaRecalculaPrecios As Boolean = False
-            RecalculaPrecios()
+
-        End If
+        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