From b483069cf185f3d4a5e6143c4873ce71dfafcdfc Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Thu, 22 Feb 2024 13:33:27 -0700
Subject: [PATCH] --Bloqueo de precio para funcionalidad 109

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

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index e6cdac9b0..e067f3b54 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -8069,7 +8069,7 @@ Partial Class Ventas
 
                 End If
 
-                If UsuarioActual.TienePermisoProceso(68) Then
+                If UsuarioActual.TienePermisoProceso(68) OrElse UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
                     e.Row.FCTextBox("TxtPrecio").Enabled = False
                     e.Row.FCTextBox("TxtDescuento").Enabled = False
                 End If
@@ -24013,7 +24013,7 @@ Partial Class Ventas
                 Dim PrecioCompra = ObjPS.GetUltimoPrecioCompra(UsuarioActual.CveEmpresa, GvRow.DataKey("CvePS").ToEntero())
                 If PrecioCompra > 0 Then
                     HdnTotalCompra.Value = (PrecioCompra * GvRow.DataKey("Cantidad").ToDouble() * 1.16).ToString()
-                    LblPrecioCompra.Text = $"PU Compra: {(PrecioCompra * 1.16).FormatoNumero(2)}"
+                    LblPrecioCompra.Text = $"PU Compra: {(PrecioCompra).FormatoNumero(2)}"
                 End If
             End Using