diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 1908b258e..57ca509db 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -4467,7 +4467,12 @@ Partial Class Ventas
 
             OS.Dispose()
 
-            TxtTotal.Text = TmpDT.SUM("Total").FormatoNumero()
+
+            If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+                CalculaUsados()
+            End If
+
+            CalculaTotalesVenta(False)
 
             GvPS.DataSource = TmpDT
             DtInv = TmpDT.Copy.FiltraParametros("CveTipoPS = 2")
@@ -34130,7 +34135,7 @@ Partial Class Ventas
 
     Private Function DeshabilitarAplicarNotaDeCredito(RFC As String) As Boolean
         Dim Retorno As Boolean = False
-        If UsuarioActual.CveEmpresa = 119 AndAlso RFC.Contiene("XAXX010101000", "XEXX010101000") Then
+        If UsuarioActual.CveEmpresa = 119 AndAlso RFC.Contiene("XAXX010101000", "XEXX010101000") AndAlso UsuarioActual.CveUsuario <> 1719 Then
             LBNotaCredito.Visible = False
             UpnTools.Update()
             Retorno = True