From 99953a69066dc80832ee440684c6635e9119c71f Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Wed, 4 Jan 2023 16:12:21 -0700
Subject: [PATCH] Calculo de usados desde orden de servicio

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

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